--- a/ParserFlags.st	Mon Jul 03 18:10:23 2006 +0200
+++ b/ParserFlags.st	Fri Jul 07 15:50:37 2006 +0200
@@ -40,7 +40,8 @@
 		stcKeepSTIntermediate stcModulePath stcCompilation
 		stcCompilationIncludes stcCompilationDefines
 		stcCompilationOptions stcPath ccCompilationOptions ccPath
-		linkArgs linkCommand libPath searchedLibraries'
+		linkArgs linkCommand libPath searchedLibraries
+		allowVisualWorksMethodAnnotations'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -65,7 +66,8 @@
 		STCKeepCIntermediate STCKeepOIntermediate STCKeepSTIntermediate
 		STCCompilation STCCompilationIncludes STCCompilationDefines
 		STCCompilationOptions STCPath CCCompilationOptions CCPath
-		LinkArgs LinkCommand LibPath SearchedLibraries'
+		LinkArgs LinkCommand LibPath SearchedLibraries
+		AllowVisualWorksMethodAnnotations'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -654,6 +656,22 @@
     "this allows turning on/off support for V'Age primitives"
 
     AllowVisualAgePrimitives := aBoolean
+!
+
+allowVisualWorksMethodAnnotations
+    "return true, if support for V'Works extended primitive syntax for method annotations."
+
+    ^ AllowVisualWorksMethodAnnotations
+
+    "Created: / 07-07-2006 / 15:49:32 / cg"
+!
+
+allowVisualWorksMethodAnnotations:aBoolean
+    "turn on/off support for V'Works extended primitive syntax for method annotations."
+
+    AllowVisualWorksMethodAnnotations := aBoolean
+
+    "Created: / 07-07-2006 / 15:49:27 / cg"
 ! !
 
 !ParserFlags class methodsFor:'accessing-warning-control'!
@@ -928,6 +946,7 @@
     AllowNationalCharactersInIdentifier := false.
     AllowHashAsBinarySelector := true.
     AllowSTXEOLComments := true.
+    AllowVisualWorksMethodAnnotations := false.
 
     ArraysAreImmutable := false.                "/ no longer care for ST-80 compatibility
     StringsAreImmutable := false.               "/ no longer care for ST-80 compatibility
@@ -979,6 +998,8 @@
     "
      ParserFlags initialize
     "
+
+    "Modified: / 07-07-2006 / 15:50:10 / cg"
 ! !
 
 !ParserFlags methodsFor:'accessing-compilation control'!
@@ -1356,6 +1377,22 @@
     "this allows turning on/off support for V'Age primitives"
 
     allowVisualAgePrimitives := aBoolean
+!
+
+allowVisualWorksMethodAnnotations
+    "return true, if support for V'Works extended primitive syntax for method annotations."
+
+    ^ allowVisualWorksMethodAnnotations
+
+    "Created: / 07-07-2006 / 15:48:30 / cg"
+!
+
+allowVisualWorksMethodAnnotations:aBoolean
+    "turn on/off support for V'Works extended primitive syntax for method annotations."
+
+    ^ allowVisualWorksMethodAnnotations := aBoolean
+
+    "Created: / 07-07-2006 / 15:49:03 / cg"
 ! !
 
 !ParserFlags methodsFor:'accessing-warning-control'!
@@ -1552,6 +1589,7 @@
     allowNationalCharactersInIdentifier := AllowNationalCharactersInIdentifier.
     allowHashAsBinarySelector := AllowHashAsBinarySelector.
     allowSTXEOLComments := AllowSTXEOLComments.
+    allowVisualWorksMethodAnnotations := AllowVisualWorksMethodAnnotations.
 
     arraysAreImmutable := ArraysAreImmutable ? true.
     stringsAreImmutable := StringsAreImmutable ? true.
@@ -1577,12 +1615,14 @@
      ParserFlags initialize.
      self new inspect.
     "
+
+    "Modified: / 07-07-2006 / 15:50:19 / cg"
 ! !
 
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.27 2006-05-09 09:40:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.28 2006-07-07 13:50:37 cg Exp $'
 ! !
 
 ParserFlags initialize!