FastTree expansion save/load

FastTree-expansion-saveload.st

ds := FTTreeDataSource
	roots: (1 to: 6)
	children: [ :data :item | 
		2 to: data - 1 ].


save := nil.
save := [ :item :exp | |d|
	d := Dictionary new.
	exp at: item data put: d.
	item isExpanded ifTrue: [ 
		item children do: [ :each | save value: each value: d ]
	].
].

expansion := Dictionary new.
ds rootItem children do: [ :each |
	save value: each value: expansion.
].

load := nil.
load := [ :item :exp |
	exp at: item data ifPresent: [ :d |
		d ifNotEmpty: [
			item expand.
			item refreshTable.
			item children do: [ :each |
				load value: each value: d
			]
		]
	]
].

ds rootItem children do: [ :each |
	load value: each value: expansion.
].	

(morph := FTTableMorph new)
	extent: 200 @ 400;
	dataSource: ds;
	openInWindow.
	
morph dataSource: ds.