--- a/MenuItem.st	Fri Jan 30 15:08:05 1998 +0100
+++ b/MenuItem.st	Fri Jan 30 15:58:31 1998 +0100
@@ -1,6 +1,6 @@
 Object subclass:#MenuItem
 	instanceVariableNames:'activeHelpKey enabled label value nameKey adornment
-		translateLabel isButton startGroup'
+		translateLabel isButton startGroup isVisible'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Support'
@@ -102,6 +102,14 @@
     ]
 !
 
+isVisible
+    ^ isVisible ? true
+!
+
+isVisible:something
+    isVisible := something
+!
+
 label
     ^ label
 
@@ -379,6 +387,11 @@
     nameKey notNil ifTrue:[
         coll add:#nameKey: ; add:(nameKey literalArrayEncoding)
     ].
+    isVisible notNil ifTrue:[
+        isVisible ~~ true ifTrue:[
+            coll add:#isVisible: ; add:(isVisible literalArrayEncoding)
+        ]
+    ].
 
     startGroup notNil ifTrue:[
         coll add:#startGroup: ; add:(startGroup literalArrayEncoding)
@@ -608,5 +621,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.19 1998-01-30 11:48:43 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.20 1998-01-30 14:58:31 ca Exp $'
 ! !