--- a/private.rc Tue Nov 16 20:46:25 2004 +0100
+++ b/private.rc Tue Nov 16 20:46:47 2004 +0100
@@ -86,7 +86,11 @@
thisIsMySystem ifTrue:[
Display hasGrayscales ifTrue:[
OperatingSystem getOSType = 'win32' ifTrue:[
- View defaultStyle:#mswindows95
+ (OperatingSystem getSystemInfo at:#'system') = 'xp' ifTrue:[
+ View defaultStyle:#mswindowsXP
+ ] ifFalse:[
+ View defaultStyle:#mswindows95
+ ]
] ifFalse:[
View defaultStyle:#iris.
"/
@@ -257,10 +261,10 @@
NewLauncher open.
(Smalltalk commandLineArguments includes:'--quick') ifFalse:[
- "/
- "/ disable this if you don't like the other window to come up
- "/
- WorkspaceApplication openSystemWorkspace.
+ "/
+ "/ disable this if you don't like the other window to come up
+ "/
+ WorkspaceApplication openSystemWorkspace.
].
"/