Menu.st
changeset 1401 0fda9891ba4a
parent 1397 47ac1d3e1df1
child 1405 c7775c10e8fd
--- a/Menu.st	Thu Aug 31 12:04:08 2000 +0200
+++ b/Menu.st	Fri Sep 01 12:17:27 2000 +0200
@@ -412,12 +412,23 @@
 findGuiResourcesIn:aResourceContainerOrApplication
     "setup a resource owner
     "
+    ^ self 
+        findGuiResourcesIn:aResourceContainerOrApplication 
+        rememberResourcesIn:(ValueHolder new)
+!
+
+findGuiResourcesIn:aResourceContainerOrApplication rememberResourcesIn:aValueHolderOrNil
+    "setup a resource owner
+    "
     aResourceContainerOrApplication notNil ifTrue:[
-	items notNil ifTrue:[
-	    items do:[:anItem| anItem findGuiResourcesIn:aResourceContainerOrApplication ]
-	]
+        items notNil ifTrue:[
+            items do:[:anItem | 
+                anItem 
+                    findGuiResourcesIn:aResourceContainerOrApplication 
+                    rememberResourcesIn:aValueHolderOrNil
+            ]
+        ]
     ]
-
 ! !
 
 !Menu methodsFor:'adding & removing'!
@@ -949,5 +960,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.45 2000-08-21 22:44:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.46 2000-09-01 10:16:54 cg Exp $'
 ! !