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

fix tooltip placement in online check syntax (only affects mac os x)

Browse Source
This commit is contained in:
Robby Findler 2011-10-07 08:14:01 -05:00
parent a40f288e48
commit e7197c4129
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drracket/private/syncheck/gui.rkt
View File

@ -1070,9 +1070,12 @@ If the namespace does not, they are colored the unbound color.
(send tooltip-frame set-tooltip (send tooltip-frame set-tooltip
(sort (set->list strings) string<=?)) (sort (set->list strings) string<=?))
(set! tooltips-in-sync-with-cursor-eles? #t) (set! tooltips-in-sync-with-cursor-eles? #t)
(if (and l t r b) (cond
(send tooltip-frame show-over l t (- r l) (- b t)) [(and l t r b)
(send tooltip-frame show #f))] (define-values (dx dy) (get-display-left-top-inset))
(send tooltip-frame show-over (- l dx) (- t dy) (- r l) (- b t))]
[else
(send tooltip-frame show #f)])]
[else [else
(define-values (tl tt tr tb) (tooltip-info->ltrb (car tooltip-infos))) (define-values (tl tt tr tb) (tooltip-info->ltrb (car tooltip-infos)))
(unless (and tl tt tr tb) (unless (and tl tt tr tb)