--- 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 $'
! !