From fc2f931755ee1a723f13dbd2b7d88ad53e684724 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 23 Dec 2012 12:37:53 -0600 Subject: [PATCH] fix language dialog tooltip positioning code for mac os x --- collects/drracket/private/language-configuration.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index c80526c10e..1f41ef5c7d 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -465,8 +465,10 @@ (define-values (x y) (client->screen (inexact->exact (round (unbox bl))) (inexact->exact (round (unbox bt))))) + (define-values (dl dt) (get-display-left-top-inset)) (values (send snip get-item) - x y + (- x dl) + (- y dt) (inexact->exact (round w)) (inexact->exact (round h)))] [(is-a? snip editor-snip%)