--- a/UserPreferences.st	Tue Aug 24 17:39:08 2010 +0200
+++ b/UserPreferences.st	Tue Aug 24 18:07:14 2010 +0200
@@ -788,9 +788,17 @@
 !
 
 nativeDialogs:aBoolean
-    self at:#nativeDialogs put:aBoolean
-
-    "Created: / 24-08-2010 / 17:01:52 / sr"
+    |currentScreen|
+
+    self at:#nativeDialogs put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeDialogs ifTrue:[
+            currentScreen nativeDialogs:aBoolean
+        ].
+    ].
+
+    "Modified: / 24-08-2010 / 18:06:43 / sr"
 !
 
 nativeFileDialogs
@@ -800,9 +808,17 @@
 !
 
 nativeFileDialogs:aBoolean
-    self at:#nativeFileDialogs put:aBoolean
-
-    "Created: / 24-08-2010 / 17:02:03 / sr"
+    |currentScreen|
+
+    self at:#nativeFileDialogs put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeFileDialogs ifTrue:[
+            currentScreen nativeFileDialogs:aBoolean
+        ].
+    ].
+
+    "Modified: / 24-08-2010 / 18:06:27 / sr"
 !
 
 nativeWidgets
@@ -812,9 +828,18 @@
 !
 
 nativeWidgets:aBoolean
-    self at:#nativeWidgets put:aBoolean
+    |currentScreen|
+
+    self at:#nativeWidgets put:aBoolean.
+    currentScreen := Screen current.
+    currentScreen notNil ifTrue:[
+        currentScreen supportsNativeWidgets ifTrue:[
+            currentScreen nativeWidgets:aBoolean
+        ].
+    ].
 
     "Created: / 24-08-2010 / 16:58:14 / sr"
+    "Modified: / 24-08-2010 / 18:05:56 / sr"
 !
 
 showTipOfTheDayAtStartup
@@ -3295,9 +3320,9 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.252 2010-08-24 15:39:08 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.253 2010-08-24 16:07:14 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.252 2010-08-24 15:39:08 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.253 2010-08-24 16:07:14 sr Exp $'
 ! !