[squeak-dev] The Trunk: Morphic-mt.1666.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jun 8 09:13:55 UTC 2020

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

==================== Summary ====================

Name: Morphic-mt.1666
Author: mt
Time: 8 June 2020, 11:13:50.055961 am
UUID: 8be3a7c3-69d8-2845-8a7c-759c8bfd1470
Ancestors: Morphic-mt.1665

Adds a small hook to support parent-controlled print-strings for objects in the object explorer. Parent objects would return custom subclasses of ObjectExplorerWrapper when ansering the #explorerContents. Think of, for example, custom string representations for numbers being embedded in your domain objects.

=============== Diff against Morphic-mt.1665 ===============

Item was changed:
  ----- Method: ObjectExplorerWrapper>>asString (in category 'converting') -----
  	| explorerString label separator |
  	explorerString := 
+ 		[self objectString]
- 		[self object asExplorerString]
  			on: Error 
  			do: ['<error: ', self object class name, ' in asExplorerString: evaluate "' , self itemName , ' asExplorerString" to debug>'].
  	(explorerString includes: Character cr)
  		ifTrue: [explorerString := explorerString withSeparatorsCompacted].
  	label := self itemName ifNil: [''].
  	(label includes: Character cr)
  		ifTrue: [label := label withSeparatorsCompacted].
  	separator := self class showContentsInColumns
  		ifTrue: [String tab]
  		ifFalse: [label ifEmpty: [''] ifNotEmpty: [': ']].
  	^ '{1}{2}{3}' format: {label. separator. explorerString}!

Item was added:
+ ----- Method: ObjectExplorerWrapper>>objectString (in category 'accessing') -----
+ objectString
+ 	"Answers a string representation of the object that well be combined with #itemName when requested from the tree model. Overwrite this in custom wrappers to modify parent-specific representations without having to modify #asExplorerString in the particular object."
+ 	^ self object asExplorerString!

More information about the Squeak-dev mailing list