[squeak-dev] The Trunk: Morphic-mt.2090.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Feb 22 15:38:30 UTC 2023
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2090.mcz
==================== Summary ====================
Name: Morphic-mt.2090
Author: mt
Time: 22 February 2023, 4:38:27.47455 pm
UUID: bb357426-f611-f640-852b-988bd0cdb664
Ancestors: Morphic-mt.2089
Use correct code browser when dropping a class onto the world.
Note that "SystemBrowser" is an AppRegistry like ToolSet. "Browser" is in this regard an implementation detail.
=============== Diff against Morphic-mt.2089 ===============
Item was changed:
----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') -----
dropSourceCode: anObject event: evt
(anObject isMethodReference and: [anObject isValid])
ifTrue: [^ self dropSourceCode: anObject compiledMethod event: evt].
(anObject isClassReference and: [anObject isValid])
ifTrue: [^ self dropSourceCode: anObject actualClass event: evt].
(anObject isBehavior or: [anObject isCompiledMethod])
ifTrue: [
| tool window |
tool := anObject isBehavior
+ ifTrue: [SystemBrowser default new
- ifTrue: [Browser new
setClass: anObject]
ifFalse: [CodeHolder new
setClass: anObject methodClass
selector: anObject selector].
window := ToolBuilder open: tool.
window center: evt position.
window bounds: (window bounds translatedToBeWithin: self bounds)].
anObject isString
ifTrue: [anObject edit].!
More information about the Squeak-dev
mailing list
|