[Pkg] The Trunk: ToolBuilder-Morphic-topa.188.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Sep 23 20:28:01 UTC 2016


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



More information about the Packages mailing list