--- a/Menu.st	Wed Oct 12 23:03:46 2011 +0200
+++ b/Menu.st	Wed Oct 12 23:03:59 2011 +0200
@@ -1233,8 +1233,22 @@
     ^ (MenuPanel menu:self) startUpOrNil
 ! !
 
+!Menu methodsFor:'utilities'!
+
+replaceArgument: oldValue with: newValue
+
+    "Recusively Replace argument in menu items where
+     current argument is equal to oldValue by newValue"
+
+    self itemsDo:[:item|
+        item replaceArgument: oldValue with: newValue
+    ]
+
+    "Created: / 12-10-2011 / 20:11:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Menu class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.82 2011-10-07 19:46:48 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.83 2011-10-12 21:03:59 vrany Exp $'
 ! !