Win32FileDialog.st
changeset 8402 d4b122b3a4b7
parent 8358 83aa07fd9d8a
child 9345 fa51879ca252
--- a/Win32FileDialog.st	Tue Nov 04 20:13:27 2008 +0100
+++ b/Win32FileDialog.st	Wed Nov 05 15:02:00 2008 +0100
@@ -188,7 +188,7 @@
         self openFile
     "
 
-    ^ (FileDialogWin new openFile: 'c:\untitled.txt') file.
+    ^ (Win32FileDialog new openFile: 'c:\untitled.txt') file.
 !
 
 saveFile
@@ -197,7 +197,7 @@
         self saveFile
     "
 
-    ^ (FileDialogWin new saveFile: 'C:\vsw311\untitled.txt') file.
+    ^ (Win32FileDialog new saveFile: 'C:\vsw311\untitled.txt') file.
 ! !
 
 !Win32FileDialog class methodsFor:'filters'!
@@ -650,13 +650,14 @@
         inDirectory:dirPathOrNil
         initialAnswer:initialOrNil
         filter:filterArrayOrNil
-     extension:extensionOrNil
+        extension:extensionOrNil
 
     self 
         owner: ownerWindow;
         title: titleOrNil;
         initialFileName: initialOrNil;
-        defFilter: extensionOrNil.
+        defFilter: extensionOrNil;
+        directory: dirPathOrNil.
 
     filterArrayOrNil notNil ifTrue:[
         filterArrayOrNil do:[:each | self addFilter: each last description: each first].
@@ -1065,5 +1066,5 @@
 !Win32FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Win32FileDialog.st,v 1.5 2008-10-20 14:41:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Win32FileDialog.st,v 1.6 2008-11-05 14:02:00 fm Exp $'
 ! !