diff --git a/collects/mred/private/wx/cocoa/menu-bar.rkt b/collects/mred/private/wx/cocoa/menu-bar.rkt index 3bf8f0f8dd..208be17b40 100644 --- a/collects/mred/private/wx/cocoa/menu-bar.rkt +++ b/collects/mred/private/wx/cocoa/menu-bar.rkt @@ -83,8 +83,11 @@ (and (<= x (NSPoint-x p) (+ x w)) (<= (- y h) (NSPoint-y p) y))))))) -(define (get-menu-bar-height) + +(define initial-menubar-height (inexact->exact (floor (tell #:type _CGFloat cocoa-mb menuBarHeight)))) +(define (get-menu-bar-height) + initial-menubar-height) (set-menu-bar-hooks! in-menu-bar-range)