--- 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 $'
! !