2 May
2009
2 May
'09
1:58 p.m.
Hi,
inhEdges := view edges: elements from: #yourself toAll: #directSubclasses.
This returns the viewRenderer. I modified the methods for
edges: collection from: parentBlock toAll: childBlock | tempShape tempCollection | tempShape := self edgeShape. tempCollection := collection collect: [:each | self edges: (childBlock mondrianValue: each) from: [:x | parentBlock value: each] to: #yourself using: tempShape ]. self resetDefaults. ^ tempCollection.