[squeak-dev] The Inbox: Morphic-cmm.1838.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 10 00:40:32 UTC 2022
Chris Muller uploaded a new version of Morphic to project The Inbox:
http://source.squeak.org/inbox/Morphic-cmm.1838.mcz
==================== Summary ====================
Name: Morphic-cmm.1838
Author: cmm
Time: 9 January 2022, 6:40:28.562851 pm
UUID: 44f58dc2-b94c-476a-aa46-17a4a564c65e
Ancestors: Morphic-mt.1837
Revert Morphic-mt.1652 because it corrupts the representation of a valid execution flow in MessageTrace and prevents spawning of independent traces.
=============== Diff against Morphic-mt.1837 ===============
Item was changed:
----- Method: TextEditor>>browseIt (in category 'menu messages') -----
browseIt
"Launch a browser for the current selection, if appropriate."
Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt].
self lineSelectAndEmptyCheck: [^ morph flash].
"First, try to show all accesses to instance or class variables."
self selectedInstanceVariable ifNotNil:
[:nameToClass | self systemNavigation
browseAllAccessesTo: nameToClass key
from: nameToClass value].
self selectedClassVariable ifNotNil:
+ [:binding | self systemNavigation browseAllCallsOn: binding].
- [:binding | self model browseAllCallsOn: binding].
"Then, either browse the class (from a binding) or all implementors of a selector."
self selectedBinding ifNotNil:
[:binding | ^ self systemNavigation browseClass: binding].
self selectedSelector ifNotNil:
+ [:selector | ^ self systemNavigation browseAllImplementorsOf: selector].
- [:selector | ^ self model browseAllImplementorsOf: selector].
morph flash!
Item was changed:
----- Method: TextEditor>>sendersOfIt (in category 'menu messages') -----
sendersOfIt
"Open a senders browser on the selected selector"
self lineSelectAndEmptyCheck: [^ self].
+ self selectedSelector ifNotNil:
+ [:aSelector| ^self systemNavigation browseAllCallsOn: aSelector].
+ self selectedLiteral ifNotNil:
+ [:aLiteral| ^self systemNavigation browseAllCallsOn: aLiteral].
+ morph flash!
- self selectedSelector ifNotNil: [:aSelector |
- ^ self model browseAllCallsOn: aSelector].
- self selectedLiteral ifNotNil: [:aLiteral |
- ^ self model browseAllCallsOn: aLiteral].
- morph flash.!
More information about the Squeak-dev
mailing list
|