--- a/BlitImageReader.st	Fri Apr 04 19:26:11 2003 +0200
+++ b/BlitImageReader.st	Fri Apr 04 19:41:52 2003 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 ImageReader subclass:#BlitImageReader
 	instanceVariableNames:''
 	classVariableNames:''
@@ -61,7 +63,7 @@
     "install myself in the Image classes fileFormat table
      for files named `48x48x1' (funny)."
 
-    MIMETypes defineImageType:nil suffix:'48x48x1' reader:self
+    MIMETypes defineImageType:nil "'image/x-blitImage'" suffix:'48x48x1' reader:self
 
     "
      BlitImageReader initialize
@@ -79,24 +81,10 @@
      open a pipe to the uncompressor.
      If you dont have compface/uncompface, get it from your nearest ftp server."
 
-    |f s img|
-
-    f := Filename newTemporary.
-    s := f writeStream.
-    s nextPutAll:aString.
-    s close.
+    |s|
 
-    s := PipeStream readingFrom:('uncompface ' , f name).
-    s isNil ifTrue:[
-	'BLITIMGREADER: no uncompface utility.' errorPrintNL.
-	f delete.
-	^ nil
-    ].
-
-    img := self fromStream:s.
-    s close.
-    f delete.
-    ^ img
+    s := self uncompressString:aString.
+    ^ self fromStream:(s readStream).
 
     "   
      |s|
@@ -219,6 +207,7 @@
 !BlitImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/BlitImageReader.st,v 1.13 1997-06-30 20:55:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/BlitImageReader.st,v 1.14 2003-04-04 17:41:52 cg Exp $'
 ! !
+
 BlitImageReader initialize!