Dear All,

Here is a preview of what we will demonstrate at ESUG. 

Best is to see it live try this:

-=-=-=-=-=-=-=-=-=-=-=-=

b := RTBundleBuilder new.

b from: {TRObject. TRTest} using: #subclasses. 

b edges shape line color: Color black.

b bezier color: (Color blue alpha: 0.5).

b useBezierlineWith: #dependentClasses.

b build.

lb := RTLegendBuilder new.

lb view: b view; right.

lb addText: 'RTBundleBuilder: TRObject and TRTest subclasses'.

lb addColor: Color black text: 'Hierarchy'.

lb addColor: (Color r: 0 g: 120 b: 0 range: 255) text: 'Dependent classes'.

lb addColor: Color red text: 'Senders'.

lb build.

b view

-=-=-=-=-=-=-=-=-=-=-=-=

A very short video is available on: https://vimeo.com/131891902

Cheers,

Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.