--- a/DialogBox.st	Fri Mar 27 14:12:57 2015 +0100
+++ b/DialogBox.st	Thu Apr 16 11:35:01 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -8286,6 +8288,52 @@
     "Created: 4.3.1996 / 17:21:45 / cg"
 !
 
+addComboBoxOn:aModel list:list tabable:tabable
+    "create a comboBoxView on aModel and add it.
+     Returns the comboBoxView."
+
+    ^ (self addComboBoxOn:aModel tabable:tabable) list:list
+
+    "
+     without a list, the comboBox is disabled:
+
+     |box val|
+
+     val := 'some input' asValue.
+
+     box := Dialog new.
+
+     (box addTextLabel:'combo box example') adjust:#left.
+     box addVerticalSpace.
+     (box addComboBoxOn:val tabable:true).
+     box addOkButton.
+     box open.
+     box accepted ifTrue:[
+        Transcript showCR:val value
+     ].
+    "
+
+    "with a list, it can be pulled:
+
+     |box val|
+
+     val := '' asValue.
+
+     box := Dialog new.
+
+     (box addTextLabel:'combo box example') adjust:#left.
+     box addVerticalSpace.
+     (box addComboBoxOn:val tabable:true) list:#('one' 'two' 'three' 'four').
+     box addOkButton.
+     box open.
+     box accepted ifTrue:[
+        Transcript showCR:val value
+     ].
+    "
+
+    "Modified: 4.3.1996 / 17:21:57 / cg"
+!
+
 addComboBoxOn:aModel tabable:tabable
     "create a comboBoxView on aModel and add it.
      Returns the comboBoxView."
@@ -10340,11 +10388,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.369 2015-03-19 11:21:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.370 2015-04-16 09:35:01 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.369 2015-03-19 11:21:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.370 2015-04-16 09:35:01 stefan Exp $'
 ! !