*-- (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