Is that a bug ?
M.
Code: Select all
If OpenWindow(0, 0, 0, 400, 260, "Exemple...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EditorGadget (0, 10, 10, 380, 200)
ButtonGadget (1, 10, 220, 380, 30, "Close")
AddGadgetItem(0, -1, "If you clic on the button 'Close' then the program ends and the debugger doesn't appear")
AddGadgetItem(0, -1, "If you clic on the button '[x]' on the top of the windows then the debugger appears and the program ends")
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
CloseWindow(0)
End
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
Debug "end"
// No Bug. Moved from "Bugs - Windows" to "Coding Questions" (Kiffi)