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

Closes PR 11822
2011-03-27 10:23:34 -06:00 · 2011-03-27 10:23:34 -06:00 · deab2ddede
commit deab2ddede
parent 84d8bb3726
1 changed files with 4 additions and 0 deletions
--- a/collects/mred/private/wx/cocoa/list-box.rkt
+++ b/collects/mred/private/wx/cocoa/list-box.rkt
@ -162,6 +162,10 @@
  (def/public-unimplemented get-label-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)
    cell-font)