Class: | tastrade |
LOCAL lcAction *-- Put up main menu DO (this.cMainMenu) IF !DEBUGMODE lcAction = this.GetStartupAction() IF !EMPTY(lcAction) &lcAction ENDIF ENDIF DO WHILE .T. *-- Start the event loop READ EVENTS *- We do cleanup here, instead of in the menu code *- because windows cannot be released from the menu code if *- a grid has the focus. IF THIS.Cleanup() THIS.Cleanup2 EXIT ENDIF ENDDO