Re: adding scroll bars to Roassal Visualization - Moose-dev

21 Sep 2012

Hello Doru,

As Alex suggested, Pharo scrollbars can be added to Roassal visualizations
(see the script at the end). Similarly, we can change
GLMRoassalRender>>render: to add scrollbars to roassal visualizations in
Glamour.
Here is a proposition:

render: aRoassalPresentation
| view scrollPane|
view := aRoassalPresentation view.
 aRoassalPresentation renderOn: view.
aRoassalPresentation on: GLMPresentationUpdated send:
#actOnPresentationUpdate: to: self.
 myMorph := ROMorph on: view stack.
myMorph extent: (view raw encompassingRectangle extent + (40 @ 40)).
 scrollPane := ScrollPane new.
      scrollPane scroller addMorph: (myMorph).
^ scrollPane

Indeed, that means that roassal visualizations are strongly-tied to
Morphic. Do you want me to push my changes to Glamour so that we have
morphic-based scrollbars unless there is a practical roassal-based
solution?

regards,
Usman

Alex's script:

...

 =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-=
 | view roView roMorph  pane window stack rawView nodes |
         "Preparing"
         window := StandardWindow labelled: 'windowLabel'.
         window model: self.
         window extent: 340 @ 480.
         stack := ROViewStack new.
         rawView := ROView new.
         stack addView: rawView.

         view := ROMondrianViewBuilder initializedView: rawView.
         view stack: stack.
         view shape rectangle width: [ :c | c numberOfVariables * 5 ];
 height: #numberOfMethods.
         nodes := view nodes: Collection withAllSubclasses.
         view edgesFrom:  #superclass.
         view treeLayout.
         view applyLayout.

         roMorph := ROMorph on: stack.
         pane := ScrollPane new.
         roMorph extent: ( view raw encompassingRectangle extent + (40 @
 40)) .
         pane scroller addMorph: (roMorph).
         window
                 addMorph: pane
                  frame: (0@0 corner: 1@1).
         window openInWorld.
 =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-= =-=-=-=-=-=