Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1673.mcz
==================== Summary ====================
Name: Morphic-mt.1673 Author: mt Time: 16 July 2020, 12:32:25.66555 pm UUID: 4cdee1e0-9104-4e4f-a08f-12a77681f58e Ancestors: Morphic-mt.1672
Fixes toggle icons in tree widgets for demo/hi-dpi mode.
=============== Diff against Morphic-mt.1672 ===============
Item was changed: ----- Method: IndentingListItemMorph>>toggleRectangle (in category 'private') ----- toggleRectangle
+ | h indent | - | h | h := bounds height. + indent := (12 * RealEstateAgent scaleFactor) rounded. + ^(bounds left + self hMargin + (indent * indentLevel)) @ bounds top extent: indent@h! - ^(bounds left + self hMargin + (12 * indentLevel)) @ bounds top extent: 12@h!
Item was added: + ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + 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 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]! - asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; - yourself]!
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 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]! - yourself]!
packages@lists.squeakfoundation.org