*** 3.99.5.18/Lib/menu.stk Sat, 29 May 1999 14:37:30 +0200 eg (STk/T/4_menu.stk 1.11 644)
--- 3.99.5.29(w)/Lib/menu.stk Fri, 03 Sep 1999 15:58:07 +0200 eg (STk/T/4_menu.stk 1.12 644)
***************
*** 571,578 ****
  			(event 'generate w "<<MenuSelect>>")
  			(Tk:menu-unpost w))
       (else 		(Tk:menu-unpost w)
! 			(w 'invoke 'active))))
! 
  
  
  ;; Tk:menu-escape --
--- 571,579 ----
  			(event 'generate w "<<MenuSelect>>")
  			(Tk:menu-unpost w))
       (else 		(Tk:menu-unpost w)
! 			(w 'invoke 'active)))
!   ;; This is a last minute addition before 4.0 It doesn't seem to hurt.
!   (grab 'release w))
  
  
  ;; Tk:menu-escape --