Just to let you know since some of you are not aware. We have nice scrollbars that adjust automatically when zooming in/out and drag and dropping the view. Try this:

b := RTMondrian new.
b nodes: RTObject withAllSubclasses.
b edges connectFrom: #superclass.
b layout tree.

b build.
b view @ RTDoubleScrollBar.
b view