The Trunk: Morphic-mt.1673.mcz

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]!