--- 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 $'
! !