class: ExtendedComboBox
authorStefan Vogel <sv@exept.de>
Thu, 13 Feb 2014 19:38:46 +0100
changeset 4498 e79dad5cc686
parent 4497 6e7ac0a33e52
child 4499 29cfc755b8c1
class: ExtendedComboBox changed: #createEditField #preferredExtent access font via message send
ExtendedComboBox.st
--- a/ExtendedComboBox.st	Thu Feb 13 19:31:54 2014 +0100
+++ b/ExtendedComboBox.st	Thu Feb 13 19:38:46 2014 +0100
@@ -695,7 +695,7 @@
 
     fieldPref  := menuField preferredExtent.
     buttonPref := menuButton preferredExtent.
-    f := 2 + font maxHeight + (font maxDescent * 2) + (menuField margin * 2).
+    f := 2 + gc font maxHeight + (gc font maxDescent * 2) + (menuField margin * 2).
     h := (fieldPref y max:f) max:buttonPref y.
     m := margin max:1.
     h := h + m + m.
@@ -962,7 +962,7 @@
     menuField menuHolder:(self menuHolder).
 
     menuField model:model.
-    menuField  font:font.
+    menuField font:self font.
     self shown ifTrue:[ menuField realize ].
 !
 
@@ -1548,10 +1548,10 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.67 2013-01-17 10:43:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.68 2014-02-13 18:38:46 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.67 2013-01-17 10:43:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.68 2014-02-13 18:38:46 stefan Exp $'
 ! !