--- 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"