--- a/PullDownMenu.st	Wed Jan 31 02:10:17 1996 +0100
+++ b/PullDownMenu.st	Wed Jan 31 02:53:04 1996 +0100
@@ -935,6 +935,12 @@
 
 !PullDownMenu methodsFor:'hiding/showing menus'!
 
+hide 
+    "sent by an aborted menu"
+
+    self hideActiveMenu.
+!
+
 hideActiveMenu
     "hide currently active menu - release grab if there is any grab (keepMenu)"
 
@@ -1306,5 +1312,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.33 1996-01-27 15:37:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.34 1996-01-31 01:53:04 cg Exp $'
 ! !