suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use right color space of cocoa highlight?

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-17 11:16:42 -06:00
parent 712ee0cc68
commit 6f390ac655
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/cocoa/procs.rkt
View File

@ -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