--- a/ResourceRetriever.st Sun Jul 20 12:25:40 1997 +0200
+++ b/ResourceRetriever.st Mon Jul 21 08:59:05 1997 +0200
@@ -123,6 +123,8 @@
resource
"returns form assigned to resource or nil
"
+ |img|
+
selector isNil ifTrue:[
^nil
].
@@ -134,7 +136,12 @@
^ nil
]
].
- ^ resourceOwner visualFor:selector.
+ (resourceOwner respondsTo:#visualFor:) ifTrue:[
+ (img := resourceOwner visualFor:selector) notNil ifTrue:[
+ ^ img
+ ]
+ ].
+ ^ resourceOwner perform:selector.
! !
!ResourceRetriever methodsFor:'converting'!