RTInteractionPopup

PopupRoassal.st

b := RTGrapher new.
b extent: 200 @ 150.

ds := RTData new.
ds interaction popup group: [:group :aClassElement |
    | background label |
    b2 := RTPieBuilder new.
    b2 shape color: [ Color random ].
    b2 objects: aClassElement model rtmethods.
    b2 slice: #numberOfLinesOfCode.
    b2 build.
    
    background := (RTBox new color: Color white trans) element.
    RTNest new
        centerOn: background 
        elements: b2 view elements.
        
    label := (RTLabel new 
        color: Color white;
        text: aClassElement model) element.
    TRConstraint move: label above: background.
    group 
        add: label;
        add: background;
        addAll: b2 view elements.
    ].
ds points: {String. OrderedCollection. Set. Array}.
ds y: [ :cls | cls rtmethods size ].
ds barShape rectangle color: Color lightBlue.
b add: ds.
b axisX; axisYWithNumberOfTicks: 4.
b build.
^ b view