From e7197c4129d648acbfd6ecd6d303945e90435518 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 7 Oct 2011 08:14:01 -0500 Subject: [PATCH] fix tooltip placement in online check syntax (only affects mac os x) --- collects/drracket/private/syncheck/gui.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index 8f7725a8ba..eeb105b19b 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1070,9 +1070,12 @@ If the namespace does not, they are colored the unbound color. (send tooltip-frame set-tooltip (sort (set->list strings) string<=?)) (set! tooltips-in-sync-with-cursor-eles? #t) - (if (and l t r b) - (send tooltip-frame show-over l t (- r l) (- b t)) - (send tooltip-frame show #f))] + (cond + [(and l t r b) + (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 (define-values (tl tt tr tb) (tooltip-info->ltrb (car tooltip-infos))) (unless (and tl tt tr tb)