1250 i.e. for standalone apps (with no .rc file)" |
1248 i.e. for standalone apps (with no .rc file)" |
1251 |
1249 |
1252 |defStyle| |
1250 |defStyle| |
1253 |
1251 |
1254 true "DefaultStyle isNil" ifTrue:[ |
1252 true "DefaultStyle isNil" ifTrue:[ |
1255 defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'. |
1253 defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'. |
1256 defStyle notNil ifTrue:[ |
1254 defStyle isNil ifTrue:[ |
1257 DefaultStyle := defStyle asSymbol. |
1255 defStyle := UserPreferences current viewStyle |
1258 ] ifFalse:[ |
1256 ]. |
1259 "/ use XP for both linux and older windows systems; |
1257 defStyle notNil ifTrue:[ |
1260 DefaultStyle := ViewStyle msWindowsXP. |
1258 DefaultStyle := defStyle asSymbol. |
1261 |
1259 ] ifFalse:[ |
1262 OperatingSystem isMSWINDOWSlike ifTrue:[ |
1260 "/ use XP for both linux and older windows systems; |
1263 "/ use Vista for vista and newer systems; |
1261 DefaultStyle := ViewStyle msWindowsXP. |
1264 OperatingSystem isVistaLike ifTrue:[ |
1262 |
1265 DefaultStyle := ViewStyle msWindowsVista. |
1263 OperatingSystem isMSWINDOWSlike ifTrue:[ |
1266 OperatingSystem isWin8Like ifTrue:[ |
1264 "/ use Vista for vista and newer systems; |
1267 "/ use win8 for 8 and newer systems; |
1265 OperatingSystem isVistaLike ifTrue:[ |
1268 DefaultStyle := ViewStyle msWindows8 |
1266 DefaultStyle := ViewStyle msWindowsVista. |
1269 ]. |
1267 OperatingSystem isWin8Like ifTrue:[ |
1270 ]. |
1268 "/ use win8 for 8 and newer systems; |
1271 ] ifFalse:[ |
1269 DefaultStyle := ViewStyle msWindows8 |
1272 OperatingSystem isOSXlike ifTrue:[ |
1270 ]. |
1273 DefaultStyle := #macosx |
1271 ]. |
1274 ]. |
1272 ] ifFalse:[ |
1275 ]. |
1273 OperatingSystem isOSXlike ifTrue:[ |
1276 ]. |
1274 DefaultStyle := ViewStyle macosx_yosemite |
1277 ]. |
1275 ] ifFalse:[ |
1278 |
1276 DefaultStyle := ViewStyle adwaita |
1279 "Modified: / 03-02-2011 / 21:41:35 / cg" |
1277 ] |
|
1278 ]. |
|
1279 ]. |
|
1280 ]. |
|
1281 |
|
1282 "Modified: / 24-11-2016 / 18:00:43 / cg" |
1280 ! |
1283 ! |
1281 |
1284 |
1282 styleSheet |
1285 styleSheet |
1283 "return the view style sheet information (a dictionary)" |
1286 "return the view style sheet information (a dictionary)" |
1284 |
1287 |