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!
packages@lists.squeakfoundation.org