--- a/ParserFlags.st	Tue Jul 09 21:14:20 2013 +0200
+++ b/ParserFlags.st	Sat Jul 13 09:05:24 2013 +0200
@@ -51,7 +51,9 @@
 		allowUnicodeStrings allowUnicodeCharacters allowCharacterEscapes
 		allowStringEscapes allowAssignmentToBlockArgument
 		allowAssignmentToMethodArgument allowAssignmentToPoolVariable
-		lineNumberInfo allowSTXDelimiterComments'
+		lineNumberInfo allowSTXDelimiterComments
+		warnAssignmentToBlockArgument warnAssignmentToMethodArgument
+		warnAssignmentToPoolVariable'
 	classVariableNames:'WarnST80Directives WarnUnusedVars WarnUndeclared
 		WarnAboutWrongVariableNames WarnAboutBadComments
 		WarnAboutVariableNameConventions WarnSTXSpecials
@@ -92,7 +94,8 @@
 		DefineForBorlandC DefineForVisualC DefineForMSVER DefineForMSC
 		DefineForGNUC PerMethodFlags AllowSTXDelimiterComments
 		DefineForMINGW32 DefineForMINGW64 DefineForMINGW
-		ByteArraysAreImmutable'
+		ByteArraysAreImmutable WarnAssignmentToBlockArgument
+		WarnAssignmentToPoolVariable WarnAssignmentToMethodArgument'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -1103,6 +1106,30 @@
     AllowVisualWorksMethodAnnotations := aBoolean
 
     "Created: / 07-07-2006 / 15:49:27 / cg"
+!
+
+warnAssignmentToBlockArgument
+    ^ WarnAssignmentToBlockArgument
+!
+
+warnAssignmentToBlockArgument:aBoolean
+    WarnAssignmentToBlockArgument := aBoolean
+!
+
+warnAssignmentToMethodArgument
+    ^ WarnAssignmentToMethodArgument
+!
+
+warnAssignmentToMethodArgument:aBoolean
+    WarnAssignmentToMethodArgument := aBoolean
+!
+
+warnAssignmentToPoolVariable
+    ^ WarnAssignmentToPoolVariable
+!
+
+warnAssignmentToPoolVariable:aBoolean
+    WarnAssignmentToPoolVariable := aBoolean
 ! !
 
 !ParserFlags class methodsFor:'accessing-warning-control'!
@@ -1452,6 +1479,9 @@
     WarnAboutPeriodInSymbol := true.
     WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant := false.
     WarnPlausibilityChecks := true.
+    WarnAssignmentToBlockArgument := true.
+    WarnAssignmentToMethodArgument := true.
+    WarnAssignmentToPoolVariable := true.  
 
     AllowReservedWordsAsSelectors := false.
     AllowUnderscoreInIdentifier := true.        "/ underscores in identifiers
@@ -1499,6 +1529,8 @@
 
     ArraysAreImmutable := false.                "/ still care for ST-80 compatibility
     StringsAreImmutable := false.               "/ still care for ST-80 compatibility
+    ArraysAreImmutable := true.                 "/ do not care for ST-80 compatibility
+    StringsAreImmutable := true.                "/ do not care for ST-80 compatibility
     ImplicitSelfSends := false.
 
     STCKeepCIntermediate := false.
@@ -1657,30 +1689,6 @@
 
 !ParserFlags methodsFor:'accessing'!
 
