The Trunk: Morphic-mt.1672.mcz

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

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

Name: Morphic-mt.1672
Author: mt
Time: 15 July 2020, 12:53:39.33025 pm
UUID: ba486bd0-690f-4685-8c79-0374ab461663
Ancestors: Morphic-mt.1671

Fixes recent regression. Sorry for the noise.

=============== Diff against Morphic-mt.1671 ===============

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 ifNotNil: [:form | form scaleIconToDisplay].
- icon := self getIcon scaleIconToDisplay.
  self extent: self minWidth @ self minHeight!

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