--- a/PullDMenu.st	Wed Aug 04 16:08:02 1999 +0200
+++ b/PullDMenu.st	Wed Aug 04 16:10:07 1999 +0200
@@ -609,7 +609,7 @@
 
     index := self indexOf:aString.
     (index == 0) ifTrue:[
-        self error:'no such menu entry'.
+        self error:'no such menu entry' mayProceed:true.
         ^ nil
     ].
 
@@ -1791,5 +1791,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.85 1999-04-24 12:46:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.86 1999-08-04 14:10:07 cg Exp $'
 ! !

--- a/PullDownMenu.st	Wed Aug 04 16:08:02 1999 +0200
+++ b/PullDownMenu.st	Wed Aug 04 16:10:07 1999 +0200
@@ -609,7 +609,7 @@
 
     index := self indexOf:aString.
     (index == 0) ifTrue:[
-        self error:'no such menu entry'.
+        self error:'no such menu entry' mayProceed:true.
         ^ nil
     ].
 
@@ -1791,5 +1791,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.85 1999-04-24 12:46:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.86 1999-08-04 14:10:07 cg Exp $'
 ! !