cocoa: fix get-y' in frame%'

2011-05-26 07:28:23 -06:00 · 2011-05-26 07:28:23 -06:00 · c0811dc220
commit c0811dc220
parent f4aab53efa
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@ -467,7 +467,7 @@
    (define/override (flip y h) (flip-screen (+ y h)))

    (define/override (get-y)
-      (- (- (super get-y) (if caption? 22 0)) (get-menu-bar-height)))
+      (- (super get-y) (get-menu-bar-height)))

    (define/override (set-size x y w h)
      (unless (and (= x -1) (= y -1))