Class Array

edit: cb    | w m p n |

   w <- Window new title: 'Array editor'.

   w width: 300 height: 200.

   p <- Pane list: self asStringArray action: 

        [:i | (self at: i) edit: [:nv | self at: i put: nv. p setList: self asStringArray ] ].

   w setPane: p.

   m <- Menu new: 'information'.

   m on: 'size' do: [ (self size) inspect ].

   m on: 'add ...' do: [ Window eval: [:nv | n <- self add: nv. cb value: n ]. w close. n edit: cb].

   m on: 'remove selected' do: [ n <- self removeAt: p indexSelected. cb value: n. w close. n edit: cb ].

   m on: 'change to...' do: [ Window eval: cb. w close ].

   w addMenu: m.

   w show