reset Method
Class: environment
Expand/Collapse source code of procedure reset Source Code
*-- Restore the previous settings of the SET and ON commands

LOCAL luTemp

SET PATH TO      (this.cOldPath)

luTemp = this.cOldClassLib
SET CLASSLIB TO  &luTemp

luTemp = this.cOldProc
SET PROCEDURE TO &luTemp
SET MEMOWIDTH TO this.nOldMemo

luTemp = this.cOldMultiLocks
SET MULTILOCKS &luTemp

luTemp = this.cOldSafety
SET SAFETY &luTemp

luTemp = this.cOldStatus
SET STATUS BAR &luTemp

CD (this.cOldDir)

luTemp = this.cOldDeleted
SET DELETED &luTemp

luTemp = this.cOldExclusive
SET EXCLUSIVE &luTemp

IF FILE(this.cOldHelp)
  SET HELP TO (this.cOldHelp)
ENDIF

luTemp = this.cOldNotify
SET NOTIFY &luTemp

luTemp = this.cOldBell
SET BELL &luTemp

luTemp = this.cOldNear
SET NEAR &luTemp

luTemp = this.cOldExact
SET EXACT &luTemp

luTemp = this.cOldIntensity
SET INTENSITY &luTemp

luTemp = this.cOldConfirm
SET CONFIRM &luTemp

luTemp = this.cOldOnShutdown
ON SHUTDOWN &luTemp

luTemp = this.cOldEscape
SET ESCAPE &luTemp

luTemp = this.cOldCompatible
SET COMPATIBLE &luTemp

luTemp = this.cOldTalk
SET TALK &luTemp