--- a/ComboBoxView.st	Mon Jun 24 12:26:17 2002 +0200
+++ b/ComboBoxView.st	Wed Jul 03 14:23:55 2002 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libwidg2' }"
+
 ComboView subclass:#ComboBoxView
 	instanceVariableNames:''
 	classVariableNames:''
@@ -192,8 +194,12 @@
 
 !ComboBoxView methodsFor:'initialization'!
 
+editFieldClass
+    ^ EditField
+!
+
 initializeField
-    field := EditField in:self.
+    field := self editFieldClass in:self.
     field borderWidth:0.
     field model:(ValueHolder newString).
     field acceptOnLostFocus:true.
@@ -268,5 +274,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.24 1999-04-15 16:30:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.25 2002-07-03 12:23:55 cg Exp $'
 ! !