--- a/ComboBoxView.st	Tue Jul 22 14:49:03 2008 +0200
+++ b/ComboBoxView.st	Tue Jul 22 15:38:33 2008 +0200
@@ -234,6 +234,7 @@
     "
     self delegate:(KeyboardForwarder toView:field).
     field delegate:self.    "delegate mouseWheel events to myself"
+    field font:font.
 
     menuSelectAction := [:menuValue | field contents:menuValue].
 
@@ -308,5 +309,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.30 2008-01-11 19:30:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.31 2008-07-22 13:38:33 stefan Exp $'
 ! !