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

fix language dialog tooltip positioning code for mac os x

Browse Source
This commit is contained in:
Robby Findler 2012-12-23 12:37:53 -06:00
parent 0fecdaddf7
commit fc2f931755
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -465,8 +465,10 @@
(define-values (x y) (client->screen (define-values (x y) (client->screen
(inexact->exact (round (unbox bl))) (inexact->exact (round (unbox bl)))
(inexact->exact (round (unbox bt))))) (inexact->exact (round (unbox bt)))))
(define-values (dl dt) (get-display-left-top-inset))
(values (send snip get-item) (values (send snip get-item)
x y (- x dl)
(- y dt)
(inexact->exact (round w)) (inexact->exact (round w))
(inexact->exact (round h)))] (inexact->exact (round h)))]
[(is-a? snip editor-snip%) [(is-a? snip editor-snip%)