diff -r d06c04391233 -r 75f927b856f6 UIPainter.st
--- a/UIPainter.st	Thu Jun 05 11:57:03 1997 +0200
+++ b/UIPainter.st	Thu Jun 05 11:58:17 1997 +0200
@@ -320,7 +320,7 @@
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
@@ -337,101 +337,66 @@
                     #'name:' 'label1'
                     #'layout:' #(#LayoutFrame 10 0 50 0 110 0 70 0)
                     #'label:' 'class:'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
-                    #'translateLabel:' false
-                    #'level:' 0
                     #'adjust:' #right
-                    #'hasCharacterOrientedLabel:' true
                 )
                  #(#LabelSpec
                     #'name:' 'label2'
                     #'layout:' #(#LayoutFrame 10 0 90 0 110 0 110 0)
                     #'label:' 'superclass:'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
-                    #'translateLabel:' false
-                    #'level:' 0
                     #'adjust:' #right
-                    #'hasCharacterOrientedLabel:' true
                 )
                  #(#LabelSpec
                     #'name:' 'label3'
                     #'layout:' #(#LayoutFrame 10 0 130 0 110 0 150 0)
                     #'label:' 'selector:'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
-                    #'translateLabel:' false
-                    #'level:' 0
                     #'adjust:' #right
-                    #'hasCharacterOrientedLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'classNameField'
                     #'layout:' #(#LayoutFrame 120 0 50 0 289 0 72 0)
                     #'model:' #classNameChannel
                     #'tabable:' true
-                    #'immediateAccept:' true
-                    #'hasBorder:' false
                 )
                  #(#InputFieldSpec
                     #'name:' 'superclassNameField'
                     #'layout:' #(#LayoutFrame 120 0 90 0 289 0 112 0)
                     #'model:' #superclassNameChannel
                     #'tabable:' true
-                    #'immediateAccept:' true
-                    #'hasBorder:' false
                 )
                  #(#InputFieldSpec
                     #'name:' 'methodNameField'
                     #'layout:' #(#LayoutFrame 120 0 130 0 289 0 152 0)
                     #'model:' #methodNameChannel
                     #'tabable:' true
-                    #'immediateAccept:' true
-                    #'hasBorder:' false
                 )
                  #(#ActionButtonSpec
                     #'name:' 'button1'
                     #'layout:' #(#LayoutFrame 30 0 180 0 129 0 209 0)
                     #'label:' 'cancel'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'translateLabel:' false
                     #'tabable:' true
                     #'model:' #cancel
                     #'isTriggerOnDown:' false
+                    #'autoRepeat:' false
                 )
                  #(#ActionButtonSpec
                     #'name:' 'button2'
                     #'layout:' #(#LayoutFrame 160 0 180 0 259 0 209 0)
                     #'label:' 'ok'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'translateLabel:' false
                     #'tabable:' true
                     #'isDefault:' true
                     #'model:' #accept
                     #'isTriggerOnDown:' false
+                    #'autoRepeat:' false
                 )
                  #(#LabelSpec
                     #'name:' 'boxLabel'
                     #'layout:' #(#LayoutFrame 0 0.0 11 0 0 1.0 32 0)
                     #'label:' 'class & selector for code:'
-                    #'foregroundColor:' #(#Color 0.0 0.0 0.0)
-                    #'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
-                    #'initiallyInvisible:' false
-                    #'translateLabel:' false
-                    #'level:' 0
                     #'adjust:' #left
-                    #'hasCharacterOrientedLabel:' true
                 )
               )
           )
       )
-
 !
 
 windowSpec
@@ -466,17 +431,12 @@
                     #'name:' 'menuPullDown'
                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
                     #'menu:' #menuPullDown
-                    #'showSeparatingLines:' false
-                    #'verticalLayout:' false
-                    #'fitFirstPanel:' true
                 )
                  #(#MenuPanelSpec
                     #'name:' 'menuAlignment'
                     #'layout:' #(#LayoutFrame 0 0.0 29 0 233 0 54 0)
                     #'menu:' #menuAlignment
                     #'showSeparatingLines:' true
-                    #'verticalLayout:' false
-                    #'fitFirstPanel:' true
                 )
                  #(#PanelViewSpec
                     #'name:' 'panelViewButtons'
@@ -546,12 +506,10 @@
                     #'layout:' #(#LayoutFrame 0 0.0 59 0.0 0 0.35 0 1.0)
                     #'enableChannel:' #enableChannel
                     #'menu:' #objectListMenu
-                    #'tabable:' false
                     #'model:' #objectList
                     #'hasHorizontalScrollBar:' true
                     #'hasVerticalScrollBar:' true
                     #'miniScrollerHorizontal:' true
-                    #'miniScrollerVertical:' false
                     #'isMultiSelect:' true
                     #'doubleClickSelector:' #doubleClick
                     #'useIndex:' true
@@ -568,7 +526,6 @@
                     )
                     #'model:' #tabModel
                     #'tabWidget:' #Window
-                    #'useIndex:' false
                     #'level:' 0
                     #'canvas:' #noteBookView
                 )
@@ -792,19 +749,24 @@
 objectListChanged
     "something changed in the painter view
     "
-    |setSel slices list spec props|
+    |setSel slices list spec props size|
 
     props := objectList selectedProperty.
     tabSelection := nil.
 
     props isNil ifFalse:[
         currentView := props view.
+
+        (currentView == layoutTool forView) ifTrue:[
+            ^ self
+        ].
         layoutTool forView:currentView.
-
         spec   := props spec copy.
         slices := spec class slices.
-        list   := slices collect:[:slice| slice first asString ].
-        list add:'Dimension'.
+        size   := slices size + 1.
+        list   := Array new:size.
+        slices keysAndValuesDo:[:i :s|list at:i put:(s first asString)].
+        list at:size put:'Dimension'.
         (self tabList) value:list.
 
         (list findFirst:[:aName| aName = lastSlice]) ~~ 0 ifTrue:[