--- a/UserPreferences.st	Mon Mar 31 15:49:56 2008 +0200
+++ b/UserPreferences.st	Mon Mar 31 17:44:23 2008 +0200
@@ -657,6 +657,24 @@
     ^ SystemBrowser
 !
 
+useNativeFileDialog
+    "using native file dialog"
+
+    ^ self at:#useNativeFileDialog ifAbsent:false
+!
+
+useNativeFileDialog:aBoolean
+    "using native file dialog (if available)"
+
+    self at:#useNativeFileDialog put:aBoolean
+
+    "
+     UserPreferences current useNativeFileDialog:true
+     UserPreferences current useNativeFileDialog:false
+     UserPreferences current useNativeFileDialog
+    "
+!
+
 useNewChangesBrowser
     "using new or old change browser"
 
@@ -2563,5 +2581,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.195 2008-02-29 10:13:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.196 2008-03-31 15:44:23 cg Exp $'
 ! !