SimpleView.st
changeset 7712 287a27631c15
parent 7692 17ded3df79d8
child 7713 5e4be080979a
--- a/SimpleView.st	Thu Nov 24 17:56:19 2016 +0100
+++ b/SimpleView.st	Thu Nov 24 17:58:02 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1251,31 +1249,33 @@
     |defStyle|
 
     true "DefaultStyle isNil" ifTrue:[
-	defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
-	defStyle notNil ifTrue:[
-	    DefaultStyle := defStyle asSymbol.
-	] ifFalse:[
-	    "/ use XP for both linux and older windows systems;
-	    DefaultStyle := ViewStyle msWindowsXP.
-
-	    OperatingSystem isMSWINDOWSlike ifTrue:[
-		"/ use Vista for vista and newer systems;
-		OperatingSystem isVistaLike ifTrue:[
-		    DefaultStyle := ViewStyle msWindowsVista.
-		    OperatingSystem isWin8Like ifTrue:[
-			"/ use win8 for 8 and newer systems;
-			DefaultStyle := ViewStyle msWindows8
-		    ].
-		].
-	    ] ifFalse:[
-		OperatingSystem isOSXlike ifTrue:[
-		    DefaultStyle := #macosx
-		].
-	    ].
-	].
-    ].
-
-    "Modified: / 03-02-2011 / 21:41:35 / cg"
+        defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
+        defStyle notNil ifTrue:[
+            DefaultStyle := defStyle asSymbol.
+        ] ifFalse:[
+            "/ use XP for both linux and older windows systems;
+            DefaultStyle := ViewStyle msWindowsXP.
+
+            OperatingSystem isMSWINDOWSlike ifTrue:[
+                "/ use Vista for vista and newer systems;
+                OperatingSystem isVistaLike ifTrue:[
+                    DefaultStyle := ViewStyle msWindowsVista.
+                    OperatingSystem isWin8Like ifTrue:[
+                        "/ use win8 for 8 and newer systems;
+                        DefaultStyle := ViewStyle msWindows8
+                    ].
+                ].
+            ] ifFalse:[
+                OperatingSystem isOSXlike ifTrue:[
+                    DefaultStyle := ViewStyle macosx_yosemite
+                ] ifFalse:[
+                    DefaultStyle := ViewStyle adwaita
+                ]
+            ].
+        ].
+    ].
+
+    "Modified: / 24-11-2016 / 17:57:42 / cg"
 !
 
 styleSheet