--- a/ResourceRetriever.st	Thu Feb 26 13:17:36 2004 +0100
+++ b/ResourceRetriever.st	Thu Feb 26 19:26:26 2004 +0100
@@ -238,9 +238,23 @@
 findGuiResourcesIn:aResourceContainer
     "setup a resource owner
     "
+    |ns cls|
+
     className isNil ifTrue:[
         resourceOwner := aResourceContainer
-    ].
+    ] ifFalse:[
+        ns := aResourceContainer class nameSpace.
+        ns ~~ Smalltalk ifTrue:[
+            cls := ns at:className asSymbol.
+            cls notNil ifTrue:[
+                className := cls name.
+            ]
+        ].
+    ]
+
+
+
+
 !
 
 resource
@@ -340,5 +354,5 @@
 !ResourceRetriever class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.6 2002-10-24 12:36:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.7 2004-02-26 18:26:26 cg Exp $'
 ! !