diff -r 4c6acd1fa911 -r 2e77c060bc12 HierarchicalListEditor.st
--- a/HierarchicalListEditor.st	Thu Jan 29 20:08:53 1998 +0100
+++ b/HierarchicalListEditor.st	Thu Jan 29 20:11:04 1998 +0100
@@ -79,48 +79,47 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Hierarchical List Editor'
-              #'layout:' #(#LayoutFrame 197 0 172 0 497 0 300 0)
+              #'layout:' #(#LayoutFrame 213 0 373 0 513 0 501 0)
               #'label:' 'Hierarchical List Editor'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1160 870)
-              #'bounds:' #(#Rectangle 197 172 498 301)
+              #'bounds:' #(#Rectangle 213 373 514 502)
               #'usePreferredExtent:' false
           )
           #'component:' 
            #(#SpecCollection
               #'collection:' 
                #(
-                 #(#LabelSpec
-                    #'name:' 'boxLabel'
-                    #'layout:' #(#Point 5 10)
-                    #'label:' 'Class and selector for code:'
-                    #'adjust:' #left
-                    #'resizeForLabel:' true
+                 #(#FramedBoxSpec
+                    #'name:' 'framedBox1'
+                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -33 1.0)
+                    #'label:' 'Class and selector for code'
+                    #'labelPosition:' #topLeft
                 )
                  #(#LabelSpec
                     #'name:' 'classLabel'
-                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 53 0.11 39 0 1 0.5)
                     #'label:' 'Class:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'classField'
-                    #'layout:' #(#LayoutFrame 47 0.11 39 0 -2 1.0 61 0)
+                    #'layout:' #(#LayoutFrame 57 0.11 27 0 -19 1.0 49 0)
                     #'enableChannel:' #canChangeClassName
                     #'tabable:' true
                     #'model:' #specClassChannel
                 )
                  #(#LabelSpec
                     #'name:' 'methodLabel'
-                    #'layout:' #(#AlignmentOrigin 45 0.11 74 0 1 0.5)
+                    #'layout:' #(#AlignmentOrigin 53 0.11 64 0 1 0.5)
                     #'label:' 'Selector:'
                     #'adjust:' #right
                     #'resizeForLabel:' true
                 )
                  #(#InputFieldSpec
                     #'name:' 'methodField'
-                    #'layout:' #(#LayoutFrame 47 0.11 64 0 -2 1.0 86 0)
+                    #'layout:' #(#LayoutFrame 57 0.11 52 0 -19 1.0 74 0)
                     #'tabable:' true
                     #'model:' #specSelectorChannel
                     #'type:' #string