--- a/UserPreferences.st	Thu Nov 24 06:40:21 2016 +0100
+++ b/UserPreferences.st	Fri Nov 25 07:07:27 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -2252,6 +2250,7 @@
 
     "
      UserPreferences current onlyShowTooltipsForActiveWindow
+     UserPreferences current onlyShowTooltipsForActiveWindow:false
     "
 !
 
@@ -2583,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"