--- a/MenuItem.st	Wed Feb 26 10:42:03 1997 +0100
+++ b/MenuItem.st	Wed Feb 26 10:42:11 1997 +0100
@@ -1,5 +1,5 @@
 Object subclass:#MenuItem
-	instanceVariableNames:'enabled label value nameKey'
+	instanceVariableNames:'enabled label value nameKey adornment'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Support'
@@ -82,6 +82,18 @@
     "Created: 25.2.1997 / 19:11:02 / cg"
 !
 
+submenu
+    ^ self adornment submenu
+
+    "Created: 25.2.1997 / 20:57:24 / cg"
+!
+
+submenu:aMenu
+    self adornment submenu:aMenu
+
+    "Created: 25.2.1997 / 20:56:20 / cg"
+!
+
 value
     ^ value
 
@@ -116,8 +128,69 @@
     "Modified: 25.2.1997 / 19:24:22 / cg"
 ! !
 
+!MenuItem methodsFor:'private - accessing'!
+
+adornment
+    adornment isNil ifTrue:[
+        adornment := MenuItemAdornment new
+    ].
+    ^ adornment
+
+    "Created: 25.2.1997 / 20:57:05 / cg"
+! !
+
+!MenuItem::MenuItemAdornment methodsFor:'accessing'!
+
+color
+    "return the value of the instance variable 'color' (automatically generated)"
+
+    ^ color
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+color:something
+    "set the value of the instance variable 'color' (automatically generated)"
+
+    color := something.
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+indication
+    "return the value of the instance variable 'indication' (automatically generated)"
+
+    ^ indication
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+indication:something
+    "set the value of the instance variable 'indication' (automatically generated)"
+
+    indication := something.
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+submenu
+    "return the value of the instance variable 'submenu' (automatically generated)"
+
+    ^ submenu
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+!
+
+submenu:something
+    "set the value of the instance variable 'submenu' (automatically generated)"
+
+    submenu := something.
+
+    "Created: 25.2.1997 / 20:59:28 / cg"
+! !
+
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.3 1997-02-25 19:43:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.4 1997-02-26 09:42:11 cg Exp $'
 ! !