Code: Select all
If OpenWindow(0, 100, 200, 300, 100, "ButtonGadget", #PB_Window_SystemMenu)
bg = ButtonGadget(#PB_Any, 10, 10, 200, 30, "Button")
Debug bg ; 38539160
Debug GadgetID(bg) ; 41945080
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
If OpenWindow(0, 100, 200, 300, 100, "ButtonGadget", #PB_Window_SystemMenu)
bg = ButtonGadget(0, 10, 10, 200, 30, "Button")
Debug bg ; 41945080
Debug GadgetID(0) ; 41945080
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf