--- a/ParserFlags.st	Wed Feb 08 16:16:39 2006 +0100
+++ b/ParserFlags.st	Wed Feb 08 16:22:24 2006 +0100
@@ -14,7 +14,7 @@
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#ParserFlags
-	instanceVariableNames:'warnUnusedVars warnUndeclared warnST80Directives
+	instanceVariableNames:'warnings warnUnusedVars warnUndeclared warnST80Directives
 		warnSTXHereExtensionUsed warnSTXSpecialComment
 		warnUnderscoreInIdentifier warnOldStyleAssignment
 		warnCommonMistakes warnSTXNameSpaceUse
@@ -1186,11 +1186,20 @@
 
 warnUnusedVars:aBoolean
     warnUnusedVars := aBoolean.
+!
+
+warnings
+    ^ warnings
+!
+
+warnings:something
+    warnings := something.
 ! !
 
 !ParserFlags methodsFor:'initialization'!
 
 initialize
+    warnings := Warnings.
     warnUndeclared := WarnUndeclared.
     warnUnusedVars := WarnUnusedVars.
     warnST80Directives := WarnST80Directives.
@@ -1255,7 +1264,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.6 2006-02-08 15:13:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.7 2006-02-08 15:22:24 cg Exp $'
 ! !
 
 ParserFlags initialize!