diff --git a/collects/drracket/private/tooltip.rkt b/collects/drracket/private/tooltip.rkt index e188a73216..849dead4f3 100644 --- a/collects/drracket/private/tooltip.rkt +++ b/collects/drracket/private/tooltip.rkt @@ -10,12 +10,8 @@ (define/override (on-subwindow-event r evt) (and (is-shown?) - (cond - [(or (send evt entering?) - (send evt button-down?)) - (show #f) - #t] - [else #f]))) + (begin (show #f) + #t))) (define/public (set-tooltip ls) (send yellow-message set-lab ls))