--- a/WinWorkstation.st	Tue Aug 24 17:22:00 2010 +0200
+++ b/WinWorkstation.st	Tue Aug 24 17:22:30 2010 +0200
@@ -14,9 +14,10 @@
 DeviceWorkstation subclass:#WinWorkstation
 	instanceVariableNames:'blackpixel whitepixel listOfFonts rootWin rootDC buttonsPressed
 		eventTrace eventBuffer lastClipboardSequenceNumber'
-	classVariableNames:'BeepDuration NativeDialogs NativeWidgets NativeWidgetClassTable
-		StandardColorValues IgnoreSysColorChanges IgnoreFontChanges
-		SystemColorValues CanEndSession VerboseNativeDialogs'
+	classVariableNames:'BeepDuration NativeDialogs NativeFileDialogs NativeWidgets
+		NativeWidgetClassTable StandardColorValues IgnoreSysColorChanges
+		IgnoreFontChanges SystemColorValues CanEndSession
+		VerboseNativeDialogs'
 	poolDictionaries:''
 	category:'Interface-Graphics'
 !
@@ -5159,7 +5160,7 @@
 
     self initializeStandardColorNames.
 
-    NativeWidgets := NativeDialogs := false.
+    NativeWidgets := NativeDialogs := NativeFileDialogs := false.
 
     BeepDuration := 200.        "milliseconds"
 
@@ -5185,6 +5186,8 @@
     NativeWidgetClassTable at:#ComboBox                 put:'COMBOBOX'.
     NativeWidgetClassTable at:#EditField                put:'EDIT'.
     NativeWidgetClassTable at:#ListBox                  put:'LISTBOX'.
+
+    "Modified: / 24-08-2010 / 16:42:23 / sr"
 !
 
 initializeStandardColorNames
@@ -15006,28 +15009,29 @@
 
 nativeConfirm:aString title:titleString flags:flags initialAnswer:trueOrFalse
      ^ self
-	    nativeMessageBoxFor:nil
-	    text:aString
-	    title:titleString
-	    flags:flags
-	    blocking:false
+            nativeMessageBoxFor:nil
+            text:aString asString string
+            title:titleString
+            flags:flags
+            blocking:false
 
      "
       Screen current
-	nativeConfirm:'please confirm'
-	title:'Confirm'
-	flags:#( APPLMODAL ICONQUESTION OKCANCEL)
-	initialAnswer:true
+        nativeConfirm:'please confirm'
+        title:'Confirm'
+        flags:#( APPLMODAL ICONQUESTION OKCANCEL)
+        initialAnswer:true
      "
      "
       Screen current
-	nativeConfirm:'Yes or No'
-	title:'Confirm'
-	flags:#( APPLMODAL ICONQUESTION YESNO)
-	initialAnswer:true
+        nativeConfirm:'Yes or No'
+        title:'Confirm'
+        flags:#( APPLMODAL ICONQUESTION YESNO)
+        initialAnswer:true
      "
 
     "Modified: / 02-03-2007 / 15:37:57 / cg"
+    "Modified: / 24-08-2010 / 16:17:29 / sr"
 !
 
 nativeConfirmOKCancel:aString title:titleString initialAnswer:trueOrFalse
@@ -15736,6 +15740,27 @@
     "
 !
 
+nativeFileDialogs
+    ^ NativeFileDialogs ? false
+
+    "Created: / 24-08-2010 / 16:41:13 / sr"
+!
+
+nativeFileDialogs:aBoolean
+    "enable / disable use of native file dialogs.
+     This is an experimental, unfinished, unsupported feature.
+     For now, this only affects some file dialogs."
+
+    NativeFileDialogs := aBoolean
+
+    "
+     Screen current nativeFileDialogs:true
+     Screen current nativeFileDialogs:false
+    "
+
+    "Created: / 24-08-2010 / 16:41:36 / sr"
+!
+
 nativeWidgets
     ^ NativeWidgets ? false
 !
@@ -15761,6 +15786,16 @@
     "
 !
 
+supportsNativeFileDialogs
+    ^ true
+
+    "
+     Screen current supportsNativeFileDialogs
+    "
+
+    "Created: / 24-08-2010 / 16:28:42 / sr"
+!
+
 supportsNativeWidgets
     ^ true
 
@@ -18823,11 +18858,11 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.432 2010-08-24 11:59:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.433 2010-08-24 15:22:30 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.432 2010-08-24 11:59:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.433 2010-08-24 15:22:30 sr Exp $'
 ! !
 
 WinWorkstation initialize!