# HG changeset patch
# User ca
# Date 874660183 -7200
# Node ID 5915a3370a597fd2cc7612e82e7876510fa0a720
# Parent  f16aa0e8541e1d8baae56dfc99fdcbdad7725a28
savely perform method to retrive resource

diff -r f16aa0e8541e -r 5915a3370a59 ResourceRetriever.st
--- 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'!