UserPreferences.st
changeset 23468 baa19fa832c7
parent 23317 791212aa3ab7
child 23560 2acf26b7ed90
--- a/UserPreferences.st	Thu Oct 25 11:09:59 2018 +0200
+++ b/UserPreferences.st	Thu Oct 25 16:53:14 2018 +0200
@@ -2413,9 +2413,20 @@
 !
 
 nativeFileDialogs
-    ^ self at:#nativeFileDialogs ifAbsent:false
+    |return|
+
+    return := self 
+        at:#nativeFileDialogs 
+        ifAbsent:[
+            "/ all developer please help testing the native file dialog      
+            Smalltalk isStandAloneApp not
+            or:[OperatingSystem getDomainName asLowercase includesSubString:'exept'] 
+        ].
+
+    ^ return
 
     "Created: / 24-08-2010 / 17:01:59 / sr"
+    "Modified: / 25-10-2018 / 16:52:39 / sr"
 !
 
 nativeFileDialogs:aBoolean
@@ -6035,7 +6046,6 @@
 ! !
 
 
-
 !UserPreferences methodsFor:'default settings-syntax colors'!
 
 at:key putSyntaxColor:aColor