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].!