Added Class SetEngineBehavior

Signed-off-by: Steven Black <steveb@stevenblack.com>
StevenBlack · Jan 29, 2012 · eaca3ce · eaca3ce
1 parent 41c0cef
commit eaca3ce
Showing 1 changed file with 38 additions and 0 deletions.
diff --git a/envlib.prg b/envlib.prg
@@ -1209,6 +1209,44 @@ DEFINE CLASS SetEcho AS SetOnOff
 ENDDEFINE  && CLASS SetEcho AS SetOnOff
 
 
+DEFINE CLASS SetEngineBehavior AS Set
+   uDefault = "OFF"
+
+   PROTECTED PROCEDURE Init( tcValue, tlNoReset )
+      IF tlNoReset
+         THIS.lNoReset = .T.
+      ENDIF
+      DO CASE
+         CASE NOT DODEFAULT( "EngineBehavior", tcValue )
+            RETURN .F.  && early exit
+         CASE THIS.uNewSet == "70"
+            SET EngineBehavior 70
+         CASE THIS.uNewSet == "80"
+            SET EngineBehavior 80
+         CASE THIS.uNewSet == "90"
+            SET EngineBehavior 90
+         OTHERWISE
+            SET EngineBehavior 90
+      ENDCASE
+   ENDPROC  && Init
+
+   PROTECTED PROCEDURE Destroy
+      DO CASE
+         CASE THIS.lNoReset
+            * Do nothing.
+         CASE THIS.uOldSet == "70"
+            SET EngineBehavior 70
+         CASE THIS.uOldSet == "80"
+            SET EngineBehavior 80
+         CASE THIS.uOldSet == "90"
+            SET EngineBehavior 90
+         OTHERWISE
+            SET EngineBehavior 90
+      ENDCASE
+   ENDPROC  && Destroy
+ENDDEFINE  && CLASS SetEngineBehavior AS Set
+
+
 DEFINE CLASS SetEscape AS SetOnOff
    uDefault = "ON"