--- a/UserPreferences.st	Fri Sep 07 18:57:01 2012 +0100
+++ b/UserPreferences.st	Thu Sep 13 09:54:28 2012 +0100
@@ -548,51 +548,6 @@
     "Modified: / 18-04-2011 / 17:13:34 / cg"
 ! !
 
-!UserPreferences methodsFor:'acccesing-locale'!
-
-dateInputFormat
-    "return a format used when tools read a date from the user"
-
-    ^ self 
-        at:#dateInputFormat 
-        ifAbsentPut:[
-            (self language == #en and:[ self languageTerritory ~= #en])
-                ifTrue:[ '%m %d %y' ]
-                ifFalse:[ '%d %m %y' ]
-        ]
-!
-
-dateInputFormat:aFormatString
-    "return a format used when tools read a date from the user"
-
-    ^ self 
-        at:#dateInputFormat 
-        ifAbsentPut:[
-            (self language == #en and:[ self languageTerritory ~= #en])
-                ifTrue:[ '%m %d %y' ]
-                ifFalse:[ '%d %m %y' ]
-        ]
-
-    "
-     UserPreferences current dateInputFormat:'%d %m %y'  -- european
-     UserPreferences current dateInputFormat:'%m %d %y'  -- us
-    "
-!
-
-decimalPointCharacter
-    "toDo: migrate from ClassVar in Number;
-     use this for new applications"
-
-    ^ $.
-!
-
-thousandsSeparatorCharacter
-    "toDo: migrate from ClassVar elsewhere;
-     use this for new applications"
-
-    ^ $'
-! !
-
 !UserPreferences methodsFor:'accessing'!
 
 at:key 
@@ -660,6 +615,51 @@
     "Modified: / 22-02-2012 / 13:22:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!UserPreferences methodsFor:'accessing-locale'!
+
+dateInputFormat
+    "return a format used when tools read a date from the user"
+
+    ^ self 
+        at:#dateInputFormat 
+        ifAbsentPut:[
+            (self language == #en and:[ self languageTerritory ~= #en])
+                ifTrue:[ '%m %d %y' ]
+                ifFalse:[ '%d %m %y' ]
+        ]
+!
+
+dateInputFormat:aFormatString
+    "return a format used when tools read a date from the user"
+
+    ^ self 
+        at:#dateInputFormat 
+        ifAbsentPut:[
+            (self language == #en and:[ self languageTerritory ~= #en])
+                ifTrue:[ '%m %d %y' ]
+                ifFalse:[ '%d %m %y' ]
+        ]
+
+    "
+     UserPreferences current dateInputFormat:'%d %m %y'  -- european
+     UserPreferences current dateInputFormat:'%m %d %y'  -- us
+    "
+!
+
+decimalPointCharacter
+    "toDo: migrate from ClassVar in Number;
+     use this for new applications"
+
+    ^ $.
+!
+
+thousandsSeparatorCharacter
+    "toDo: migrate from ClassVar elsewhere;
+     use this for new applications"
+
+    ^ $'
+! !
+
 !UserPreferences methodsFor:'accessing-misc'!
 
 selectorNamespacesEnabled
@@ -1279,6 +1279,31 @@
     "
 !
 
+avoidConfirmationsForExperiencedUsers
+    "some confirmers ara annoying, if you are an experienced st/x user"
+
+    ^ self at:#avoidConfirmationsForExperiencedUsers ifAbsent:[ false ]
+
+    "
+     UserPreferences current avoidConfirmationsForExperiencedUsers
+    "
+
+    "Created: / 05-09-2012 / 11:26:55 / cg"
+!
+
+avoidConfirmationsForExperiencedUsers:aBooleanOrNil
+    "some confirmers ara annoying, if you are an experienced st/x user.
+     Set/clear the flag which controls this"
+
+    ^ self at:#avoidConfirmationsForExperiencedUsers put:aBooleanOrNil
+
+    "
+     UserPreferences current avoidConfirmationsForExperiencedUsers:true
+    "
+
+    "Created: / 05-09-2012 / 11:27:09 / cg"
+!
+
 avoidSlowDrawingOperationsUnderWindows
     ^ OperatingSystem isMSWINDOWSlike
 !
@@ -4088,11 +4113,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.313 2012/08/10 10:50:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.314 2012/09/05 09:28:30 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.313 2012/08/10 10:50:13 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.314 2012/09/05 09:28:30 cg Exp §'
 !
 
 version_SVN