Indicating progress in layout

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Indicating progress in layout

abergel
Hi!

Some asked for this on some point.
A new event is generated every 100 nodes that are layouted:

-=-=-=-=-=-=-=-=-=-=-=-=
| view rawView statusBar |
rawView := ROView new.
view := ROMondrianViewBuilder view: rawView.
"-------------"
"-------------"
 

statusBar := ROElement new + ROLabel + ROBox white.
view stack add: statusBar.
statusBar translateTo: 0 @ 480.
 
view interaction on: ROMouseEnter do: [ :event |
        statusBar model: event element model.
].
view shape rectangle size: 10.
view nodes: (1 to: 1500).

view horizontalLineLayout
        on: ROLayoutStep do: [ :evt |
                statusBar model: evt currentIteration printString, ' / ', evt maxInterations printString.
                World doOneCycleNow.
                view raw signalUpdate.
                 ].
   
"-------------"
"-------------"
"Below is the initiation of the menu and opening the visualization"
ROEaselMorphic new populateMenuOn: view.
view open
-=-=-=-=-=-=-=-=-=-=-=-=

Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.



_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev