--- a/DialogBox.st	Wed Mar 27 09:58:56 2013 +0100
+++ b/DialogBox.st	Thu Mar 28 03:23:51 2013 +0100
@@ -5963,6 +5963,22 @@
     "Modified: / 12-01-2008 / 23:02:42 / cg"
 !
 
+requestClassName:aString initialAnswer:initial
+    "launch a Dialog, which allows user to enter a class name.
+     Return the entered string (may be empty string) or nil (if cancel was pressed).
+     The entryField does classNameCompletion on TAB."
+
+     ^ self requestClassName:aString list:nil okLabel:'OK' initialAnswer:initial
+
+    "
+     Dialog 
+         requestClassName:'enter a class:'
+         initialAnswer:'Arr'        
+    "
+
+    "Modified: / 12-01-2008 / 22:58:13 / cg"
+!
+
 requestClassName:aString list:list okLabel:okLabel initialAnswer:initial
     "launch a Dialog, which allows user to enter a class name.
      Return the entered string (may be empty string) or nil (if cancel was pressed).
@@ -9783,11 +9799,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.332 2013-03-10 20:22:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.333 2013-03-28 02:23:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.332 2013-03-10 20:22:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.333 2013-03-28 02:23:51 cg Exp $'
 ! !