[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:

==================== 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