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

make the tooltips go away more easily

Browse Source
This commit is contained in:
Robby Findler 2011-09-10 10:56:27 -05:00
parent e947df4359
commit c589e1890f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,8 @@
(inherit show reflow-container move get-width get-height) (inherit show reflow-container move get-width get-height)
(define/override (on-subwindow-event r evt) (define/override (on-subwindow-event r evt)
(cond (cond
[(send evt button-down?) [(or (send evt entering?)
(send evt button-down?))
(show #f) (show #f)
#t] #t]
[else #f])) [else #f]))