fix language dialog tooltip positioning code for mac os x

2012-12-23 12:37:53 -06:00 · 2012-12-23 12:37:53 -06:00 · fc2f931755
commit fc2f931755
parent 0fecdaddf7
1 changed files with 3 additions and 1 deletions
--- 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%)