--- 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 $'
! !