PureBoard

Code: Alles auswählen

EnableExplicit

Macro mDebug
  ShowDebugOutput()
  Debug
EndMacro

Define EventID

Procedure Window1_Info()
  If OpenWindow(1, 650, 100, 400, 300, "Window 2", #PB_Window_SystemMenu)
    ButtonGadget(2, 10, 10, 100, 20, "Button 2", 0)
   
  EndIf
 
EndProcedure

If OpenWindow(0, 100, 100, 500, 400, "Window 1", #PB_Window_SystemMenu)
  ButtonGadget(1, 10, 10, 100, 20, "Button 1", 0)
 
  Window1_Info()
 
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 1
          mDebug "Button 1"
        Case 2
          mDebug "Button 2"
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf