--- a/MenuItem.st	Wed Mar 05 17:06:25 1997 +0100
+++ b/MenuItem.st	Wed Mar 05 17:06:31 1997 +0100
@@ -32,6 +32,12 @@
 
 ! !
 
+!MenuItem class methodsFor:'instance creation'!
+
+labeled:aString
+    ^ self new label:aString
+! !
+
 !MenuItem methodsFor:'accessing'!
 
 accessCharacterPosition:index
@@ -58,6 +64,12 @@
     "Created: 25.2.1997 / 19:39:27 / cg"
 !
 
+hasSubmenu
+    ^ self adornment submenu notNil
+
+    "Created: 25.2.1997 / 20:56:20 / cg"
+!
+
 isEnabled
     ^ enabled ? true
 
@@ -76,12 +88,24 @@
     "Created: 25.2.1997 / 19:55:16 / cg"
 !
 
+rawLabel
+    ^ label
+
+    "Created: 25.2.1997 / 19:48:16 / cg"
+!
+
 rawLabel:aString
     label := aString
 
     "Created: 25.2.1997 / 19:11:02 / cg"
 !
 
+shortcutKeyCharacter
+    "ignored for now"
+
+    ^ nil
+!
+
 submenu
     ^ self adornment submenu
 
@@ -126,6 +150,20 @@
     "
 
     "Modified: 25.2.1997 / 19:24:22 / cg"
+!
+
+literalArrayEncoding
+    "return myself encoded as a literal array"
+
+    |coll|
+
+    coll := OrderedCollection new.
+    coll add:#MenuItem.
+    coll add:#label: ; add:(label literalArrayEncoding).
+    coll add:#value: ; add:(value literalArrayEncoding).
+"/    coll add:#nameKey: ; add:(nameKey literalArrayEncoding).
+    coll add:#enabled: ; add:(enabled literalArrayEncoding).
+    ^ coll asArray
 ! !
 
 !MenuItem methodsFor:'private - accessing'!
@@ -192,5 +230,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.4 1997-02-26 09:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.5 1997-03-05 16:06:31 ca Exp $'
 ! !