From 6f390ac65583bcee8355f44645f4eaf27df51612 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 17 Sep 2010 11:16:42 -0600
Subject: [PATCH] use right color space of cocoa highlight?

---
 collects/mred/private/wx/cocoa/procs.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wx/cocoa/procs.rkt b/collects/mred/private/wx/cocoa/procs.rkt
index a4f6e049d7..483e1121c3 100644
--- a/collects/mred/private/wx/cocoa/procs.rkt
+++ b/collects/mred/private/wx/cocoa/procs.rkt
@@ -130,12 +130,12 @@
 
 (import-class NSColor)
 
-(define-cocoa NSCalibratedRGBColorSpace _id)
+(define-cocoa NSDeviceRGBColorSpace _id)
 
 (define (get-highlight-background-color)
   (let ([hi (as-objc-allocation-with-retain
              (tell (tell NSColor selectedTextBackgroundColor) 
-                   colorUsingColorSpaceName: NSCalibratedRGBColorSpace))]
+                   colorUsingColorSpaceName: NSDeviceRGBColorSpace))]
         [as-color (lambda (v)
                     (inexact->exact (floor (* 255.0 v))))])
     (begin0