--- a/DialogBox.st	Mon Sep 23 11:39:22 2002 +0200
+++ b/DialogBox.st	Mon Sep 23 14:29:01 2002 +0200
@@ -1868,6 +1868,10 @@
 
     |box defaultDir defaultNm dir enteredName|
 
+    UserPreferences current useNewFileDialog ifTrue:[
+        ^ FileDialog requestFileName:titleString default:defaultName ok:okText abort:abortText pattern:pattern fromDirectory:aDirectoryPathOrNil whenBoxCreatedEvaluate:boxCreatedCallback
+    ].
+
     defaultNm := defaultName.
     defaultDir := aDirectoryPathOrNil.
     defaultDir isNil ifTrue:[
@@ -7553,7 +7557,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.195 2002-09-17 14:45:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.196 2002-09-23 12:29:01 penk Exp $'
 ! !
 
 DialogBox initialize!