--- a/AbstractSettingsApplication.st Fri Feb 17 13:14:51 2006 +0100
+++ b/AbstractSettingsApplication.st Fri Feb 17 15:46:57 2006 +0100
@@ -27,9 +27,10 @@
allowQualifiedNames allowDollar allowReservedWordsAsSelectors
allowOldStyleAssignment allowUnderscore allowDolphinExtensions
allowSqueakExtensions allowVisualAgeESSymbolLiterals
- justInTimeCompilation canLoadBinaries constantFoldingSelection
- keepSource constantFolding constantFoldingOptions
- fullDebugSupport immutableArrays enableUnderscore enableDollar'
+ allowFixedPointLiterals justInTimeCompilation canLoadBinaries
+ constantFoldingSelection keepSource constantFolding
+ constantFoldingOptions fullDebugSupport immutableArrays
+ enableUnderscore enableDollar'
classVariableNames:''
poolDictionaries:''
privateIn:AbstractSettingsApplication
@@ -684,6 +685,13 @@
translateLabel: true
extent: (Point 665 22)
)
+ (CheckBoxSpec
+ label: 'Allow FixedPoint-Number Literals'
+ name: 'AllowFixedPointLiterals'
+ model: allowFixedPointLiterals
+ translateLabel: true
+ extent: (Point 665 22)
+ )
)
)
@@ -896,6 +904,7 @@
ParserFlags allowOldStyleAssignment:self allowOldStyleAssignment value.
ParserFlags allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ParserFlags allowVisualAgeESSymbolLiterals:self allowVisualAgeESSymbolLiterals value.
+ ParserFlags allowFixedPointLiterals:self allowFixedPointLiterals value.
ParserFlags arraysAreImmutable:self immutableArrays value.
self fullDebugSupport value ifTrue:[
@@ -930,6 +939,7 @@
self allowSqueakExtensions value:(ParserFlags allowSqueakExtensions ? false).
self allowUnderscore value:(ParserFlags allowUnderscoreInIdentifier ? false).
self allowVisualAgeESSymbolLiterals value:(ParserFlags allowVisualAgeESSymbolLiterals ? false).
+ self allowFixedPointLiterals value:(ParserFlags allowFixedPointLiterals ? false).
self constantFoldingSelection
value:(self class constantFoldingOptions indexOf:Compiler foldConstants
@@ -986,6 +996,15 @@
^ allowDolphinExtensions.
!
+allowFixedPointLiterals
+
+ allowFixedPointLiterals isNil ifTrue:[
+ allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
+ allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
+ ].
+ ^ allowFixedPointLiterals.
+!
+
allowOldStyleAssignment
allowOldStyleAssignment isNil ifTrue:[
@@ -1258,6 +1277,7 @@
((ParserFlags allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) ifTrue:[^ true].
((ParserFlags allowDollarInIdentifier ? false) ~= self allowDollar value) ifTrue:[^ true].
((ParserFlags allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) ifTrue:[^ true].
+ ((ParserFlags allowFixedPointLiterals ? false) ~= self allowFixedPointLiterals value) ifTrue:[^ true].
((ParserFlags allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) ifTrue:[^ true].
((ParserFlags allowQualifiedNames ? false) ~= self allowQualifiedNames value) ifTrue:[^ true].
((ParserFlags allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) ifTrue:[^ true].
@@ -11957,5 +11977,5 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.214 2006-02-08 15:33:04 cg Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.215 2006-02-17 14:46:57 cg Exp $'
+! !