[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