--- a/ResourceSelectionBrowser.st Sat Feb 14 21:17:29 1998 +0100
+++ b/ResourceSelectionBrowser.st Sat Feb 14 22:25:35 1998 +0100
@@ -452,9 +452,7 @@
].
self valueOfClassName value: clsPattern
].
-
- self valueOfClassName value: classSelection.
- self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil).
+ self valueOfClassName value: classSelection.
self classNameInputField entryCompletionBlock:
[:value|
|what|
@@ -466,7 +464,9 @@
self listOfClassesView validateDoubleClickBlock: [:aTreeItem | aTreeItem contents ~~ self treeViewContents].
self listOfClassesView selectedNodeExpand: true.
- [classSelectionBlock value: classSelection] forkAt: 4.
+ [[classSelectionBlock value: classSelection] value.
+ self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil)]
+ forkAt: 4.
^super postBuildWith:aBuilder