--- a/WinIconRdr.st	Sun May 09 16:38:04 1999 +0200
+++ b/WinIconRdr.st	Sun May 09 18:19:42 1999 +0200
@@ -698,6 +698,13 @@
     "save image as BMP file on aFileName.
      Only depth 1,4,8 and 24 images can be represented in this format."
 
+    aFileName asFilename suffix asLowercase = 'ico' ifTrue:[
+"/        (image depth == 4
+"/        and:[image width == 32
+"/        and:[image height == 32]]) ifTrue:[
+            ^ self saveICO:image onFile:aFileName.
+"/        ]
+    ].
     self saveBMP:image onFile:aFileName.
 
     "Modified: 17.10.1997 / 20:16:53 / cg"
@@ -922,6 +929,6 @@
 !WindowsIconReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.43 1999-05-09 14:38:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinIconRdr.st,v 1.44 1999-05-09 16:19:42 cg Exp $'
 ! !
 WindowsIconReader initialize!

--- a/WindowsIconReader.st	Sun May 09 16:38:04 1999 +0200
+++ b/WindowsIconReader.st	Sun May 09 18:19:42 1999 +0200
@@ -698,6 +698,13 @@
     "save image as BMP file on aFileName.
      Only depth 1,4,8 and 24 images can be represented in this format."
 
+    aFileName asFilename suffix asLowercase = 'ico' ifTrue:[
+"/        (image depth == 4
+"/        and:[image width == 32
+"/        and:[image height == 32]]) ifTrue:[
+            ^ self saveICO:image onFile:aFileName.
+"/        ]
+    ].
     self saveBMP:image onFile:aFileName.
 
     "Modified: 17.10.1997 / 20:16:53 / cg"
@@ -922,6 +929,6 @@
 !WindowsIconReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.43 1999-05-09 14:38:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowsIconReader.st,v 1.44 1999-05-09 16:19:42 cg Exp $'
 ! !
 WindowsIconReader initialize!