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

cocoa: fix line height in `list-box%'

Browse Source 
Closes PR 11822
This commit is contained in:
Matthew Flatt 2011-03-27 10:23:34 -06:00
parent 84d8bb3726
commit deab2ddede
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/cocoa/list-box.rkt
View File

@ -162,6 +162,10 @@
(def/public-unimplemented get-label-font) (def/public-unimplemented get-label-font)
(define cell-font (and font (font->NSFont font))) (define cell-font (and font (font->NSFont font)))
(when cell-font
(tellv content-cocoa setRowHeight: #:type _CGFloat
(+ (tell #:type _CGFloat cell-font defaultLineHeightForFont) 2)))
(define/public (get-cell-font) (define/public (get-cell-font)
cell-font) cell-font)