Just to share the result of a small coding session :-)

You can now easily define a status bar using the Mondrian builder.

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

view interaction statusBar: [ :aClass | aClass name, ' <| ', aClass superclass name ].
view shape rectangle size: 10.
view nodes: (Collection withAllSubclasses).
view edgesFrom: #superclass.
view treeLayout. 

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Another example:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

view interaction statusBar: #name.
view shape rectangle size: 10.
view nodes: (Collection withAllSubclasses).

view interaction statusBar: [ :aClass | aClass name, ' <| ', aClass superclass name ].
view edgesFrom: #superclass.
view treeLayout. 

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Cheers

Alexandre & Juraj