| view eltos |
view := ROView new.
view @ RODraggable.
view on: ROMouseRightClick 
do: [ :event | ROZoomInMove new on: view ].
view on: ROMouseLeftClick
do: [ :event | ROZoomOutMove new on: view ].

eltos := ROElement spritesOn: (1 to: 400).
eltos do:  [:el | el + ROLabel  ].
view addAll: eltos.
ROGridLayout new on: eltos.

"Mini map opens by pressing m"
view @ ROMiniMap.

view open.

Pressing the "m" key open a navigation map which gives something like:

Cheers,

Vanessa and Alexandre

On Mar 12, 2013, at 5:51 AM, Usman Bhatti <usman.bhatti@gmail.com> wrote:

On Tue, Mar 12, 2013 at 10:30 AM, Tudor Girba <tudor@tudorgirba.com> wrote:
I do not understand the issue, but that is probably because I did not yet see the mini map. How does it work?

Roassal allows minimaps for large visualizations, see this example in Roassal: ROMondrianExample >>miniMap.
So the idea is that any visualization allowing minimap, a minimap popups when one presses 'm'.
However, when roassal visu is embedded in a glamour browser, it doesn't work. Here's a shorter example of a browser that shows the visu of the example in a browser but there's no miniMap when 'm' is pressed.

  | browser |
   browser := GLMTabulator new.
   browser column: #list; column: #drawing.

   browser transmit
       to: #list;
       andShow: [ :a | a list ].
   browser transmit
       to: #drawing;
       andShow: [ :a | a roassal painting:
           [     :moview :collection |
  ROMondrianExample new miniMapOn: moview.
           ] ].
   browser openOn: #(1 2 3 4 5 6).


 

Doru


On Tue, Mar 12, 2013 at 10:12 AM, Usman Bhatti <usman.bhatti@gmail.com> wrote:
Hello,

I am trying to create a roassal minimap in a glamour browser. But I do not get a minimap when pressing m key. 
It might be something to do with how keystrokes are interpreted in Glamour. can you have a look?

Here's a simple browser with a roassal visualization (adapted from one of ben's mail on moose-dev).

  | browser viewHack |
   browser := GLMTabulator new.
   browser column: #list; column: #drawing.

   browser transmit
       to: #list;
       andShow: [ :a | a list ].
   browser transmit
       to: #drawing;
       andShow: [ :a | a roassal painting:
           [     :moview :collection |
  moview raw @ (ROMiniMap new targetView: moview stack).
               collection do: [ :x | moview view add: (ROElement spriteOn: x) + ROLabel + ROBox white ].
               ROVerticalLineLayout on: moview view elements.
   
               viewHack := moview view.
           ] ].
   browser transmit
       from: #list port:#selection;
       to: #drawing;
       transformed:
       [     :x |  | foundElements |
           viewHack elements do: [ :el | ROUnhighlightElement on: el ].
           targetElement := viewHack elements at: x.
           ROFocusView on: targetElement.
           ROHighlightElement on: targetElement color: Color red.
           viewHack signalUpdate
       ].
   browser openOn: #(1 2 3 4 5 6).

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev




-- 
www.tudorgirba.com

"Every thing has its own flow"

_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev


_______________________________________________
Moose-dev mailing list
Moose-dev@iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev