--- a/MacOSXIconReader.st	Thu Jul 24 19:42:41 2014 +0200
+++ b/MacOSXIconReader.st	Thu Jul 24 19:49:16 2014 +0200
@@ -588,6 +588,21 @@
     "
 !
 
+read_ICON_from:bytes
+    "read an ICON format icon.
+     128 bytes, 32x32x1 monochrome"
+
+    |pixelData img|
+
+    pixelData := (ByteArray new:128) replaceBytesFrom:1 to:128 with:bytes startingAt:1; yourself.
+    img := Depth1Image width:32 height:32 fromArray:pixelData.
+    ^ img
+
+    "
+     self fromFile:'/Applications/TextEdit.app/Contents/Resources/txt.icns'
+    "
+!
+
 read_ic07_from:bytes
     "read an ic07 (PNG or JPEG, 128) format icon"
 
@@ -806,11 +821,11 @@
 !MacOSXIconReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MacOSXIconReader.st,v 1.8 2014-07-24 17:42:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MacOSXIconReader.st,v 1.9 2014-07-24 17:49:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MacOSXIconReader.st,v 1.8 2014-07-24 17:42:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MacOSXIconReader.st,v 1.9 2014-07-24 17:49:16 cg Exp $'
 ! !