Sub myCanvas_ObjectDown(objectID As String)
If Buttonpressed = True Then Return
Buttonpressed = True
Dim myCanvas As ABMCanvas = page.Component("myCanvas")
Select Case objectID
Case "mnupower"
If EngineMS05.Connected = False Then
page.Pause
CallSub2(EngineMS05, "Connect", Me)
Else
CallSub(EngineMS05, "Disconnect")
End If
Case "mnucleargame"
page.Msgbox2("ConfirmClearGame","Are you sure you wish to clear the game?","Clear Game","YES","NO",False,ABM.MSGBOX_TYPE_QUESTION,False,ABM.MSGBOX_POS_CENTER_CENTER,"")
Case "mnusetclock"
If EngineShared.ClockStopped = True Then SetClock
Case "mnurefresh"
page.Refresh
Case "cmdstartstopclock"
CallSub2(EngineShared,"cmdStartStopClock",Me)
Case Else
Log("Trapped here") 'Works regardless whether in release or debug mode.
CallSub(EngineShared,objectID) 'This doesnt work in release. Only in debug. WHY?
End Select
Sleep(150)
Buttonpressed = False
myCanvas.Refresh
'Log("ObjectD: " & objectID)
End Sub