In below code, when I press the PAUSE button, the program did not pause. Any suggestion?
Thanks
Allen
Code: Select all
Enumeration FormWindow
#Main
#Start
#Pause
EndEnumeration
Procedure Events(event)
Define.b stop
Define.i i
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Gadget
Select EventGadget()
Case #Start
Repeat
i=12 ; main operation here
Until stop
MessageRequester("Pause","Pause pressed")
Stop=#False
Case #Pause
Stop=#True
EndSelect
EndSelect
EndProcedure
MainWindow=OpenWindow(#Main, 100, 100, 100, 100, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
ButtonGadget(#Start,10,10,50,20,"Start"):ButtonGadget(#Pause,10,30,50,20,"Pause")
Repeat
event = WaitWindowEvent()
Events (event)
Until event = #PB_Event_CloseWindow