Joshua Gargus uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-jcg.147.mcz
==================== Summary ====================
Name: Compiler-jcg.147 Author: jcg Time: 23 June 2010, 12:04:54.856 pm UUID: 714d775f-78af-45dc-affc-b33d59d68da5 Ancestors: Compiler-nice.146
Change Parser>>correctVariable:interval: to allow it to look up the proposed variable in the requestor even if it starts with an uppercase letter.
=============== Diff against Compiler-nice.146 ===============
Item was changed: ----- Method: Parser>>correctVariable:interval: (in category 'error correction') ----- correctVariable: proposedVariable interval: spot "Correct the proposedVariable to a known variable, or declare it as a new variable if such action is requested. We support declaring lowercase variables as temps or inst-vars, and uppercase variables as Globals or ClassVars, depending on whether the context is nil (class=UndefinedObject). Spot is the interval within the test stream of the variable. rr 3/4/2004 10:26 : adds the option to define a new class. "
"Check if this is an i-var, that has been corrected already (ugly)"
"Display the pop-up menu"
+ | binding userSelection action | - | tempIvar binding userSelection action | (encoder classEncoding instVarNames includes: proposedVariable) ifTrue: [^InstanceVariableNode new name: proposedVariable index: (encoder classEncoding allInstVarNames indexOf: proposedVariable)].
"If we can't ask the user for correction, make it undeclared" self interactive ifFalse: [^encoder undeclared: proposedVariable].
"First check to see if the requestor knows anything about the variable" + (binding := requestor bindingOf: proposedVariable) + ifNotNil: [^encoder global: binding name: proposedVariable]. - tempIvar := proposedVariable first isLowercase. - (tempIvar and: [(binding := requestor bindingOf: proposedVariable) notNil]) - ifTrue: [^encoder global: binding name: proposedVariable]. userSelection := requestor selectionInterval. requestor selectFrom: spot first to: spot last. requestor select.
"Build the menu with alternatives" action := UndeclaredVariable signalFor: self name: proposedVariable inRange: spot. action ifNil: [^self fail].
"Execute the selected action" requestor deselect. requestor selectInvisiblyFrom: userSelection first to: userSelection last. ^action value!