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.