Tobias Pape uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-topa.188.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-topa.188 Author: topa Time: 23 September 2016, 10:27:45.599099 pm UUID: 5b808207-4f79-42b5-98b8-be4203bb54f2 Ancestors: ToolBuilder-Morphic-mt.187
Make pluggable trees work again with nodes whose children are dictionary-like
=============== Diff against ToolBuilder-Morphic-mt.187 ===============
Item was changed: ----- Method: PluggableTreeMorph>>contentsOfNode: (in category 'node access') ----- contentsOfNode: node
| children | + getChildrenSelector ifNil: [^#()]. - getChildrenSelector ifNil:[^#()]. children := model perform: getChildrenSelector with: node item. + ^ self nodesForChildren: children inNode: node + ! - ^children collectWithIndex: [:item :index | - (self nodeClass with: item model: self) - index: index; - parent: node]!
Item was added: + ----- Method: PluggableTreeMorph>>instantiateNodeWithContents:index:parent: (in category 'node access') ----- + instantiateNodeWithContents: item index: aNumber parent: anObject + + ^ (self nodeClass with: item model: self) + index: aNumber; + parent: anObject!
Item was added: + ----- Method: PluggableTreeMorph>>nodesForChildren:inNode: (in category 'node access') ----- + nodesForChildren: aCollection inNode: anObject + + ^ aCollection isSequenceable + ifTrue: [aCollection collectWithIndex: + [:item :index | + self instantiateNodeWithContents: item index: index parent: anObject]] + ifFalse: [ | count | + count := 0. "artificial index." + aCollection collect: + [:item | + count := count + 1. + self instantiateNodeWithContents: item index: count parent: anObject]]!