[Pkg] The Trunk: Morphic-ul.527.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Apr 1 23:38:40 UTC 2011


Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.527.mcz

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

Name: Morphic-ul.527
Author: ul
Time: 2 April 2011, 1:36:51.526 am
UUID: d571ac0f-9ba7-3042-8746-7222f60f5cb5
Ancestors: Morphic-nice.526, Morphic-ul.526

merged

=============== Diff against Morphic-nice.526 ===============

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)!



More information about the Packages mailing list