From 0bdfa9a121a26e4c5e0a353e1bad7f4f3ee1bdbe Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Mar 2011 10:23:34 -0600
Subject: [PATCH] cocoa: fix line height in `list-box%'   Closes PR 11822

original commit: deab2ddede64415e64eb7636e5bcf79bbf51aba8
---
 collects/mred/private/wx/cocoa/list-box.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/mred/private/wx/cocoa/list-box.rkt b/collects/mred/private/wx/cocoa/list-box.rkt
index ceb95b5e..73ab676d 100644
--- 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)