From 53febbeb6c37cb671c6a614b699d8bad649bde3a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 6 Nov 2010 21:22:46 -0600 Subject: [PATCH] cocoa: fix a double vs. float mismatch in getting scroll positions --- collects/mred/private/wx/cocoa/canvas.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/canvas.rkt b/collects/mred/private/wx/cocoa/canvas.rkt index bf75a67ad1..e791fc55d8 100644 --- a/collects/mred/private/wx/cocoa/canvas.rkt +++ b/collects/mred/private/wx/cocoa/canvas.rkt @@ -561,7 +561,7 @@ 0.0)))] [(scroller) (if scroller - (->long (round (* (tell #:type _double (scroller-cocoa scroller) floatValue) + (->long (round (* (tell #:type _float (scroller-cocoa scroller) floatValue) (scroller-range scroller)))) 0)]))