SimpleView.st
changeset 7713 5e4be080979a
parent 7712 287a27631c15
child 7723 620e91f9b082
child 7728 00826284cb7d
--- a/SimpleView.st	Thu Nov 24 17:58:02 2016 +0100
+++ b/SimpleView.st	Thu Nov 24 18:01:01 2016 +0100
@@ -1250,6 +1250,9 @@
 
     true "DefaultStyle isNil" ifTrue:[
         defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
+        defStyle isNil ifTrue:[
+            defStyle := UserPreferences current viewStyle
+        ].
         defStyle notNil ifTrue:[
             DefaultStyle := defStyle asSymbol.
         ] ifFalse:[
@@ -1275,7 +1278,7 @@
         ].
     ].
 
-    "Modified: / 24-11-2016 / 17:57:42 / cg"
+    "Modified: / 24-11-2016 / 18:00:43 / cg"
 !
 
 styleSheet