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

account for frame-location and client<->screen for positioning tool tips under Mac OS X

Browse Source 
svn: r9717
This commit is contained in:
Matthew Flatt 2008-05-07 02:22:22 +00:00
parent db46754271
commit 94d8c852da
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mrlib/switchable-button.ss
View File

@ -139,8 +139,9 @@
(let-values ([(x y) (client->screen (floor (get-width)) (let-values ([(x y) (client->screen (floor (get-width))
(floor (floor
(- (/ (get-height) 2) (- (/ (get-height) 2)
(/ (send float-window get-height) 2))))]) (/ (send float-window get-height) 2))))]
(send float-window move x y)) [(dx dy) (get-display-left-top-inset)])
(send float-window move (- x dx) (- y dy)))
(unless timer-running? (unless timer-running?
(set! timer-running? #t) (set! timer-running? #t)
(send timer start 500 #t))] (send timer start 500 #t))]