--- a/PullDownMenu.st	Tue Nov 23 22:21:03 1999 +0100
+++ b/PullDownMenu.st	Wed Nov 24 13:25:23 1999 +0100
@@ -798,6 +798,18 @@
 
     "Modified: 24.3.1996 / 17:09:56 / cg"
     "Created: 17.4.1996 / 20:52:13 / cg"
+!
+
+disable:anItem
+    menus do:[:aMenu |
+        aMenu disable:anItem
+    ]
+!
+
+enable:anItem
+    menus do:[:aMenu |
+        aMenu enable:anItem
+    ]
 ! !
 
 !PullDownMenu methodsFor:'accessing-look'!
@@ -1791,5 +1803,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.87 1999-08-18 14:38:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.88 1999-11-24 12:25:23 cg Exp $'
 ! !