class: SimpleView
changed: #setDefaultStyle
avoid symbol constants (especially with typing error in it)
--- 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