--- a/AbstractSettingsApplication.st Mon Feb 06 12:37:09 2012 +0100
+++ b/AbstractSettingsApplication.st Tue Feb 07 17:08:10 2012 +0100
@@ -34,11 +34,12 @@
warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
allowUnderscore allowDolphinExtensions allowSqueakExtensions
- allowVisualAgeESSymbolLiterals allowFixedPointLiterals
- justInTimeCompilation canLoadBinaries constantFoldingSelection
- keepSource constantFolding constantFoldingOptions
- fullDebugSupport immutableArrays enableUnderscore enableDollar
- allowEmptyStatements warnAboutPossibleSTCCompilationProblems
+ allowVisualAgeESSymbolLiterals allowVisualAgePrimitives
+ allowFixedPointLiterals justInTimeCompilation canLoadBinaries
+ constantFoldingSelection keepSource constantFolding
+ constantFoldingOptions fullDebugSupport immutableArrays
+ enableUnderscore enableDollar allowEmptyStatements
+ warnAboutPossibleSTCCompilationProblems
warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
warnAboutPossiblyUnimplementedSelectors
allowExtendedBinarySelectors warnAboutMissingMethodComment
@@ -1227,6 +1228,13 @@
extent: (Point 665 22)
)
(CheckBoxSpec
+ label: 'Allow VisualAge Primitives'
+ name: 'CheckBox8'
+ model: allowVisualAgePrimitives
+ translateLabel: true
+ extent: (Point 665 22)
+ )
+ (CheckBoxSpec
label: 'Allow FixedPoint-Number Literals'
name: 'AllowFixedPointLiterals'
model: allowFixedPointLiterals
@@ -1576,6 +1584,7 @@
allowSqueakExtensions
allowUnderscoreInIdentifier
allowVisualAgeESSymbolLiterals
+ allowVisualAgePrimitives
allowFixedPointLiterals
allowEmptyStatements
allowExtendedBinarySelectors
@@ -1709,6 +1718,17 @@
^ allowVisualAgeESSymbolLiterals.
!
+allowVisualAgePrimitives
+
+ allowVisualAgePrimitives isNil ifTrue:[
+ allowVisualAgePrimitives := ParserFlags allowVisualAgePrimitives asValue.
+ allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ allowVisualAgePrimitives.
+
+ "Created: / 07-02-2012 / 17:06:19 / cg"
+!
+
arraysAreImmutable
immutableArrays isNil ifTrue:[
@@ -16725,9 +16745,9 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.422 2012-02-06 11:33:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.423 2012-02-07 16:08:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.422 2012-02-06 11:33:11 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.423 2012-02-07 16:08:10 cg Exp $'
+! !