Init Method
Class: environment
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


*-- Save the settings of the SET and ON commands

this.cOldTalk        = gcOldTalk
this.cOldPath        = gcOldPath
this.cOldDir        = gcOldDir
this.cOldClassLib    = gcOldClassLib
this.cOldEscape      = gcOldEscape

this.cOldSafety      = SET('SAFETY')
this.cOldProc        = SET('PROCEDURE')
this.cOldStatus      = SET('STATUS BAR')
this.nOldMemo        = SET('MEMOWIDTH')
this.cOldMultiLocks  = SET('MULTILOCKS')
this.cOldHelp        = SET('HELP', 1)
this.cOldDeleted    = SET('DELETED')
this.cOldExclusive   = SET('EXCLUSIVE')
this.cOldNotify      = SET('NOTIFY')
this.cOldBell        = SET('BELL')
this.cOldNear        = SET('NEAR')
this.cOldExact      = SET('EXACT')
this.cOldIntensity  = SET('INTENSITY')
this.cOldConfirm    = SET('CONFIRM')
this.cOldOnShutDown = ON('SHUTDOWN')
this.cOldCompatible	= SET("COMPATIBLE")