.

original commit: 8d72fe0e210a979547b4411e5f2dd082311d5c44

collects/mred/private/kernel.ss

@@ -330,6 +330,7 @@
     on-size
     on-set-focus
     on-kill-focus)
+  (define-function set-combo-box-font)
   (define-class check-box% item% #f
     set-label
     set-value

collects/mred/private/wxtextfield.ss

@@ -145,7 +145,9 @@
       (sequence
 	(alignment 'left 'top)
 	(unless horiz? (send p alignment 'left 'top))
-	(unless multi? (stretchable-in-y #f)))
+	(unless multi? (stretchable-in-y #f))
+	;; For Windows:
+	(wx:set-combo-box-font font))
       (private-field
        [l (and label
 	       (make-object wx-message% #f proxy p label -1 -1 null font))]