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]!
packages@lists.squeakfoundation.org