--- 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'!