--- a/ParserFlags.st	Tue Jan 24 18:51:29 2006 +0100
+++ b/ParserFlags.st	Wed Jan 25 10:49:45 2006 +0100
@@ -20,11 +20,12 @@
 		warnCommonMistakes warnSTXNameSpaceUse
 		warnPossibleIncompatibilities warnDollarInIdentifier
 		warnHiddenVariables warnAboutVariableNameConventions
-		warnAboutWrongVariableNames allowLiteralNameSpaceSymbols
-		allowUnderscoreInIdentifier allowDollarInIdentifier
-		allowOldStyleAssignment allowSqueakExtensions
-		allowDolphinExtensions allowExtendedBinarySelectors
-		allowQualifiedNames allowFunctionCallSyntaxForBlockEvaluation
+		warnAboutWrongVariableNames warnAboutBadComments
+		allowLiteralNameSpaceSymbols allowUnderscoreInIdentifier
+		allowDollarInIdentifier allowOldStyleAssignment
+		allowSqueakExtensions allowDolphinExtensions
+		allowExtendedBinarySelectors allowQualifiedNames
+		allowFunctionCallSyntaxForBlockEvaluation
 		allowLocalVariableDeclarationWithInitializerExpression
 		allowDomainVariables allowArrayIndexSyntaxExtension
 		allowReservedWordsAsSelectors allowVariableReferences
@@ -32,8 +33,9 @@
 		allowExtendedSTXSyntax arraysAreImmutable stringsAreImmutable
 		implicitSelfSends'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
-		WarnAboutWrongVariableNames WarnAboutVariableNameConventions
-		WarnSTXSpecials WarnOldStyleAssignment WarnUnderscoreInIdentifier
+		WarnAboutWrongVariableNames WarnAboutBadComments
+		WarnAboutVariableNameConventions WarnSTXSpecials
+		WarnOldStyleAssignment WarnUnderscoreInIdentifier
 		WarnCommonMistakes WarnPossibleIncompatibilities
 		WarnDollarInIdentifier WarnHiddenVariables Warnings
 		AllowUnderscoreInIdentifier
@@ -346,6 +348,18 @@
 
 !ParserFlags class methodsFor:'accessing-warning-control'!
 
+warnAboutBadComments
+    "controls generation of warning messages about empty comments"
+    
+    ^ WarnAboutBadComments
+!
+
+warnAboutBadComments:aBoolean
+    "controls generation of warning messages about empty comments"
+    
+    WarnAboutBadComments := aBoolean
+!
+
 warnAboutVariableNameConventions 
     "controls generation of warning messages about wrong variable names"
     
@@ -528,6 +542,7 @@
     WarnST80Directives := false.
     WarnAboutWrongVariableNames := true.
     WarnAboutVariableNameConventions := true.
+    WarnAboutBadComments := true.
     WarnUnderscoreInIdentifier := false.
     WarnDollarInIdentifier := true.
     WarnOldStyleAssignment := true.
@@ -736,6 +751,14 @@
     stringsAreImmutable := aBoolean.
 !
 
+warnAboutBadComments
+    ^ warnAboutBadComments
+!
+
+warnAboutBadComments:aBoolean
+    warnAboutBadComments := aBoolean.
+!
+
 warnAboutVariableNameConventions
     ^ warnAboutVariableNameConventions
 !
@@ -864,6 +887,7 @@
     warnPossibleIncompatibilities := WarnPossibleIncompatibilities.
     warnAboutVariableNameConventions := WarnAboutVariableNameConventions.
     warnAboutWrongVariableNames := WarnAboutWrongVariableNames.
+    warnAboutBadComments := WarnAboutBadComments.
     warnHiddenVariables := WarnHiddenVariables.
 
     allowUnderscoreInIdentifier := AllowUnderscoreInIdentifier.
@@ -897,7 +921,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.2 2005-10-18 16:04:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.3 2006-01-25 09:49:45 cg Exp $'
 ! !
 
 ParserFlags initialize!