Init Method
Class: application
Expand/Collapse source code of procedure Init Source Code
*-- (c) Microsoft Corporation 1995

*- this class can't be used independent of the application
IF TYPE("m.gTTrade") # 'L' OR !m.gTTrade
	=MESSAGEBOX(CLASSBROWERR_LOC)
	RETURN .F.
ENDIF

*-- Set up the environment
this.AddObject("oEnvironment", "Environment")
this.oEnvironment.Set()

*-- Save current main window title and set
*-- the new one
this.cOldWindCaption = _screen.Caption
_screen.caption = this.cMainWindCaption

*-- Setup data environment
*-- For applications that need to open multiple
*-- .DBC's, or that need to open/close .DBC's 
*-- at run time, create a separate method in this
*-- class, call it from here, and override it as
*-- necessary in your specific application class.
CLOSE DATA ALL
IF !EMPTY(this.cDataBase)
  OPEN DATABASE (this.cDataBase)
  IF EMPTY(DBC())
    =MessageBox(FILENOTEXIST_LOC + this.cDataBase, ;
                MB_OK + MB_ICONSTOP, ;
                ERRORTITLE_LOC)
    RETURN .F.
  ENDIF
ENDIF

*-- Release all toolbars
this.ReleaseToolBars()
PUSH MENU _MSYSMENU