--- a/MenuView.st	Tue Apr 30 15:53:23 1996 +0200
+++ b/MenuView.st	Tue Apr 30 15:55:48 1996 +0200
@@ -399,7 +399,7 @@
      You should pass translated symbolic keys - the menu will automatically
      show the untranslated original key sequences."
 
-    shortKeys := collectionOfShortKeys.
+    shortKeys := collectionOfShortKeys copy.
     maxShortKeyStringLen := nil.
     shown ifTrue:[
         self resize
@@ -408,7 +408,7 @@
     ].
 
     "Created: 28.2.1996 / 17:15:31 / cg"
-    "Modified: 28.2.1996 / 18:27:30 / cg"
+    "Modified: 30.4.1996 / 15:55:14 / cg"
 !
 
 actionAt:indexOrName
@@ -837,7 +837,9 @@
 args:anArray
     "set the argument array"
 
-    args := anArray
+    args := anArray copy
+
+    "Modified: 30.4.1996 / 15:55:03 / cg"
 !
 
 argsAt:indexOrName put:something
@@ -979,22 +981,22 @@
 labels:text selectors:selArray accelerators:shorties args:argArray receiver:anObject
     "set all relevant stuff"
 
-    self labels:text.
-    selectors := selArray.
-    args := argArray.
-    receiver := anObject.
-    shortKeys := shorties.
+    self labels:text selectors:selArray args:argArray receiver:anObject.
+    shortKeys := shorties copy.
 
     "Created: 28.2.1996 / 18:56:38 / cg"
+    "Modified: 30.4.1996 / 15:54:48 / cg"
 !
 
 labels:text selectors:selArray args:argArray receiver:anObject
     "set all relevant stuff"
 
     self labels:text.
-    selectors := selArray.
-    args := argArray.
+    selectors := selArray copy.
+    args := argArray copy.
     receiver := anObject
+
+    "Modified: 30.4.1996 / 15:54:21 / cg"
 !
 
 receiver
@@ -1070,7 +1072,9 @@
 selectors:anArray
     "set the selector array"
 
-    selectors := anArray
+    selectors := anArray copy
+
+    "Modified: 30.4.1996 / 15:54:07 / cg"
 !
 
 someMenuItemLabeled:aLabel
@@ -2449,5 +2453,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.73 1996-04-30 13:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.74 1996-04-30 13:55:48 cg Exp $'
 ! !