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