[Moose-dev] Indicating progress in layout

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 ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.