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

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

Name: Morphic-mt.1896
Author: mt
Time: 14 February 2022, 11:25:04.903768 am
UUID: 683e3656-fae6-8a48-9c92-0690aeec2776
Ancestors: Morphic-mt.1895

Fixes regression of icon scaling in tree morphs.

=============== Diff against Morphic-mt.1895 ===============

Item was changed:
  ScrollPane subclass: #SimpleHierarchicalListMorph
  	instanceVariableNames: 'selectedMorph hoveredMorph getListSelector keystrokeActionSelector autoDeselect columns columnsCache sortingSelector getSelectionSelector setSelectionSelector potentialDropMorph lineColor font textColor'
+ 	classVariableNames: 'ExpandedForm NotExpandedForm WrappedNavigation'
- 	classVariableNames: 'WrappedNavigation'
  	poolDictionaries: ''
  	category: 'Morphic-Explorer'!
- SimpleHierarchicalListMorph class
- 	instanceVariableNames: 'expandedForm notExpandedForm'!
  
  !SimpleHierarchicalListMorph commentStamp: 'ls 3/1/2004 12:15' prior: 0!
  Display a hierarchical list of items.  Each item should be wrapped with a ListItemWrapper.
  
  For a simple example, look at submorphsExample.  For beefier examples, look at ObjectExplorer or FileList2.!
- SimpleHierarchicalListMorph class
- 	instanceVariableNames: 'expandedForm notExpandedForm'!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') -----
  applyUserInterfaceTheme
  
+ 	ExpandedForm := nil.
+ 	NotExpandedForm := nil.!
- 	expandedForm := nil.
- 	notExpandedForm := nil.!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') -----
  expandedForm
+ 	ExpandedForm
+ 		ifNotNil: [ExpandedForm depth ~= Display depth
+ 				ifTrue: [ExpandedForm := nil]].
+ 	^ ExpandedForm
+ 		ifNil: [ExpandedForm := ((Form
- 	expandedForm
- 		ifNotNil: [expandedForm depth ~= Display depth
- 				ifTrue: [expandedForm := nil]].
- 	^ expandedForm
- 		ifNil: [expandedForm := ((Form
  						extent: 10 @ 9
  						depth: 8
  						fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 )
  						offset: 0 @ 0)
  						asFormOfDepth: Display depth)
  							replaceColor: Color white withColor: Color transparent;
  							scaleIconToDisplay]!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') -----
  notExpandedForm
+ 	NotExpandedForm
+ 		ifNotNil: [NotExpandedForm depth ~= Display depth
+ 				ifTrue: [NotExpandedForm := nil]].
+ 	^ NotExpandedForm
+ 		ifNil: [NotExpandedForm := ((Form
- 	notExpandedForm
- 		ifNotNil: [notExpandedForm depth ~= Display depth
- 				ifTrue: [notExpandedForm := nil]].
- 	^ notExpandedForm
- 		ifNil: [notExpandedForm := ((Form
  						extent: 10 @ 9
  						depth: 8
  						fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 )
  						offset: 0 @ 0)
  							asFormOfDepth: Display depth)
  								replaceColor: Color white withColor: Color transparent;
  								scaleIconToDisplay]!