Can anyone help me implement this?
Code: Select all
Global message_window
Global message_event
Global message_ok
Global message_no
Procedure message_events()
Select EventType()
Case #PB_EventType_LeftClick
Select EventGadget()
Case message_ok : message_event = #PB_MessageRequester_Yes
Case message_no : message_event = #PB_MessageRequester_No
EndSelect
CloseWindow(EventWindow())
EndSelect
EndProcedure
Procedure message(text.s)
Protected UseGadgetList = UseGadgetList(0)
Protected window = OpenWindow(#PB_Any, 270, 100, 260, 100, text, #PB_Window_TitleBar|#PB_Window_WindowCentered)
message_ok = ButtonGadget( #PB_Any, 10,60, 120,30,"Ok")
message_no = ButtonGadget( #PB_Any, 130,60, 120,30,"No")
BindGadgetEvent(message_ok, @message_events())
BindGadgetEvent(message_no, @message_events())
StickyWindow( window, 1 )
UseGadgetList(UseGadgetList)
Debug "open"
CocoaMessage(0, CocoaMessage(0, 0, "NSApplication sharedApplication"), "run")
Debug "close"
ProcedureReturn message_event
EndProcedure
Procedure button_events()
Select EventType()
Case #PB_EventType_LeftClick
If Message("message") = #PB_MessageRequester_Yes
Debug "Yes"
Else
Debug "No"
EndIf
EndSelect
EndProcedure
OpenWindow(10, 270, 100, 300, 300, "main window", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If Message("message") = #PB_MessageRequester_Yes
Debug "good"
Else
Debug "end"
End
EndIf
ButtonGadget( 1, 10,10, 120,30,"custom message")
BindGadgetEvent(1, @button_events())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow