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

racket/gui cocoa: adjust control font for 10.10

Browse Source
This commit is contained in:
Matthew Flatt 2014-08-29 14:53:47 -06:00
parent 8ba8d01ec0
commit 321a3be29f
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/procs.rkt
View File

@ -86,7 +86,13 @@
(define (get-double-click-time) (define (get-double-click-time)
500) 500)
(define (get-control-font-face) "Lucida Grande") (define (get-control-font-face)
;; Using `(tell NSFont systemFontOfSize: ...)` gives us an OS-determined
;; font, but my attempts to extract the name give something like ".LucidaGrandeUI"
;; instead of "Lucida Grande"
(cond
[(version-10.10-or-later?) "Helvetica Neue"]
[else "Lucida Grande"]))
(define (get-control-font-size) 13) (define (get-control-font-size) 13)
(define (get-control-font-size-in-pixels?) #f) (define (get-control-font-size-in-pixels?) #f)
(define (cancel-quit) (void)) (define (cancel-quit) (void))

5
pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/utils.rkt
View File

@ -23,7 +23,8 @@
->wx ->wx
old-cocoa? old-cocoa?
version-10.6-or-later? version-10.6-or-later?
version-10.7-or-later?) version-10.7-or-later?
version-10.10-or-later?)
with-autorelease with-autorelease
call-with-autorelease call-with-autorelease
define-mz) define-mz)
@ -80,3 +81,5 @@
(NSAppKitVersionNumber . >= . 1038)) (NSAppKitVersionNumber . >= . 1038))
(define (version-10.7-or-later?) (define (version-10.7-or-later?)
(NSAppKitVersionNumber . >= . 1138)) (NSAppKitVersionNumber . >= . 1138))
(define (version-10.10-or-later?)
(NSAppKitVersionNumber . >= . 1331))