# HG changeset patch
# User tz
# Date 901121052 -7200
# Node ID 7510ea8c9aebdf597b4d2c604ff9909bd8d24611
# Parent  c0bd0d9103e3ee83937fe20390eff1531ebfaa2c
class presentation in categories added (4)

diff -r c0bd0d9103e3 -r 7510ea8c9aeb ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Wed Jul 22 17:12:29 1998 +0200
+++ b/ResourceSelectionBrowser.st	Wed Jul 22 17:24:12 1998 +0200
@@ -227,11 +227,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Resource Selection Browser'
-              #layout: #(#LayoutFrame 293 0 266 0 892 0 615 0)
+              #layout: #(#LayoutFrame 194 0 307 0 793 0 656 0)
               #label: 'Resource Selection Browser'
               #min: #(#Point 400 300)
               #max: #(#Point 1152 864)
-              #bounds: #(#Rectangle 293 266 893 616)
+              #bounds: #(#Rectangle 194 307 794 657)
               #usePreferredExtent: false
           )
           #component: 
@@ -240,7 +240,7 @@
                #(
                  #(#VariableHorizontalPanelSpec
                     #name: 'VariableHorizontalPanel'
-                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0)
                     #component: 
                      #(#SpecCollection
                         #collection: 
@@ -266,7 +266,7 @@
                                                   #isTriggerOnDown: true
                                                   #lampColor: #(#Color 0.0 0.0 0.0)
                                                   #select: #'Class Categories'
-                                                  #extent: #(#Point 150 21)
+                                                  #extent: #(#Point 124 21)
                                               )
                                                #(#RadioButtonSpec
                                                   #name: 'ClassHierarchyRadioButton'
@@ -287,7 +287,7 @@
                                     )
                                      #(#SelectionInTreeViewSpec
                                         #name: 'listOfClassHierarchyView'
-                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -60 1.0)
+                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
                                         #tabable: true
                                         #model: #selectionOfClassHierarchy
                                         #hasHorizontalScrollBar: true
@@ -305,7 +305,7 @@
                                     )
                                      #(#SelectionInTreeViewSpec
                                         #name: 'listOfClassCategoriesView'
-                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -60 1.0)
+                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
                                         #tabable: true
                                         #model: #selectionOfClassCategories
                                         #hasHorizontalScrollBar: true
@@ -321,7 +321,7 @@
                                     )
                                      #(#InputFieldSpec
                                         #name: 'classNameInputField'
-                                        #layout: #(#LayoutFrame 2 0.0 -58 1 -1 1.0 -36 1)
+                                        #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
                                         #tabable: true
                                         #model: #valueOfClassName
                                     )
@@ -336,7 +336,7 @@
                                    #(
                                      #(#DataSetSpec
                                         #name: 'resourcesDataSetView'
-                                        #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -60 1.0)
+                                        #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)
                                         #model: #selectionOfResourceMethod
                                         #hasHorizontalScrollBar: true
                                         #hasVerticalScrollBar: true
@@ -353,7 +353,7 @@
                                     )
                                      #(#InputFieldSpec
                                         #name: 'selectorInputField'
-                                        #layout: #(#LayoutFrame 2 0.0 -58 1 -2 1.0 -36 1)
+                                        #layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
                                         #tabable: true
                                         #model: #valueOfResourceSelector
                                     )
@@ -790,15 +790,22 @@
         classSelectionBlock value: classNameInputField contents
     ].
 
-    ClassPresentation = #'Class Hierarchy'
-        ifTrue:  [(builder componentAt: #listOfClassHierarchyView) raise].
-
     classSelectionBlock value: self valueOfClassName value.
     self classSelected.
     self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil).
 
     ^super postBuildWith:aBuilder
 
+!
+
+postOpenWith:aBuilder
+    "after opening and if turned on make hierarchy view visible"
+
+    ClassPresentation = #'Class Hierarchy'
+        ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise].
+
+    ^super postOpenWith:aBuilder
+
 ! !
 
 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'!