--- a/ResourceSelectionBrowser.st Wed Mar 24 16:27:33 1999 +0100
+++ b/ResourceSelectionBrowser.st Wed Mar 24 17:04:22 1999 +0100
@@ -770,7 +770,7 @@
and aSelector,
with allowed aResourceTypes"
- |clsName|
+ |clsName clsNameString|
resourceMethod := aSelector.
resourceTypes := aResourceTypes.
@@ -789,17 +789,30 @@
self open.
- (clsName := self selectionOfClassHierarchy value) isNil
- ifTrue: [(clsName := self selectionOfClassCategories value) isNil ifTrue: [^nil]].
-
- clsName := (clsName name upTo: $ ) asSymbol.
+ (clsName := self selectionOfClassHierarchy value) isNil ifTrue:[
+ (clsName := self selectionOfClassCategories value) isNil ifTrue:[
+ (clsNameString := self valueOfClassName value) isNil ifTrue:[
+ accept value ifTrue:[
+ self warn:'No valid class selected/entered'.
+ ].
+ ^ nil
+ ]
+ ]
+ ].
- ((Smalltalk at: clsName) isClass and: [accept value])
- ifTrue:
- [
- ^clsName, ' ', self valueOfResourceSelector value
+ clsNameString isNil ifTrue:[
+ clsNameString := clsName name upTo:Character space
].
- ^nil
+ clsNameString := clsNameString asSymbol.
+
+ ((Smalltalk at: clsNameString) isClass and:[accept value]) ifTrue:[
+ ^ clsNameString, ' ', self valueOfResourceSelector value
+ ].
+
+ accept value ifTrue:[
+ self warn:'No valid class selected/entered'.
+ ].
+ ^ nil
"Modified: / 22.4.1998 / 14:51:03 / cg"
! !