PureBasic Forums - English

Posted: **Wed Apr 03, 2002 12:33 am**

Restored from previous forum. Originally posted by merendo.

Procedure window()
OpenWindow(1,20,20,158,100,0,"Another Test")
CreateGadgetList(WindowID())
ButtonGadget(1,8,8,136,25,"Do something")
GadgetToolTip(1,"Does something")
ButtonGadget(2,8,41,136,25,"Close")
GadgetToolTip(2,"Closes this window")
Repeat
event = WaitWindowEvent()

If event = #PB_EventGadget

Select EventGadgetID()

Case 1
MessageRequester("Something","Something for nothing",0)

Case 2
CloseWindow(1)

EndSelect

EndIf
ForEver

ProcedureReturn 0
EndProcedure

InitGadget(2)
OpenWindow(0,10,10,400,300,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget,"Test")

CreateGadgetList(WindowID())
ButtonGadget(0,8,8,200,25,"Click here to open a window")
GadgetToolTip(0,"Opens a second window")

Repeat
event = WaitWindowEvent()

If event = #PB_EventGadget

Select EventGadgetID()

Case 0

window()

EndSelect

EndIf

Until event = #PB_EventCloseWindow

If I try this code it seems to work fine, but if I click "Click here to open a window" the window opens. Then, if I close the second window, all the gadgets of the first window donÂ´t work. Is this normal or a bug??? Thank you, merendo

We always need to hear both sides of the story (by Phil Collins)

Posted: **Wed Apr 03, 2002 1:54 am**

Restored from previous forum. Originally posted by PB.

Change your code to this (additions marked by *****):

Code: Select all

Procedure window()
OpenWindow(1,20,20,158,100,0,"Another Test")
CreateGadgetList(WindowID())
ButtonGadget(1,8,8,136,25,"Do something")
GadgetToolTip(1,"Does something")
ButtonGadget(2,8,41,136,25,"Close")
GadgetToolTip(2,"Closes this window")
Repeat
event = WaitWindowEvent()
If event = #PB_EventGadget
Select EventGadgetID()
Case 1
MessageRequester("Something","Something for nothing",0)
Case 2
quit=1 ; ***** So we know that this window must quit.
EndSelect
EndIf
Until quit=1 ; ***** Loop events until quit time.
CloseWindow(1)
ProcedureReturn 0
EndProcedure 
;
InitGadget(2)
OpenWindow(0,10,10,400,300,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget,"Test")
CreateGadgetList(WindowID())
ButtonGadget(0,8,8,200,25,"Click here to open a window")
GadgetToolTip(0,"Opens a second window")
Repeat
event = WaitWindowEvent()
If event = #PB_EventGadget
Select EventGadgetID()
Case 0
window()
UseWindow(0) ; ***** Use window 0's events again.
EndSelect
EndIf
Until event = #PB_EventCloseWindow

PB - Registered PureBasic Coder

Edited by - PB on 03 April 2002 02:56:51

Posted: **Wed Apr 03, 2002 3:35 pm**

Restored from previous forum. Originally posted by Franco.

Repeat
...
Select EventGadgetID()
...
Case 2
CloseWindow(1)
EndSelect
...
ForEver

Hi Merendo this can't work.
You close the 2nd window but never get out of your 'Repeat' loop. ('Forever'...and ever)
That's why PB changed 'Forever' with 'Until'.
Just a note to explain what's going on

Have a nice day...
Franco

Sometimes you have to go a lonely way to accomplish genius things.

PureBasic Forums - English

Gadget (Bug???)