# HG changeset patch
# User claus
# Date 785082700 -3600
# Node ID be90784ee668d44d82e49556ba62404b8623d733
# Parent  6bdcb6da4d4fe9290c81f36d9a140e72940a582f
*** empty log message ***

diff -r 6bdcb6da4d4f -r be90784ee668 XBMReader.st
--- a/XBMReader.st	Thu Nov 17 15:30:22 1994 +0100
+++ b/XBMReader.st	Thu Nov 17 15:31:40 1994 +0100
@@ -14,14 +14,14 @@
 	 instanceVariableNames:''
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Graphics-Support'
+	 category:'Graphics-Images support'
 !
 
 XBMReader comment:'
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.8 1994-10-10 02:34:18 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.9 1994-11-17 14:31:40 claus Exp $
 '!
 
 !XBMReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.8 1994-10-10 02:34:18 claus Exp $
+$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.9 1994-11-17 14:31:40 claus Exp $
 "
 !
 
@@ -67,7 +67,9 @@
 save:image onFile:aFileName
     "save image as XBM file on aFileName"
 
-    |reverseBits bits srcIndex rowBytes|
+    |reverseBits bits byte
+     srcIndex "{ Class: SmallInteger }"
+     rowBytes "{ Class: SmallInteger }" |
 
     outStream := FileStream newFileNamed:aFileName.
     outStream isNil ifTrue:[
@@ -108,7 +110,11 @@
 	rowBytes timesRepeat:[
 	    outStream nextPutAll: '0x'.
 	    bits := data at:srcIndex. srcIndex := srcIndex + 1.
-	    (reverseBits at:(bits + 1)) printOn:outStream radix:16.
+	    byte := (reverseBits at:(bits + 1)).
+	    byte < 16 ifTrue:[
+		outStream nextPut:$0
+	    ].
+	    byte printOn:outStream radix:16.
 	    outStream nextPutAll: ', '.
 	].
 	outStream cr
@@ -116,7 +122,14 @@
     outStream nextPutAll: '};'; cr.
     outStream close
 
-    "XBMReader save:(Image fromFile:'bitmaps/SBrowser.xbm') onFile:'test.xbm'"
+    "
+     XBMReader save:(Image fromFile:'bitmaps/SBrowser.xbm') onFile:'test.xbm'
+    "
+    "
+     convert sun icon to XBM format:
+
+     XBMReader save:(Image fromFile:'bitmaps/hello_world.icon') onFile:'test.xbm'
+    "
 ! !
 
 !XBMReader class methodsFor:'testing'!