[squeak-dev] The Trunk: Morphic-mt.1672.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 15 10:53:45 UTC 2020


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



More information about the Squeak-dev mailing list