Class Class

browser | w t p out b |

   t <- Pane textLine. out <- Pane textArea.

   p <- Pane list: classes asStringArray action: [:i | nil ].

   b <- #(

     (Pane title: 'evaluate expression' action: [ out setText: t getText doIt printString])

     (Pane title: 'examine class' action: [ (classes at: (p getIndex)) edit ])

     (Pane title: 'delete class' action:  [ (Window question: 'do you really want to remove this class?')

         ifTrue: [ self removeClass: ((classes at: (p getIndex)) name)]])

     (Pane title: 'clear' action:  [ t setText: ''. out setText: ''. p setList: classes asStringArray ])

     (Pane title: 'close' action: [ w close ])).

   w <- Window new title: 'Smalltalk Browser'. w width: 500 height: 200.

   w setPane: (Pane north: t south: nil east: p west:

    (Pane rows: b size columns: 1 data: b) center: out).

   w show.