Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.528.mcz

==================== Summary ====================

Name: Morphic-nice.528
Author: nice
Time: 2 April 2011, 9:24:08.668 pm
UUID: 6156e54d-eaf7-4b14-8a5c-15bc9a981346
Ancestors: Morphic-nice.527, Morphic-ul.527

Merge

=============== Diff against Morphic-nice.527 ===============

Item was added:
+ ----- Method: TextEditor>>model (in category 'accessing') -----
+ model
+ 
+ 	^model!

Item was changed:
  ----- Method: TextEditor>>referencesToIt (in category 'menu messages') -----
  referencesToIt
  	"Open a references browser on the selected symbol"
  
+ 	| symbol environment binding |
- 	| aSymbol |
  	self selectLine.
+ 	symbol := self selectedSymbol ifNil: [ ^morph flash ].
+ 	environment := (model respondsTo: #selectedClassOrMetaClass)
+ 		ifTrue: [ model selectedClassOrMetaClass ifNil: [ Smalltalk globals ] ]
+ 		ifFalse: [ Smalltalk globals ].
+ 	binding := (environment bindingOf: symbol) ifNil: [ ^morph flash ].
+ 	self systemNavigation browseAllCallsOn: binding!
- 	((aSymbol := self selectedSymbol) == nil or:
- 		[(Smalltalk globals includesKey: aSymbol) not])
- 			ifTrue: [^ morph flash].
- 
- 	self systemNavigation browseAllCallsOn: (Smalltalk globals associationAt: self selectedSymbol)!