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