--- a/ResourceSelectionBrowser.st Sat Feb 07 21:16:37 1998 +0100
+++ b/ResourceSelectionBrowser.st Sat Feb 07 21:22:24 1998 +0100
@@ -311,50 +311,6 @@
self valueOfSelector value: self selectionOfResource value selector
! !
-!ResourceSelectionBrowser methodsFor:'initialization'!
-
-postBuildWith:aBuilder
-
- |classSelection classSelectionBlock|
- allClasses := Object withAllSubclasses.
- classSelection := resourceClass ? self class lastSelection ? #Object.
- classSelectionBlock :=
- [:clsPattern|
- |foundClass classes|
- ((foundClass := Smalltalk at: clsPattern asSymbol) isNil or:
- [foundClass name ~= clsPattern])
- ifTrue:
- [
- classes := allClasses select: [:cls| cls name size >= clsPattern size].
- 1 to: clsPattern size do:
- [:i|
- classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)].
- ].
- foundClass := classes at: 1 ifAbsent: [nil]
- ].
- foundClass notNil
- ifTrue:
- [
- self listOfClassesView selectFromListOfNames: (foundClass
- withAllSuperclasses reverse collect: [:cls| cls name asString])
- ].
- self valueOfClassName value: clsPattern
- ].
- classSelectionBlock value: classSelection.
- self valueOfClassName value: classSelection.
- self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil).
- self classNameInputField entryCompletionBlock:
- [:value|
- |what|
- what := Smalltalk classnameCompletion: value withoutSpaces.
- self classNameInputField contents:what first.
- (what at:2) size ~~ 1 ifTrue:[Display beep].
- classSelectionBlock value: self classNameInputField contents
- ].
- ^super postBuildWith:aBuilder
-
-! !
-
!ResourceSelectionBrowser methodsFor:'instance creation'!
openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
@@ -386,6 +342,53 @@
+!
+
+postBuildWith:aBuilder
+
+ |classSelection classSelectionBlock|
+ allClasses := Object withAllSubclasses.
+ classSelection := resourceClass ? self class lastSelection ? #Object.
+ classSelectionBlock :=
+ [:clsPattern|
+ |foundClass classes|
+ ((foundClass := Smalltalk at: clsPattern printString asSymbol) isClass not or:
+ [foundClass name ~= clsPattern])
+ ifTrue:
+ [
+ classes := allClasses select: [:cls| cls name size >= clsPattern size].
+ 1 to: clsPattern size do:
+ [:i|
+ classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)].
+ ].
+ foundClass := classes at: 1 ifAbsent: [nil]
+ ].
+ foundClass notNil
+ ifTrue:
+ [
+ self listOfClassesView
+ selectFromListOfNames: (foundClass
+ withAllSuperclasses reverse collect: [:cls| cls name asString]);
+ selectedNodeExpand: true
+ ].
+ self valueOfClassName value: clsPattern
+ ].
+ classSelectionBlock value: classSelection.
+ self valueOfClassName value: classSelection.
+ self selectionOfResource value: (self listOfResources detect: [:m| m selector == resourceMethod] ifNone: nil).
+ self classNameInputField entryCompletionBlock:
+ [:value|
+ |what|
+ what := Smalltalk classnameCompletion: value withoutSpaces.
+ self classNameInputField contents:what first.
+ (what at:2) size ~~ 1 ifTrue:[Display beep].
+ classSelectionBlock value: self classNameInputField contents
+ ].
+
+ self listOfClassesView selectedNodeExpand: true.
+
+ ^super postBuildWith:aBuilder
+
! !
!ResourceSelectionBrowser::Row methodsFor:'accessing'!