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

cocoa: adjust button shape for large fonts

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-14 18:10:00 -07:00
parent 6ae159e8be
commit 6c844ec415
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/cocoa/button.rkt
View File

@ -66,12 +66,18 @@
(string? label)) (string? label))
(when font (when font
(let ([n (send font get-point-size)]) (let ([n (send font get-point-size)])
;; If the font is small, adjust the control size:
(when (n . < . sys-font-size) (when (n . < . sys-font-size)
(tellv (tell cocoa cell) (tellv (tell cocoa cell)
setControlSize: #:type _int setControlSize: #:type _int
(if (n . < . (- sys-font-size 2)) (if (n . < . (- sys-font-size 2))
NSMiniControlSize NSMiniControlSize
NSSmallControlSize))))) NSSmallControlSize))
(tellv cocoa sizeToFit))
;; If the font is big, use a scalable control shape:
(when (n . > . (+ sys-font-size 2))
(tellv cocoa setBezelStyle: #:type _int NSRegularSquareBezelStyle)
(tellv cocoa sizeToFit))))
(let ([frame (tell #:type _NSRect cocoa frame)]) (let ([frame (tell #:type _NSRect cocoa frame)])
(tellv cocoa setFrame: #:type _NSRect (tellv cocoa setFrame: #:type _NSRect
(make-NSRect (NSRect-origin frame) (make-NSRect (NSRect-origin frame)