--- a/UserPreferences.st Thu Nov 24 17:57:19 2016 +0100
+++ b/UserPreferences.st Thu Nov 24 17:59:13 2016 +0100
@@ -2582,6 +2582,28 @@
"
!
+viewStyle
+ ^ self at:#viewStyle ifAbsent:[ nil ]
+
+ "
+ UserPreferences current viewStyle
+ UserPreferences current viewStyle:(ViewStyle adwaita)
+ "
+
+ "Created: / 24-11-2016 / 17:58:30 / cg"
+!
+
+viewStyle:aStyleSymbol
+ self at:#viewStyle put:aStyleSymbol
+
+ "
+ UserPreferences current viewStyle
+ UserPreferences current viewStyle:(ViewStyle adwaita)
+ "
+
+ "Created: / 24-11-2016 / 17:58:51 / cg"
+!
+
waitCursorVisibleTime
"anser the time (in ms), how long a wait cursor should be visible at least"