Hi all,
RTScrollBarBuilder allows you to add a scalable scroll bar or scroll pad to
your Roassal view.
see examples in RTScrollBarBuilderExamples, or try to execute this in a
workspace:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
b := RTMondrian new.
b shape rectangle
withBorder;
width: [ :cls | cls numberOfVariables * 5];
height: #numberOfMethods;
linearFillColor: #numberOfLinesOfCode within: RTObject
withAllSubclasses.
b nodes: RTObject withAllSubclasses.
b edges connectFrom: #superclass.
b layout tree.
b build.
b2 := RTScrollBarBuilder new.
b2 view: b view.
b2 objects: b view elements.
b2 build inspect
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Feedbacks are welcome !
cheers,
Pierre