--- a/AbstractLauncherApplication.st	Thu May 02 16:43:44 2002 +0200
+++ b/AbstractLauncherApplication.st	Fri May 03 14:14:37 2002 +0200
@@ -2200,7 +2200,7 @@
 
     |box warnings warnSTX warnUnderscore warnDollar warnOldStyle warnUnusedVars
      allowDollar allowUnderscore allowSqueakExtensions allowQualifiedNames
-     allowDolphinExtensions   
+     allowDolphinExtensions allowOldStyleAssignment  
      immutableArrays
      warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
      warnCompatibility warnCompatibilityBox warnDollarBox warnUnusedVarsBox
@@ -2233,6 +2233,7 @@
     allowSqueakExtensions := Compiler allowSqueakExtensions asValue.
     allowDolphinExtensions := Compiler allowDolphinExtensions asValue.
     allowQualifiedNames := Compiler allowQualifiedNames asValue.
+    allowOldStyleAssignment := Compiler allowOldStyleAssignment asValue.
     immutableArrays := Compiler arraysAreImmutable asValue.
 
     constantFoldingOptions := #( nil #level1 #level2 #full ).
@@ -2399,6 +2400,9 @@
     component superView left:0.5; width:0.5.
     constantFolding selectionIndex:( constantFoldingOptions indexOf:(Compiler foldConstants) ifAbsent:1).
 
+    component := box addCheckBox:(resources string:'allow oldStyle assignment (_)') on:allowOldStyleAssignment.
+    component left:0.5; width:0.4.
+
     component := box addCheckBox:(resources string:'full debug info') on:fullDebugSupport.
     component left:0.5; width:0.4.
 
@@ -2478,6 +2482,8 @@
         Compiler allowSqueakExtensions:allowSqueakExtensions value.
         Compiler allowDolphinExtensions:allowDolphinExtensions value.
         Compiler allowQualifiedNames:allowQualifiedNames value.
+        Compiler allowOldStyleAssignment:allowOldStyleAssignment value.
+
         Compiler arraysAreImmutable:immutableArrays value.
         fullDebugSupport value ifTrue:[
             Compiler lineNumberInfo:#full.
@@ -6425,5 +6431,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.193 2002-02-28 16:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.194 2002-05-03 12:14:37 cg Exp $'
 ! !