#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 24 Feb 2017 02:05:07 +0100
changeset 3934 993f8921185d
parent 3933 b4af58284a84
child 3935 37eafe77316d
#FEATURE by cg class: MacOSXIconReader added: #read_icm4_from: #read_icm8_from: #read_icm__from: #read_icnV_from: changed: #read_h8mk_from:
MacOSXIconReader.st
--- a/MacOSXIconReader.st	Fri Feb 24 01:37:16 2017 +0100
+++ b/MacOSXIconReader.st	Fri Feb 24 02:05:07 2017 +0100
@@ -800,12 +800,12 @@
 
     offset := 0.
     (bytes from:1 to:4) = #[0 0 0 0] ifTrue:[
-        self halt.
+        self breakPoint:#cg.
         offset := 4.
     ].    
     ^ self readPackBitsImageFrom:bytes asByteArray offset:offset width:48 height:48 depth:8.
 
-    "Modified: / 22-02-2017 / 10:32:07 / cg"
+    "Modified: / 24-02-2017 / 01:39:56 / cg"
 !
 
 read_ic07_from:bytes
@@ -966,6 +966,42 @@
     "
 !
 
+read_icm4_from:bytes
+    "read (actually: skip) an icm4 record."
+
+    self breakPoint:#cg.
+    ^ nil
+
+    "Created: / 24-02-2017 / 01:40:13 / cg"
+!
+
+read_icm8_from:bytes
+    "read (actually: skip) an icm8 record."
+
+    self breakPoint:#cg.
+    ^ nil
+
+    "Created: / 24-02-2017 / 01:40:23 / cg"
+!
+
+read_icm__from:bytes
+    "read (actually: skip) an icm# record."
+
+    self breakPoint:#cg.
+    ^ nil
+
+    "Created: / 24-02-2017 / 01:39:43 / cg"
+!
+
+read_icnV_from:bytes
+    "read (actually: skip) an icnV record."
+
+    self breakPoint:#cg.
+    ^ nil
+
+    "Created: / 24-02-2017 / 01:43:21 / cg"
+!
+
 read_icp4_from:bytes
     "read an ipc4 (PNG or JPEG, 16x16) format icon"