--- a/MenuItem.st	Fri Apr 20 11:47:43 2001 +0200
+++ b/MenuItem.st	Fri May 04 17:37:33 2001 +0200
@@ -662,7 +662,12 @@
         ].
 
         (something := self argument) notNil ifTrue:[
-            coll add:#argument: ; add:(something literalArrayEncoding)
+            "/ coll add:#argument: ; add:(something literalArrayEncoding)   -- cg: wrong - see decoder part.
+            something class == Array ifTrue:[
+                coll add:#argument: ; add:(something collect:[:each | each literalArrayEncoding]).
+            ] ifFalse:[
+                coll add:#argument: ; add:(something literalArrayEncoding)
+            ]
         ].
 
         adornment labelImage notNil ifTrue:[
@@ -1063,5 +1068,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.43 2000-11-13 11:03:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.44 2001-05-04 15:37:33 martin Exp $'
 ! !