do not decode the argument
authorClaus Gittinger <cg@exept.de>
Tue, 13 Jul 1999 18:12:54 +0200
changeset 1203 35445f3530a4
parent 1202 1cc76ca8e500
child 1204 a043422d0565
do not decode the argument
MenuItem.st
--- a/MenuItem.st	Tue Jul 13 17:42:43 1999 +0200
+++ b/MenuItem.st	Tue Jul 13 18:12:54 1999 +0200
@@ -457,7 +457,10 @@
 
     2 to:aLiteralEncodedArray size by:2 do:[:i |
         selector := aLiteralEncodedArray at:i.
-        value    := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
+        value    := (aLiteralEncodedArray at:i+1).
+        selector == #argument: ifFalse:[
+            value := value decodeAsLiteralArray
+        ].
         self perform:selector with:value
     ].
 
@@ -826,5 +829,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.28 1999-07-13 15:42:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.29 1999-07-13 16:12:54 cg Exp $'
 ! !