From 4dfe6826a00adc5950ad021d971e12258966eff2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 24 Oct 2010 12:12:06 -0600 Subject: [PATCH] cocoa ppc repairs original commit: f57961fba436e059877ef8234930f54bd58dff60 --- collects/mred/private/wx/cocoa/window.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt index 3ff8328f..1ff12848 100644 --- a/collects/mred/private/wx/cocoa/window.rkt +++ b/collects/mred/private/wx/cocoa/window.rkt @@ -655,11 +655,12 @@ (define/public (screen-to-client xb yb) (let ([p (tell #:type _NSPoint (get-cocoa-content) - convertPointFromBase: #:type _NSPoint + convertPoint: #:type _NSPoint (tell #:type _NSPoint (get-cocoa-window) convertScreenToBase: #:type _NSPoint (make-NSPoint (unbox xb) - (send (get-wx-window) flip-screen (unbox yb)))))]) + (send (get-wx-window) flip-screen (unbox yb)))) + fromView: #f)]) (set-box! xb (inexact->exact (floor (NSPoint-x p)))) (set-box! yb (inexact->exact (floor (flip-client (NSPoint-y p))))))) @@ -668,8 +669,9 @@ convertBaseToScreen: #:type _NSPoint (tell #:type _NSPoint (get-cocoa-content) - convertPointToBase: #:type _NSPoint - (make-NSPoint (unbox xb) (flip-client (unbox yb)))))]) + convertPoint: #:type _NSPoint + (make-NSPoint (unbox xb) (flip-client (unbox yb))) + toView: #f))]) (let ([new-y (if flip-y? (send (get-wx-window) flip-screen (NSPoint-y p)) (NSPoint-y p))])