--- a/ParserFlags.st	Tue Jan 31 17:14:49 2006 +0100
+++ b/ParserFlags.st	Fri Feb 03 17:06:37 2006 +0100
@@ -30,8 +30,8 @@
 		allowDomainVariables allowArrayIndexSyntaxExtension
 		allowReservedWordsAsSelectors allowVariableReferences
 		allowLazyValueExtension allowFixedPointLiterals
-		allowExtendedSTXSyntax arraysAreImmutable stringsAreImmutable
-		implicitSelfSends'
+		allowExtendedSTXSyntax allowVisualAgeESSymbolLiterals
+		arraysAreImmutable stringsAreImmutable implicitSelfSends'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -47,7 +47,8 @@
 		AllowDolphinExtensions AllowOldStyleAssignment
 		AllowExtendedBinarySelectors AllowExtendedSTXSyntax
 		AllowFixedPointLiterals AllowLiteralNameSpaceSymbols
-		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends'
+		ArraysAreImmutable StringsAreImmutable ImplicitSelfSends
+		AllowVisualAgeESSymbolLiterals'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -344,6 +345,18 @@
     AllowUnderscoreInIdentifier := aBoolean.
 
     "Modified: 7.9.1997 / 01:35:19 / cg"
+!
+
+allowVisualAgeESSymbolLiterals
+    "return true, if ##symbols are allowed (treated like symbols)"
+
+    ^ AllowVisualAgeESSymbolLiterals
+!
+
+allowVisualAgeESSymbolLiterals:aBoolean
+    "if on, visualAge's ##symbols are allowed (treated like symbols)"
+
+    AllowVisualAgeESSymbolLiterals := aBoolean.
 ! !
 
 !ParserFlags class methodsFor:'accessing-warning-control'!
@@ -569,6 +582,7 @@
     AllowLazyValueExtension := false.
     AllowFixedPointLiterals := false.
     AllowExtendedSTXSyntax := false.
+    AllowVisualAgeESSymbolLiterals := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -727,6 +741,14 @@
     allowVariableReferences := aBoolean.
 !
 
+allowVisualAgeESSymbolLiterals
+    ^ allowVisualAgeESSymbolLiterals
+!
+
+allowVisualAgeESSymbolLiterals:aBoolean
+    allowVisualAgeESSymbolLiterals := aBoolean.
+!
+
 arraysAreImmutable
     ^ arraysAreImmutable
 !
@@ -907,6 +929,7 @@
     allowFixedPointLiterals := AllowFixedPointLiterals.
     allowExtendedSTXSyntax := AllowExtendedSTXSyntax.
     allowQualifiedNames := AllowQualifiedNames.
+    allowVisualAgeESSymbolLiterals := AllowVisualAgeESSymbolLiterals.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -921,7 +944,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.3 2006-01-25 09:49:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.4 2006-02-03 16:06:37 cg Exp $'
 ! !
 
 ParserFlags initialize!