-allowAssignmentToBlockArgument
-    ^ allowAssignmentToBlockArgument
-!
-
-allowAssignmentToBlockArgument:something
-    allowAssignmentToBlockArgument := something.
-!
-
-allowAssignmentToMethodArgument
-    ^ allowAssignmentToMethodArgument
-!
-
-allowAssignmentToMethodArgument:something
-    allowAssignmentToMethodArgument := something.
-!
-
-allowAssignmentToPoolVariable
-    ^ allowAssignmentToPoolVariable
-!
-
-allowAssignmentToPoolVariable:something
-    allowAssignmentToPoolVariable := something.
-!
-
 fullLineNumberInfo
     ^ (self lineNumberInfo == #full)
 
@@ -1900,6 +1908,30 @@
     allowArrayIndexSyntaxExtension := aBoolean.
 !
 
+allowAssignmentToBlockArgument
+    ^ allowAssignmentToBlockArgument
+!
+
+allowAssignmentToBlockArgument:aBoolean
+    allowAssignmentToBlockArgument := aBoolean.
+!
+
+allowAssignmentToMethodArgument
+    ^ allowAssignmentToMethodArgument
+!
+
+allowAssignmentToMethodArgument:aBoolean
+    allowAssignmentToMethodArgument := aBoolean.
+!
+
+allowAssignmentToPoolVariable
+    ^ allowAssignmentToPoolVariable
+!
+
+allowAssignmentToPoolVariable:aBoolean
+    allowAssignmentToPoolVariable := aBoolean.
+!
+
 allowCaretAsBinop
     ^ allowCaretAsBinop
 !
@@ -1964,16 +1996,16 @@
     ^ allowExtendedSTXSyntax
 !
 
-allowExtendedSTXSyntax:something
-    allowExtendedSTXSyntax := something.
+allowExtendedSTXSyntax:aBoolean
+    allowExtendedSTXSyntax := aBoolean.
 !
 
 allowFixedPointLiterals
     ^ allowFixedPointLiterals
 !
 
-allowFixedPointLiterals:something
-    allowFixedPointLiterals := something.
+allowFixedPointLiterals:aBoolean
+    allowFixedPointLiterals := aBoolean.
 !
 
 allowFunctionCallSyntaxForBlockEvaluation
@@ -1992,8 +2024,8 @@
     ^ allowLazyValueExtension
 !
 
-allowLazyValueExtension:something
-    allowLazyValueExtension := something.
+allowLazyValueExtension:aBoolean
+    allowLazyValueExtension := aBoolean.
 !
 
 allowLiteralNameSpaceSymbols
@@ -2200,6 +2232,30 @@
     ^ allowVisualWorksMethodAnnotations := aBoolean
 
     "Created: / 07-07-2006 / 15:49:03 / cg"
+!
+
+warnAssignmentToBlockArgument
+    ^ warnAssignmentToBlockArgument
+!
+
+warnAssignmentToBlockArgument:aBoolean
+    warnAssignmentToBlockArgument := aBoolean.
+!
+
+warnAssignmentToMethodArgument
+    ^ warnAssignmentToMethodArgument
+!
+
+warnAssignmentToMethodArgument:aBoolean
+    warnAssignmentToMethodArgument := aBoolean.
+!
+
+warnAssignmentToPoolVariable
+    ^ warnAssignmentToPoolVariable
+!
+
+warnAssignmentToPoolVariable:aBoolean
+    warnAssignmentToPoolVariable := aBoolean.
 ! !
 
 !ParserFlags methodsFor:'accessing-warning-control'!
@@ -2443,6 +2499,9 @@
 !ParserFlags methodsFor:'initialization'!
 
 initialize
+    "each instance is initially setup from the classes global defaults.
+     (but can be changed as required for an individual compilation run"
+
     warnings := Warnings.
     warnUndeclared := WarnUndeclared.
     warnUnusedVars := WarnUnusedVars.
@@ -2468,6 +2527,9 @@
     warnAboutPeriodInSymbol := WarnAboutPeriodInSymbol.
     warnAboutUnknownCharacterEscapesInJavaScriptStringConstant := WarnAboutUnknownCharacterEscapesInJavaScriptStringConstant.
     warnPlausibilityChecks := WarnPlausibilityChecks.
+    warnAssignmentToBlockArgument := WarnAssignmentToBlockArgument.
+    warnAssignmentToMethodArgument := WarnAssignmentToMethodArgument.
+    warnAssignmentToPoolVariable := WarnAssignmentToPoolVariable.  
 
     allowUnderscoreInIdentifier := AllowUnderscoreInIdentifier.
     allowDollarInIdentifier := AllowDollarInIdentifier.
@@ -2542,11 +2604,11 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.109 2013-07-09 19:14:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.110 2013-07-13 07:05:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.109 2013-07-09 19:14:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.110 2013-07-13 07:05:24 cg Exp $'
 ! !