--- a/XBMReader.st	Fri Sep 12 13:40:49 2003 +0200
+++ b/XBMReader.st	Fri Sep 12 13:43:19 2003 +0200
@@ -316,48 +316,6 @@
 
 !XBMReader methodsFor:'writing'!
 
-save:image onFile:aFileName
-    "save image as XBM file on aFileName.
-     Only depth1 b&w images can be represented in this format."
-
-    |stream|
-
-    "sigh - must check before creating file"
-    (self class canRepresent:image) ifFalse:[
-        ^ Image cannotRepresentImageSignal 
-            raiseWith:image
-            errorString:('XBM format only supports monochrome images').
-    ].
-
-    image mask notNil ifTrue:[
-        Image informationLostQuerySignal
-            raiseWith:image
-            errorString:('XBM format does not support an imageMask').
-    ].
-
-    [
-        stream := aFileName asFilename newReadWriteStream.
-    ] on:FileStream openErrorSignal do:[:ex|
-        ^ Image fileCreationErrorSignal 
-            raiseWith:image
-            errorString:('file creation error: ' , aFileName asString).
-    ].
-
-    self save:image onStream:stream.
-    stream close
-
-    "
-     XBMReader save:(Image fromFile:'../../goodies/bitmaps/xbmBitmaps/TicTacToe.xbm') onFile:'/tmp/test.xbm'
-    "
-    "
-     convert sun icon to XBM format:
-
-     XBMReader save:(Image fromFile:'bitmaps/hello_world.icon') onFile:'test.xbm'
-    "
-
-    "Modified: 27.2.1997 / 12:46:49 / cg"
-!
-
 save:image onStream:aStream
     "save image as XBM cdata on aStream.
      Only depth1 b&w images can be represented in this format."
@@ -429,7 +387,7 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.49 2003-09-12 10:38:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.50 2003-09-12 11:42:56 cg Exp $'
 ! !
 
 XBMReader initialize!