inspect | w m |
w <- Window new title: 'Array inspector'.
w width: 300 height: 200.
w setPane: (Pane list: self asStringArray action: [:i | (self at: i) inspect ]).
m <- Menu new: 'information'.
m on: 'size' do: [ (self size) inspect ].
w addMenu: m.
w show