*** empty log message *** stable_expecco_sel
authorClaus Gittinger <cg@exept.de>
Tue, 16 Nov 2004 20:46:47 +0100
changeset 633 3f33f2ba982f
parent 632 6cb9fe000c20
child 634 24e11baa24cb
*** empty log message ***
private.rc
--- 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.
     ].
 
     "/