Class Class

subclass  | w n iv cv a s |

   w <- Window new title: 'Class Creation Form'. w width: 400 height: 150.

   n <- Pane textLine. iv <- Pane textLine. cv <- Pane textLine.

   a <- Array new: 8. a at: 1 put: (Pane title: 'name'). s  <- Semaphore new.

   a at: 2 put: n. a at: 3 put: (Pane title: 'instance variables'). a at: 4 put: iv.

   a at: 5 put: (Pane title: 'class variables'). a at: 6 put: cv.  a at: 7 put: (Pane title: '').

   a at: 8 put: (Pane title: 'create class' action: 

    [ s set: (self subclass: n getText variables: iv getText  classVariables: cv getText ). w close]).

   w setPane: (Pane rows: 4 columns: 2 data: a). w show. ^ s wait