MenuItem.st
changeset 580 5d407019526d
parent 579 77f6d490f1ac
child 581 0080d12b5758
--- a/MenuItem.st	Wed May 21 12:38:15 1997 +0200
+++ b/MenuItem.st	Thu May 22 13:39:07 1997 +0200
@@ -58,6 +58,17 @@
     ]
 !
 
+indication
+    "not yet supported
+    "
+    ^ true
+!
+
+indication:anIndication
+    "not yet supported
+    "
+!
+
 label
     ^ label
 
@@ -167,9 +178,11 @@
         |selector value|
 
         selector := aLiteralEncodedArray at:i.
-        value := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
+        selector == #labelImage: ifFalse:[
+            value := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
 
-        self perform:selector with:value
+            self perform:selector with:value
+        ]
     ].
 
     "
@@ -318,5 +331,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.7 1997-05-21 10:38:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.8 1997-05-22 11:39:07 ca Exp $'
 ! !