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