Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1659.mcz

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

Name: Morphic-mt.1659
Author: mt
Time: 19 May 2020, 2:32:16.407702 pm
UUID: a50918d1-5a41-774e-81c6-696146b0dd2c
Ancestors: Morphic-nice.1658

Like in the code browser, show class icons in object explorer for non-visual objects.

Depends on the browser's #showClassIcons preference as well as #visualExplorer. Routed through ObjectExplorerWrapper in case we decide to decouple those preferences for dependency concerns between Morphic <-> Tools package.

Maybe we should move ObjectExplorerWrapper into the Tools package.

=============== Diff against Morphic-nice.1658 ===============

Item was added:
+ ----- Method: ObjectExplorerWrapper class>>showClassIcons (in category 'preferences') -----
+ showClassIcons
+ 	^ Browser showClassIcons!

Item was added:
+ ----- Method: ObjectExplorerWrapper class>>showClassIcons: (in category 'preferences') -----
+ showClassIcons: aBoolean
+ 	Browser showClassIcons: aBoolean.!

Item was changed:
  ----- Method: ObjectExplorerWrapper>>icon (in category 'accessing') -----
  icon
  	"Answer a form to be used as icon"
  	^ Preferences visualExplorer
  		ifTrue: [([self object iconOrThumbnailOfSize: 12] on: Error do: [nil])
+ 			ifNil: [self class showClassIcons
+ 				ifTrue: [ToolIcons iconNamed: self object class toolIcon]
+ 				ifFalse: [self class showContentsInColumns
+ 					ifTrue: [ToolIcons iconNamed: #blank] 
+ 					ifFalse: [nil]]]]
- 			ifNil: [self class showContentsInColumns
- 				ifTrue: [ToolIcons iconNamed: #blank] 
- 				ifFalse: [nil]]]
  		ifFalse: [nil]!