suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust tooltip windows so they go away whenever

Browse Source 
they get a mouse event

related to PR 13139
This commit is contained in:
Robby Findler 2012-10-02 20:55:53 -05:00
parent 4b6a57bd2e
commit 58c9905eff
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/tooltip.rkt
View File

@ -10,12 +10,8 @@
(define/override (on-subwindow-event r evt) (define/override (on-subwindow-event r evt)
(and (is-shown?) (and (is-shown?)
(cond (begin (show #f)
[(or (send evt entering?) #t)))
(send evt button-down?))
(show #f)
#t]
[else #f])))
(define/public (set-tooltip ls) (define/public (set-tooltip ls)
(send yellow-message set-lab ls)) (send yellow-message set-lab ls))