class: SimpleView
authorClaus Gittinger <cg@exept.de>
Tue, 13 Nov 2012 15:01:32 +0100
changeset 5953 46dbf300c36b
parent 5952 5a8e9468117a
child 5954 4af259b45455
class: SimpleView changed: #setDefaultStyle avoid symbol constants (especially with typing error in it)
SimpleView.st
--- a/SimpleView.st	Tue Nov 13 15:00:23 2012 +0100
+++ b/SimpleView.st	Tue Nov 13 15:01:32 2012 +0100
@@ -1247,20 +1247,20 @@
     |defStyle|
 
     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 := #mswindowsXP.
-
-	    OperatingSystem isMSWINDOWSlike ifTrue:[
-		"/ use Vista for vista systems;
-		OperatingSystem isVistaLike ifTrue:[
-		    DefaultStyle := #mswindowsvista
-		].
-	    ].
-	].
+        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 systems;
+                OperatingSystem isVistaLike ifTrue:[
+                    DefaultStyle := ViewStyle msWindowsVista
+                ].
+            ].
+        ].
     ].
 
     "Modified: / 03-02-2011 / 21:41:35 / cg"
@@ -10968,11 +10968,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.712 2012-10-29 11:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.713 2012-11-13 14:01:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.712 2012-10-29 11:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.713 2012-11-13 14:01:32 cg Exp $'
 !
 
 version_SVN