[squeak-dev] The Trunk: Morphic-mt.1791.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Nov 19 15:41:09 UTC 2021
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1791.mcz
==================== Summary ====================
Name: Morphic-mt.1791
Author: mt
Time: 19 November 2021, 4:40:57.558971 pm
UUID: 446440ff-1c9e-3a4a-af60-7f6f7dc26ea7
Ancestors: Morphic-eem.1790
Open a class browser when dropping a class into the world. Extends existing method-dropping behavior.
See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-October/216734.html
=============== Diff against Morphic-eem.1790 ===============
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 isBehavior or: [anObject isCompiledMethod])
- anObject isCompiledMethod
ifTrue: [
| tool window |
+ tool := anObject isBehavior
+ ifTrue: [Browser new
+ setClass: anObject]
+ ifFalse: [CodeHolder new
+ setClass: anObject methodClass
+ selector: anObject selector].
- tool := 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
|