--- a/ListSelectionBox.st	Thu Jul 18 11:25:02 2002 +0200
+++ b/ListSelectionBox.st	Thu Jul 18 11:25:22 2002 +0200
@@ -225,6 +225,14 @@
 
     "Created: 26.10.1995 / 17:12:38 / cg"
     "Modified: 12.5.1996 / 21:49:14 / cg"
+!
+
+useComboBoxWithList:list
+    "change the enterField to be a ComboList"
+
+    self addEnterField:(ComboBoxView new).
+    enterField leaveAction:[:key | self okPressed].
+    enterField list:list.
 ! !
 
 !ListSelectionBox methodsFor:'initialization'!
@@ -416,5 +424,5 @@
 !ListSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.52 2002-07-09 12:29:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.53 2002-07-18 09:25:22 cg Exp $'
 ! !