# HG changeset patch
# User tz
# Date 901120349 -7200
# Node ID c0bd0d9103e3ee83937fe20390eff1531ebfaa2c
# Parent  6862c9c822a30f0bc90e98f796efaad6ed8df902
class presentation in categories added (3)

diff -r 6862c9c822a3 -r c0bd0d9103e3 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Wed Jul 22 16:57:55 1998 +0200
+++ b/ResourceSelectionBrowser.st	Wed Jul 22 17:12:29 1998 +0200
@@ -227,11 +227,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Resource Selection Browser'
-              #layout: #(#LayoutFrame 361 0 289 0 960 0 638 0)
+              #layout: #(#LayoutFrame 293 0 266 0 892 0 615 0)
               #label: 'Resource Selection Browser'
               #min: #(#Point 400 300)
               #max: #(#Point 1152 864)
-              #bounds: #(#Rectangle 361 289 961 639)
+              #bounds: #(#Rectangle 293 266 893 616)
               #usePreferredExtent: false
           )
           #component: 
@@ -311,7 +311,7 @@
                                         #hasHorizontalScrollBar: true
                                         #hasVerticalScrollBar: true
                                         #miniScrollerHorizontal: true
-                                        #showDirectoryIndicatorForRoot: false
+                                        #showRoot: false
                                         #showDirectoryIndicator: true
                                         #valueChangeSelector: #classSelected
                                         #hierarchicalList: #rootOfClassCategories
@@ -619,7 +619,6 @@
     ].
     ^ cls ? self class treeViewClassHierarchyContents
 
-    "Modified: / 22.4.1998 / 14:43:19 / cg"
 !
 
 validateDoubleClick: aTreeItem
@@ -791,19 +790,15 @@
         classSelectionBlock value: classNameInputField contents
     ].
 
-    ^super postBuildWith:aBuilder
-
-!
-
-postOpenWith:aBuilder
-    "after opening, raise the the view do select class and resource method"
-
     ClassPresentation = #'Class Hierarchy'
-            ifTrue:  [(builder componentAt: #listOfClassHierarchyView) raise].
+        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
+
 ! !
 
 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'!