Yes, a very nice addition;

"references To It" (under "more" in the menu in a Workspace).

The search seems to go for the source code (correct?) and is very fast.

Thank you Levente.

--Hannes


On 4/27/11, Chris Muller <asqueaker at gmail.com> wrote:
> Very nice IDE improvement!
>
> On Tue, Apr 26, 2011 at 6:13 PM,  <commits at source.squeak.org> wrote:
>> Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
>> http://source.squeak.org/trunk/Morphic-ul.530.mcz
>>
>> ==================== Summary ====================
>>
>> Name: Morphic-ul.530
>> Author: ul
>> Time: 27 April 2011, 1:13:07.939 am
>> UUID: b0a03730-6c09-3145-a7a8-f8b21779ae62
>> Ancestors: Morphic-ul.529
>>
>> TextEditor >> #referencesToIt shows references to all kind of variables
>> and globals.
>>
>> =============== Diff against Morphic-ul.529 ===============
>>
>> Item was changed:
>>  ----- Method: TextEditor>>referencesToIt (in category 'menu messages')
>> -----
>>  referencesToIt
>> +       "Open a MessageSet with the references to the selected global or
>> variable name."
>> -       "Open a references browser on the selected symbol"
>>
>> +       | selection environment binding |
>> +       self selectWord.
>> -       | symbol environment binding |
>> -       self selectLine.
>> -       symbol := self selectedSymbol ifNil: [ ^morph flash ].
>>        environment := (model respondsTo: #selectedClassOrMetaClass)
>>                ifTrue: [ model selectedClassOrMetaClass ifNil: [ Smalltalk
>> globals ] ]
>>                ifFalse: [ Smalltalk globals ].
>> +       selection := self selectedSymbol ifNil: [ self selection asString
>> ].
>> +       (environment isBehavior and: [
>> +               (environment instVarIndexFor: selection ifAbsent: [ 0 ])
>> ~= 0 ]) ifTrue: [
>> +                       ^self systemNavigation browseAllAccessesTo:
>> selection from: environment ].
>> +       selection isSymbol ifFalse: [ ^morph flash ].
>> +       binding := (environment bindingOf: selection) ifNil: [ ^morph
>> flash ].
>> -       binding := (environment bindingOf: symbol) ifNil: [ ^morph flash
>> ].
>>        self systemNavigation browseAllCallsOn: binding!
>>
>>
>>
>
>