--- a/DialogBox.st	Wed Mar 12 17:16:17 2008 +0100
+++ b/DialogBox.st	Mon Mar 31 17:46:36 2008 +0200
@@ -2578,6 +2578,19 @@
 
     |box defaultDir defaultNm|
 
+    UserPreferences current useNativeFileDialog ifTrue:[
+        OperatingSystem isMSWINDOWSlike ifTrue:[
+            ^ Win32FileDialog    
+                fileDialogFor:nil 
+                save:false 
+                title:titleString 
+                inDirectory:aDirectoryPath
+                initialAnswer:defaultName
+                filter:pattern
+                extension:nil
+        ].
+    ].
+
     UserPreferences current useNewFileDialog ifTrue:[
         ^ FileDialog    
                 requestFileName:titleString 
@@ -2791,6 +2804,21 @@
 
     resources := self classResources.
 
+    UserPreferences current useNativeFileDialog ifTrue:[
+        OperatingSystem isMSWINDOWSlike ifTrue:[
+            appendActionOrNil isNil ifTrue:[
+                ^ Win32FileDialog    
+                    fileDialogFor:nil 
+                    save:true 
+                    title:title 
+                    inDirectory:directoryOrNil
+                    initialAnswer:default
+                    filter:nil
+                    extension:nil
+            ].
+        ].
+    ].
+
     UserPreferences current useNewFileDialog ifTrue:[
         fileName := FileDialog 
                         requestFileName:title 
@@ -8579,7 +8607,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.265 2008-02-04 15:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.266 2008-03-31 15:46:36 cg Exp $'
 ! !
 
 DialogBox initialize!