# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1205142610 -3600
# Node ID 0625ff661e53df43b483c9036b957efaccd2d246
# Parent  310c2333bd761d53514bd10451d875cf581bb7eb
+warnAboutShortVariableNames

diff -r 310c2333bd76 -r 0625ff661e53 ParserFlags.st
--- a/ParserFlags.st	Mon Mar 10 08:09:41 2008 +0100
+++ b/ParserFlags.st	Mon Mar 10 10:50:10 2008 +0100
@@ -43,7 +43,8 @@
 		stcKeepOIntermediate stcKeepSTIntermediate stcModulePath
 		stcCompilation stcCompilationIncludes stcCompilationDefines
 		stcCompilationOptions stcPath ccCompilationOptions ccPath
-		linkArgs linkSharedArgs linkCommand libPath searchedLibraries'
+		linkArgs linkSharedArgs linkCommand libPath searchedLibraries
+		warnAboutShortLocalVariableNames'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -73,7 +74,8 @@
 		STCCompilation STCCompilationIncludes STCCompilationDefines
 		STCCompilationOptions STCPath CCCompilationOptions CCPath
 		LinkArgs LinkSharedArgs LinkCommand LibPath SearchedLibraries
-		MakeCommand WarnAboutReferenceToPrivateClass'
+		MakeCommand WarnAboutReferenceToPrivateClass
+		WarnAboutShortLocalVariableNames'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -1037,6 +1039,7 @@
     WarnHiddenVariables := true.
     WarnInconsistentReturnValues := true.
     WarnAboutNonLowercaseLocalVariableNames := true.
+    WarnAboutShortLocalVariableNames := true.
     WarnAboutPossibleSTCCompilationProblems := true.
     WarnAboutReferenceToPrivateClass := true.
 
@@ -1599,6 +1602,14 @@
     warnAboutReferenceToPrivateClass := aBoolean
 !
 
+warnAboutShortLocalVariableNames
+    ^ warnAboutShortLocalVariableNames
+!
+
+warnAboutShortLocalVariableNames:aBoolean
+    warnAboutShortLocalVariableNames := aBoolean.
+!
+
 warnAboutVariableNameConventions
     ^ warnAboutVariableNameConventions
 !
@@ -1755,6 +1766,7 @@
     warnHiddenVariables := WarnHiddenVariables.
     warnInconsistentReturnValues := WarnInconsistentReturnValues.
     warnAboutNonLowercaseLocalVariableNames := WarnAboutNonLowercaseLocalVariableNames.
+    warnAboutShortLocalVariableNames := WarnAboutShortLocalVariableNames.
     warnAboutPossibleSTCCompilationProblems := WarnAboutPossibleSTCCompilationProblems.
 
     allowUnderscoreInIdentifier := AllowUnderscoreInIdentifier.
@@ -1818,7 +1830,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.39 2008-02-26 10:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.40 2008-03-10 09:50:10 cg Exp $'
 ! !
 
 ParserFlags initialize!