--- a/ResourceSelectionBrowser.st Tue Jan 27 10:15:31 1998 +0100
+++ b/ResourceSelectionBrowser.st Tue Jan 27 10:20:25 1998 +0100
@@ -352,18 +352,19 @@
resourceTypes := aResourceTypes.
resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
- self valueOfSelector value: aSelector.
+ self valueOfSelector value:(aSelector ? '').
self open.
- (self selectionOfClass value notNil and:
- [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
- [accept value]])
- ifTrue:
- [
+ (self selectionOfClass value notNil
+ and:[(cls := Smalltalk at: self selectionOfClass value name) isClass
+ and:[accept value]]
+ ) ifTrue:[
^cls name, ' ', self valueOfSelector value
].
^nil
+
+ "Modified: / 26.1.1998 / 22:26:50 / stefan"
! !
!ResourceSelectionBrowser methodsFor:'startup / release'!