--- a/ResourceSelectionBrowser.st Thu Jan 29 14:06:26 1998 +0100
+++ b/ResourceSelectionBrowser.st Thu Jan 29 15:29:00 1998 +0100
@@ -59,7 +59,7 @@
onSuperclass: #ApplicationModel
andClass: #ToolApplicationModel
andSelector: #saveIcon
- withResourceTypes: #(canvas menu image)
+ withResourceTypes: #(image)
"
^self new
@@ -280,7 +280,7 @@
self withWaitCursorDo:
[
|clsName|
- resourceTypes isNil ifTrue: [resourceTypes := #(canvas menu image fileImage)].
+ resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
clsName := self listOfClassesView list at: anIndex.
self valueOfClassName value: clsName.
self class lastSelection: clsName.
@@ -288,7 +288,7 @@
((Smalltalk at: clsName)
class methodDictionary
asOrderedCollection select:
- [:m| m resources notNil and: [resourceTypes includes: m resourceType]]).
+ [:m|m resources notNil and: [resourceTypes includes: m resourceType]]).
]
!
@@ -311,7 +311,7 @@
|classSelection classSelectionBlock|
allClasses := Smalltalk allClasses asArray.
- classSelection := self class lastSelection ? resourceClass ? #Object.
+ classSelection := resourceClass ? self class lastSelection ? #Object.
classSelectionBlock :=
[:clsPattern|
|foundClass classes|
@@ -336,6 +336,7 @@
].
classSelectionBlock value: classSelection.
self valueOfClassName value: classSelection.
+ self selectionOfResource value: (self listOfResources detect: [:m| m who methodSelector == resourceMethod] ifNone: nil).
self classNameInputField entryCompletionBlock:
[:value|
|what|
@@ -353,6 +354,7 @@
openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
|cls sel|
+ resourceMethod := aSelector.
resourceTypes := aResourceTypes.
resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
@@ -367,8 +369,6 @@
^cls name, ' ', self valueOfSelector value
].
^nil
-
- "Modified: / 26.1.1998 / 22:26:50 / stefan"
! !
!ResourceSelectionBrowser methodsFor:'startup / release'!