From 94d8c852da7940014b09ae15cb0dd10f7a9c1404 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 7 May 2008 02:22:22 +0000 Subject: [PATCH] account for frame-location and client<->screen for positioning tool tips under Mac OS X svn: r9717 --- collects/mrlib/switchable-button.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss index 92e2af7854..1f260e731c 100644 --- a/collects/mrlib/switchable-button.ss +++ b/collects/mrlib/switchable-button.ss @@ -139,8 +139,9 @@ (let-values ([(x y) (client->screen (floor (get-width)) (floor (- (/ (get-height) 2) - (/ (send float-window get-height) 2))))]) - (send float-window move x y)) + (/ (send float-window get-height) 2))))] + [(dx dy) (get-display-left-top-inset)]) + (send float-window move (- x dx) (- y dy))) (unless timer-running? (set! timer-running? #t) (send timer start 500 #t))]