AbstractLauncherApplication.st
changeset 2287 12127e8bcf4e
parent 2285 23b173086610
child 2288 050cd24be9de
--- a/AbstractLauncherApplication.st	Mon Jul 19 18:36:37 1999 +0200
+++ b/AbstractLauncherApplication.st	Tue Jul 20 17:39:51 1999 +0200
@@ -1529,7 +1529,8 @@
     "open a dialog on compiler related settings"
 
     |box warnings warnSTX warnUnderscore warnDollar warnOldStyle 
-     allowDollar allowUnderscore allowSqueakExtensions immutableArrays
+     allowDollar allowUnderscore allowSqueakExtensions allowQualifiedNames
+     immutableArrays
      warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
      warnCompatibility warnCompatibilityBox warnDollarBox
      stcCompilation compilationList stcCompilationOptions 
@@ -1558,6 +1559,7 @@
     allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
     allowDollar := Compiler allowDollarInIdentifier asValue.
     allowSqueakExtensions := Compiler allowSqueakExtensions asValue.
+    allowQualifiedNames := Compiler allowQualifiedNames asValue.
     immutableArrays := Compiler arraysAreImmutable asValue.
 
     constantFoldingOptions := #( nil #level1 #level2 #full ).
@@ -1631,7 +1633,8 @@
     warnings onChangeSend:#value to:warnEnabler.
     allowUnderscore onChangeSend:#value to:warnEnabler.
     allowDollar onChangeSend:#value to:warnEnabler.
-    allowSqueakExtensions onChangeSend:#value to:warnEnabler.
+"/    allowSqueakExtensions onChangeSend:#value to:warnEnabler.
+"/    allowQualifiedNames onChangeSend:#value to:warnEnabler.
 
     box := DialogBox new.
     box label:(resources string:'Compiler settings').
@@ -1705,6 +1708,10 @@
 
     component := box addCheckBox:(resources string:'allow squeak syntax extensions') on:allowSqueakExtensions.
     component width:0.4.
+
+    component := box addCheckBox:(resources string:'allow vw3 qualifiedNames') on:allowQualifiedNames.
+    component width:0.4.
+
     y2 := box yPosition.
 
     box yPosition:y.
@@ -1786,6 +1793,7 @@
         Compiler allowUnderscoreInIdentifier:allowUnderscore value.
         Compiler allowDollarInIdentifier:allowDollar value.
         Compiler allowSqueakExtensions:allowSqueakExtensions value.
+        Compiler allowQualifiedNames:allowQualifiedNames value.
         Compiler arraysAreImmutable:immutableArrays value.
         fullDebugSupport value ifTrue:[
             Compiler lineNumberInfo:#full.
@@ -4740,5 +4748,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.63 1999-07-19 13:47:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.64 1999-07-20 15:39:51 cg Exp $'
 ! !