Comment #2 on issue 361 by alexandr...(a)gmail.com: Glamour status bar should
take into account Mondrian window status
http://code.google.com/p/moose-technology/issues/detail?id=361
For example:
| view statusBar |
view := ROMondrianViewBuilder new.
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: (Collection withAllSubclasses).
view edgesFrom: #superclass.
view treeLayout.
view open