AssertFailed - GUI.Quit Problem

[jamonathin]

Hey all, im stumped right now. I'm getting an error message that reads

Quote:

Dispose: widget id number "18105" not found

and I looked it up in GUI and apparently it's in this:

code:

procedure RemoveWidget (id : int)         var prevNode : ^WidgetNode := nil         var widgetNode : ^WidgetNode := firstWidgetNode         var tempNode : ^WidgetNode := widgetNode         % Remove the widgetNode from the linked list         loop             exit when widgetNode = nil             if widgetNode -> id = id then                 if prevNode = nil then                     firstWidgetNode := widgetNode -> next                 else                     prevNode -> next := widgetNode -> next                 end if                 % Dispose of the widget and the widgetNode.                 widgetNode -> widget -> Dispose                 free widgetNode -> widget                 free widgetNode                 return             end if             prevNode := widgetNode             widgetNode := widgetNode -> next         end loop         AssertFailed ("Dispose: widget id number \"" +             intstr (id) + "\" not found")     end RemoveWidget

(at the bottom)

My question is, what is causing this?

[Delos]

What is causing this error. Where's your code? Help us out a little!

It's likely caused by a show/hide error, or a reference to a widget that hasn't been initialized.

As a side note, stop using Turing's GUI. Make your own!

[jamonathin]

Well, im not going to post the entire program, but i'll give u a snip of it.
Basically what's going wrong is, whenever i go into this procedure, and fully complete it without cancling it (you'll see in code), GUI.Quit gets an error. But if I do choose to cancel it, no error will pop up.

Here's the entire procedure, and the only part different from the finish and cancel.

code:

if forLoopDone then         GUI.Dispose (newTractorIDb)         GUI.Dispose (newLicenseNumberb)         GUI.Dispose (yearb)         GUI.Dispose (makeb)         GUI.CloseWindow (tractorWindow)         errorWindow := Window.Open ("graphics:250;80,nobuttonbar,position:center;center,title:New Truck Added : " + hTractorID + ",offscreenonly")         colorback (black)         var colorCount : int := 16         var diff : int := 1         error := true         loop             colorback (colorCount)             cls             Input.KeyDown (key)             Window.SetActive (errorWindow)             colorCount += diff             Font.Draw ("Truck " + hTractorID + " has been added to Fleet " + intstr (fleetNumber) + ".", 20, 60, font, 46 - colorCount)             Font.Draw ("Press any key to continue", 45, 15, font, 46 - colorCount)             if colorCount = 28 or colorCount = 16 then                 diff *= -1             end if             View.Update             delay (75)             exit when hasch         end loop         GUI.CloseWindow (errorWindow)         Window.SetActive (mainWindow)         tractorWindow := 0         errorWindow := 0         cancel := false     end if