Dem ist leider nicht so.
Getestet mit Linux 5.24/31 x86,64 und Windows 5.24/31 x86,64
Code: Alles auswählen
EnableExplicit
Define win1,win2,quit,event
;: Mal schnell ein Fenster gezimmert....
win1=OpenWindow(#PB_Any, 0, 0, 640, 480, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
;: noch ein "Button" drauf...
ButtonGadget(1, 20, 20, 200, 25, "Fenster 2 öffnen")
;: und nun die Abfragerei
Repeat
Event = WaitWindowEvent() ; <- Hier das WindowEvent einer Variablen zugewiesen
Select Event ; > <- Hier wird dann sozusagen "verzweigt"
Case #PB_Event_CloseWindow ; Hier wird ein Fenster Schliess Button gedrückt
Quit = 1 ; Hier um die Repeat Schleife zu verlassen....
Case #PB_Event_Gadget ; Hier kam ein "Event" von einem Gadget
If EventGadget() = 1 ; Wenn es unser Button war dann Text raus
If IsWindow(win2)=0
win2=OpenWindow(#PB_Any, 0, 0, 640, 480, "Fenster 2 (ID:"+Str(win2)+")", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
SetGadgetText(1,"Fenster2 schliessen")
Else
CloseWindow(win2) ;hier sollte win2 wieder 0 werden
SetGadgetText(1,"Fenster2 erneut öffnen (Win2 ID: "+Str(win2)+")")
EndIf
EndIf
EndSelect
Until Quit > 0