--- a/DialogBox.st	Thu May 07 15:48:04 2009 +0200
+++ b/DialogBox.st	Fri May 08 11:25:59 2009 +0200
@@ -2706,6 +2706,25 @@
     "Modified: / 16.6.1998 / 13:34:23 / cg"
 !
 
+requestFileName:titleString fromDirectory:aDirectory
+    "launch a Dialog, which allows user to enter a filename.
+     The files presented initially are those from the current directory.
+     The box will show ok/cancel in its buttons.
+     Return the string or nil if cancel was pressed."
+
+    ^ self 
+        requestFileName:titleString 
+        default:nil
+        pattern:'*'
+        fromDirectory:aDirectory
+
+    "
+     Dialog 
+        requestFileName:'enter a fileName:'
+        fromDirectory:'../../libbasic'
+    "
+!
+
 requestFileName:titleString ifFail:cancelBlockOrValue
     "launch a Dialog, which allows user to enter a filename.
      Return the pathname string consisting of the full pathname of the filename,
@@ -8754,7 +8773,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.280 2009-01-21 19:59:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.281 2009-05-08 09:25:59 cg Exp $'
 ! !
 
 DialogBox initialize!