PureBasic Forums - English

Code: Select all

Procedure Test()
  If GetGadgetText(EventGadget()) = "Binded Button"
    MessageRequester("Button Test","As it should be!")
    FreeGadget(0)
    UnbindedButton = ButtonGadget(0, 10, 10, 200, 20, "Unbinded Button")
  Else
    MessageRequester("Button Test","Not expected."+Chr(13)+Chr(13)+"UnbindGadgetEvent() needs to be called before freeing it.")
  EndIf  
EndProcedure

If OpenWindow(0, 0, 0, 222, 200, "Button Bind Check", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  BindedButton = ButtonGadget(0, 10, 10, 200, 20, "Binded Button")
  BindGadgetEvent(0, @Test())
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf