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

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

Name: Morphic-mt.1126
Author: mt
Time: 1 May 2016, 11:28:52.934127 am
UUID: 6d6940ad-4542-d94f-9b90-8df2649f381d
Ancestors: Morphic-mt.1125

Refactors the code for the columns cache in tree morphs.

=============== Diff against Morphic-mt.1125 ===============

Item was changed:
  ----- Method: IndentingListItemMorph>>widthOfColumn: (in category 'accessing - columns') -----
  widthOfColumn: columnIndex 
+ 
+ 	^ (container widthOfColumn: columnIndex) ifNil: [self width]!
- 	| widthOrSpec |
- 	container columns ifNil: [ ^ self width ].
- 	(container columnsCache at: columnIndex)
- 		ifNotNil: [ :cachedWidth | ^ cachedWidth ].
- 	widthOrSpec := container columns at: columnIndex.
- 	^ container columnsCache at: columnIndex put: (widthOrSpec isNumber
- 		ifTrue: [ widthOrSpec ]
- 		ifFalse:
- 			[ widthOrSpec isBlock
- 				ifTrue:
- 					[ widthOrSpec
- 						cull: container
- 						cull: self ]
- 				ifFalse:
- 					[ widthOrSpec
- 						ifNil: [ self width ]
- 						ifNotNil: [ "Fall back"
- 							50 ] ] ])!

Item was added:
+ ----- Method: SimpleHierarchicalListMorph>>widthOfColumn: (in category 'private - caching') -----
+ widthOfColumn: index 
+ 
+ 	self columns ifNil: [^ nil].
+ 	
+ 	"Try columns cache."
+ 	(self columnsCache at: index)
+ 		ifNotNil: [:cachedWidth | ^ cachedWidth].
+ 		
+ 	^ (self columns at: index)
+ 		ifNil: [nil]
+ 		ifNotNil: [:widthOrSpec |
+ 			"Fill columns cache."
+ 			self columnsCache
+ 				at: index
+ 				put: (widthOrSpec isNumber
+ 					ifTrue: [widthOrSpec]
+ 					ifFalse: [widthOrSpec isBlock
+ 						ifTrue: [widthOrSpec cull: self]
+ 						ifFalse: [50 "fall back for bad spec"]])]!