--- a/ResourceRetriever.st Mon Sep 15 23:47:24 1997 +0200
+++ b/ResourceRetriever.st Fri Sep 19 11:09:43 1997 +0200
@@ -123,7 +123,7 @@
resource
"returns form assigned to resource or nil
"
- |img|
+ |img cls|
selector isNil ifTrue:[
^nil
@@ -136,12 +136,26 @@
^ nil
]
].
+
(resourceOwner respondsTo:#visualFor:) ifTrue:[
(img := resourceOwner visualFor:selector) notNil ifTrue:[
^ img
]
].
- ^ resourceOwner perform:selector.
+
+ (resourceOwner respondsTo:selector) ifTrue:[
+ ^ resourceOwner perform:selector
+ ].
+
+ resourceOwner isClass ifFalse:[
+ cls := resourceOwner class.
+
+ (cls respondsTo:selector) ifTrue:[
+ ^ cls perform:selector
+ ]
+ ].
+ ^ nil
+
! !
!ResourceRetriever methodsFor:'converting'!