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