diff -r 1854c2e61c4e -r 93cd25c62a68 UIPainter.st
--- a/UIPainter.st	Wed May 21 12:42:03 1997 +0200
+++ b/UIPainter.st	Thu May 22 13:37:44 1997 +0200
@@ -57,40 +57,40 @@
     ^ #(#Menu #(
         #(#MenuItem
                 #'label:' 'file'
-                #'nameKey:' #file
+                #'value:' #file
                 #'submenu:'
                         #(#Menu #(
                                  #(#MenuItem
                                         #'label:' 'new'
-                                        #'nameKey:' #removeAll
+                                        #'value:' #removeAll
                                   )
                                  #(#MenuItem
                                         #'label:' 'from class ...'
-                                        #'nameKey:' #doFromClass
+                                        #'value:' #doFromClass
                                   )
                                  #(#MenuItem
                                         #'label:' 'pick a view '
-                                        #'nameKey:' #doPickAView
+                                        #'value:' #doPickAView
                                   )
                                  #(#MenuItem
                                         #'label:' 'load'
-                                        #'nameKey:' #doOpen
+                                        #'value:' #doOpen
                                   )
                                  #(#MenuItem
                                         #'label:' 'save'
-                                        #'nameKey:' #doSave
+                                        #'value:' #doSave
                                   )
                                  #(#MenuItem
                                         #'label:' 'save as ...'
-                                        #'nameKey:' #doSaveAs
+                                        #'value:' #doSaveAs
                                   )
                                  #(#MenuItem
                                         #'label:' 'raise'
-                                        #'nameKey:' #doRaise
+                                        #'value:' #doRaise
                                   )
                                  #(#MenuItem
                                         #'label:' 'quit'
-                                        #'nameKey:' #closeRequest
+                                        #'value:' #closeRequest
                                   )
                                  )
                                 #(3 3 1)
@@ -99,36 +99,36 @@
          )
         #(#MenuItem
                 #'label:' 'font'
-                #'nameKey:' #font
+                #'value:' #font
                 #'submenu:' 
                         #(#Menu #(
                                  #(#MenuItem
                                         #'label:' 'larger'
-                                        #'nameKey:' #largerFont
+                                        #'value:' #largerFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'smaller'
-                                        #'nameKey:' #smallerFont
+                                        #'value:' #smallerFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'normal'
-                                        #'nameKey:' #normalFont
+                                        #'value:' #normalFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'bold'
-                                        #'nameKey:' #boldFont
+                                        #'value:' #boldFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'italic'
-                                        #'nameKey:' #italicFont
+                                        #'value:' #italicFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'bold italic'
-                                        #'nameKey:' #boldItalicFont
+                                        #'value:' #boldItalicFont
                                   )
                                  #(#MenuItem
                                         #'label:' 'font panel'
-                                        #'nameKey:' #showFontPanel
+                                        #'value:' #showFontPanel
                                  )
                                 )
                                 #(2 4)
@@ -137,16 +137,16 @@
          )
         #(#MenuItem
                 #'label:' 'special'
-                #'nameKey:' #special
+                #'value:' #special
                 #'submenu:' 
                         #(#Menu #(
                                 #(#MenuItem
                                         #'label:' 'group radioButtons'
-                                        #'nameKey:' #groupRadioButtons
+                                        #'value:' #groupRadioButtons
                                  ) 
                                 #(#MenuItem
                                         #'label:' 'group enterFields'
-                                        #'nameKey:' #groupEnterFields
+                                        #'value:' #groupEnterFields
                                  )
                                 )
                                 nil
@@ -155,21 +155,21 @@
          )
         #(#MenuItem
                 #'label:' 'misc'
-                #'nameKey:' #misc
+                #'value:' #misc
                 #'submenu:'
                         #(#Menu #(
                                 #(#MenuItem
                                         #'label:' 'grid'
-                                        #'nameKey:' #grid
+                                        #'value:' #grid
                                         #'submenu:'
                                                 #(#Menu #(
                                                         #(#MenuItem
                                                                 #'label:' '\c show'
-                                                                #'nameKey:' #gridShown
+                                                                #'value:' #gridShown
                                                          )
                                                         #(#MenuItem
                                                                 #'label:' '\c align'
-                                                                #'nameKey:' #gridAlign
+                                                                #'value:' #gridAlign
                                                          )
                                                         )
                                                         nil
@@ -178,20 +178,20 @@
                                  )
                                 #(#MenuItem
                                         #'label:' 'undo'
-                                        #'nameKey:' #undo
+                                        #'value:' #undo
                                         #'submenu:'
                                                 #(#Menu #(
                                                         #(#MenuItem
                                                                 #'label:' 'last'
-                                                                #'nameKey:' #undoLast
+                                                                #'value:' #undoLast
                                                          )
                                                         #(#MenuItem
                                                                 #'label:' 'menu'
-                                                                #'nameKey:' #openUndoMenu
+                                                                #'value:' #openUndoMenu
                                                          )
                                                         #(#MenuItem
                                                                 #'label:' 'delete'
-                                                                #'nameKey:' #removeUndoHistory
+                                                                #'value:' #removeUndoHistory
                                                          )
                                                         )
                                                         #(2)
@@ -205,24 +205,24 @@
          )
         #(#MenuItem
                 #'label:' 'code'
-                #'nameKey:' #code
+                #'value:' #code
                 #'submenu:'
                         #(#Menu #(
                                 #(#MenuItem
                                         #'label:' 'class & method'
-                                        #'nameKey:' #defineClassAndSelector
+                                        #'value:' #defineClassAndSelector
                                  )
                                  #(#MenuItem
                                         #'label:' 'install spec'
-                                        #'nameKey:' #doInstallSpec
+                                        #'value:' #doInstallSpec
                                   )
                                  #(#MenuItem
                                         #'label:' 'install aspects'
-                                        #'nameKey:' #doInstallAspects
+                                        #'value:' #doInstallAspects
                                   )
                                  #(#MenuItem
                                         #'label:' 'windowSpec'
-                                        #'nameKey:' #doWindowSpec
+                                        #'value:' #doWindowSpec
                                    )
                                 )
                                 #( 1 2 )
@@ -231,12 +231,12 @@
          )
         #(#MenuItem
                 #'label:' 'test'
-                #'nameKey:' #test
+                #'value:' #test
                 #'submenu:'
                         #(#Menu #(
                                 #(#MenuItem
                                         #'label:' '\c test mode'
-                                        #'nameKey:' #testMode
+                                        #'value:' #testMode
                                  )
                                 )
                                 nil
@@ -715,7 +715,7 @@
                 )
                  #(#MenuPanelSpec
                     #'name:' 'menuBar1'
-                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 29 0)
+                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
                     #'menu:' #pullDownMenu
                 )
               )
@@ -812,8 +812,9 @@
 
 objectListMenu
     "returns a block which returns the menu
+     !!hack!!
     "
-    ^ [self painter menu]
+    ^ [ (self painter menu) startUp. nil ].