--- a/Parser.st	Wed Jun 09 11:46:25 2004 +0200
+++ b/Parser.st	Wed Jun 09 11:47:58 2004 +0200
@@ -513,6 +513,30 @@
     "Created: / 3.8.1998 / 14:53:28 / cg"
 !
 
+warnAboutVariableNameConventions 
+    "controls generation of warning messages about wrong variable names"
+    
+    ^ WarnAboutVariableNameConventions
+!
+
+warnAboutVariableNameConventions:aBoolean 
+    "controls generation of warning messages about wrong variable names"
+    
+    WarnAboutVariableNameConventions := aBoolean
+!
+
+warnAboutWrongVariableNames
+    "controls generation of warning messages about wrong variable names"
+    
+    ^ WarnAboutWrongVariableNames
+!
+
+warnAboutWrongVariableNames:aBoolean
+    "controls generation of warning messages about wrong variable names"
+    
+    WarnAboutWrongVariableNames := aBoolean
+!
+
 warnUnusedVars
     "controls generation of warning messages about unued method variables"
 
@@ -7583,7 +7607,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.428 2004-06-09 09:46:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.429 2004-06-09 09:47:58 cg Exp $'
 ! !
 
 Parser initialize!