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

avoid showing/re-hiding tooltip when it wouldn't move

Browse Source 
More mouse events seem to come in under windows than
mac os x, leading to the bad flashing behavior described
in PR 13384

closes PR 13384
This commit is contained in:
Robby Findler 2012-12-23 09:50:00 -06:00
parent ccae98777a
commit 0fecdaddf7
1 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/drracket/private/language-configuration.rkt
View File

@ -425,15 +425,18 @@
(define-values (ex ey) (send (get-editor) dc-location-to-editor-location
(send evt get-x)
(send evt get-y)))
(set!-values (hieritem-language-to-show-in-tooltip
hieritem-tooltip-x
hieritem-tooltip-y
hieritem-tooltip-w
hieritem-tooltip-h)
(find-snip ex ey))
(when tooltip-frame (send tooltip-frame show #f))
(send tooltip-timer stop)
(when hieritem-language-to-show-in-tooltip (send tooltip-timer start 200 #t))]
(define-values (_to-show-in-tooltip _x _y _w _h)
(find-snip ex ey))
(unless (equal? _to-show-in-tooltip
hieritem-language-to-show-in-tooltip)
(set! hieritem-language-to-show-in-tooltip _to-show-in-tooltip)
(set! hieritem-tooltip-x _x)
(set! hieritem-tooltip-y _y)
(set! hieritem-tooltip-w _w)
(set! hieritem-tooltip-h _h)
(when tooltip-frame (send tooltip-frame show #f))
(send tooltip-timer stop)
(when hieritem-language-to-show-in-tooltip (send tooltip-timer start 200 #t)))]
[(send evt leaving?)
(set! hieritem-language-to-show-in-tooltip #f)
(send tooltip-timer stop)]))
@ -495,13 +498,7 @@
(send tooltip-frame set-tooltip (list msg))
(send tooltip-frame show-over
(+ hieritem-tooltip-x hieritem-tooltip-w 4)
;; why do I have to subtract here...?
;; that's definitely wrong. Something else
;; must be wrong earlier to get these bad
;; coordinates
(- hieritem-tooltip-y hieritem-tooltip-h)
hieritem-tooltip-y
0
0))))