cocoa: fix get-y' in frame%'

original commit: c0811dc220c847c7132679ca4d3acb9f3fb93754
2011-05-26 07:28:23 -06:00 · 2011-05-26 07:28:23 -06:00 · 830c42cb1e
commit 830c42cb1e
parent f1856b4684
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))