[Pkg] The Trunk: Morphic-ul.526.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Apr 1 23:39:29 UTC 2011
Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.526.mcz
==================== Summary ====================
Name: Morphic-ul.526
Author: ul
Time: 30 March 2011, 4:52:11.048 am
UUID: e80a9f4c-0a19-fd4f-9847-2d8834e29558
Ancestors: Morphic-dtl.525
- added an accessor for TextEditor's model
- updated TextEditor >> #referencesToIt to find bindings using the model if possible. This makes it possible to find references to variables from a shared pool from a browser.
=============== Diff against Morphic-dtl.525 ===============
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