The Trunk: Morphic-mt.1669.mcz

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

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

Name: Morphic-mt.1669
Author: mt
Time: 15 July 2020, 9:10:16.659352 am
UUID: 13e754ac-84e8-403c-8bf8-be99b1586fbb
Ancestors: Morphic-cbc.1668

Fixes icon scaling in tree widgets.

=============== Diff against Morphic-cbc.1668 ===============

Item was changed:
  ----- Method: IndentingListItemMorph>>initWithContents:prior:forList:indentLevel: (in category 'initialization') -----
  initWithContents: anObject prior: priorMorph forList: hostList indentLevel: newLevel
 
  container := hostList.
 
  complexContents := anObject.
  anObject addDependent: self.
 
  self initWithContents: self getLabel font: Preferences standardListFont emphasis: nil.
  indentLevel := 0.
  isExpanded := false.
    nextSibling := firstChild := nil.
  priorMorph ifNotNil: [
  priorMorph nextSibling: self.
  ].
  indentLevel := newLevel.
+ icon := self getIcon scaleIconToDisplay.
- icon := self getIcon.
  self extent: self minWidth @ self minHeight!

Item was changed:
  ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') -----
  refresh
 
  self contents: self getLabel.
+ icon := self getIcon scaleIconToDisplay.
- icon := self getIcon.
 
  (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [
  self setProperty: #wasRefreshed toValue: true].!