--- a/StandardSystemView.st	Tue May 25 15:14:01 1999 +0200
+++ b/StandardSystemView.st	Tue May 25 15:37:52 1999 +0200
@@ -359,21 +359,31 @@
     |nm i|
 
     (i := DefaultIcon) isNil ifTrue:[
-	i := self classResources at:'ICON' default:nil.
-	i isNil ifTrue:[
-	    nm := ClassResources at:'ICON_FILE' default:'SmalltalkX.xbm'.
-	    i := Image fromFile:nm resolution:100.
-	    i isNil ifTrue:[
-		i := Image fromFile:('bitmaps/' , nm) resolution:100.
-	    ]
-	].
-	i notNil ifTrue:[
-	    DefaultIcon := i := i on:Display
-	]
+        i := self classResources at:'ICON' default:nil.
+        i isNil ifTrue:[
+            OperatingSystem platformName == #win32 ifTrue:[
+                nm := 'stx16x16.xpm'.
+            ] ifFalse:[
+                nm := 'SmalltalkX.xbm'.
+            ].
+            nm := ClassResources at:'ICON_FILE' default:nm.
+            i := Image fromFile:nm resolution:100.
+            i isNil ifTrue:[
+                i := Image fromFile:('bitmaps/' , nm) resolution:100.
+            ]
+        ].
+        i notNil ifTrue:[
+            DefaultIcon := i := i on:Display
+        ]
     ].
     ^ i
 
-    "Modified: 18.4.1997 / 15:17:22 / cg"
+    "
+     DefaultIcon := nil.
+     self defaultIcon inspect
+    "
+
+    "Modified: / 25.5.1999 / 15:31:26 / cg"
 !
 
 defaultLabel
@@ -1448,6 +1458,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.115 1999-05-23 12:06:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.116 1999-05-25 13:37:52 cg Exp $'
 ! !
 StandardSystemView initialize!