From c0811dc220c847c7132679ca4d3acb9f3fb93754 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 26 May 2011 07:28:23 -0600 Subject: [PATCH] cocoa: fix `get-y' in `frame%' --- collects/mred/private/wx/cocoa/frame.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt index af9af88a1c..d623cd6353 100644 --- 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))