--- a/Parser.st	Fri Apr 11 19:58:08 2003 +0200
+++ b/Parser.st	Mon Apr 21 16:39:40 2003 +0200
@@ -56,6 +56,13 @@
 	privateIn:Parser
 !
 
+Notification subclass:#UndefinedVariableNotification
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Parser
+!
+
 !Parser class methodsFor:'documentation'!
 
 copyright
@@ -281,6 +288,10 @@
 
 parseErrorSignal
     ^ ParseErrorSignal
+!
+
+undefinedVariableNotification
+    ^ UndefinedVariableNotification
 ! !
 
 !Parser class methodsFor:'changes'!
@@ -2435,6 +2446,9 @@
             ^ rslt
         ].
     ].
+    (correctIt isKindOf:ParseNode) ifTrue:[
+        ^ correctIt
+    ].
 
     suggestedNames := self findBestVariablesFor:varName.
     suggestedNames isNil ifTrue:[
@@ -3171,6 +3185,11 @@
         ].
     ].
 
+    doCorrect := UndefinedVariableNotification raiseRequestWith:aName.
+    doCorrect notNil ifTrue:[
+        ^ doCorrect
+    ].
+
 "/    (classToCompileFor notNil 
 "/    and:[classToCompileFor superclass notNil
 "/    and:[classToCompileFor superclass instanceVariableString isNil]]) ifTrue:[
@@ -7130,7 +7149,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.378 2003-04-09 09:15:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.379 2003-04-21 14:39:40 cg Exp $'
 ! !
 
 Parser initialize!