do Method
Class: tastrade
Expand/Collapse source code of procedure do Source Code
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