label for class tree added
authortz
Sun, 22 Feb 1998 21:37:09 +0100
changeset 664 6ed67e67d321
parent 663 fe6ee38d4eda
child 665 be9ead6a517b
label for class tree added
ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Sun Feb 22 21:36:17 1998 +0100
+++ b/ResourceSelectionBrowser.st	Sun Feb 22 21:37:09 1998 +0100
@@ -135,11 +135,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Resource Selection Browser'
-              #layout: #(#LayoutFrame 65 0 500 0 664 0 849 0)
+              #layout: #(#LayoutFrame 155 0 154 0 754 0 503 0)
               #label: 'Resource Selection Browser'
               #min: #(#Point 400 300)
               #max: #(#Point 1152 864)
-              #bounds: #(#Rectangle 65 500 665 850)
+              #bounds: #(#Rectangle 155 154 755 504)
               #usePreferredExtent: false
           )
           #component: 
@@ -161,7 +161,7 @@
                                    #(
                                      #(#SelectionInTreeViewSpec
                                         #name: 'listOfClassesView'
-                                        #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
+                                        #layout: #(#LayoutFrame 0 0.0 22 0.0 0 1.0 -22 1.0)
                                         #model: #selectionOfClass
                                         #hasHorizontalScrollBar: true
                                         #hasVerticalScrollBar: true
@@ -180,6 +180,13 @@
                                         #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
                                         #model: #valueOfClassName
                                     )
+                                     #(#LabelSpec
+                                        #name: 'Label1'
+                                        #layout: #(#LayoutFrame 0 0 0 0 297 0 22 0)
+                                        #label: ' Class Hierarchy'
+                                        #level: 1
+                                        #adjust: #left
+                                    )
                                   )
                               )
                           )
@@ -204,7 +211,6 @@
                                         #columnHolder: #columnsOfDataSetView
                                         #valueChangeSelector: #resourceSelected
                                         #verticalSpacing: 1
-
                                     )
                                      #(#InputFieldSpec
                                         #name: 'selectorInputField'