--- a/ImageReader.st	Wed Aug 16 19:25:01 2000 +0200
+++ b/ImageReader.st	Wed Aug 16 19:25:43 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 Object subclass:#ImageReader
 	instanceVariableNames:'width height data byteOrder inStream outStream photometric
 		samplesPerPixel bitsPerSample colorMap mask maskPixel
@@ -1938,23 +1940,23 @@
     |image depth|
 
     depth := self bitsPerPixel.
-    image := (Image implementorForDepth:depth) new.
+    image := Image newForDepth:depth.
     image depth:depth.
     inStream isFileStream ifTrue:[
-	image fileName:inStream pathName.
+        image fileName:inStream pathName.
     ].
     image 
-	width:width 
-	height:height
-	photometric:photometric
-	samplesPerPixel:samplesPerPixel
-	bitsPerSample:bitsPerSample
-	colorMap:colorMap
-	bits:data
-	mask:mask.
+        width:width 
+        height:height
+        photometric:photometric
+        samplesPerPixel:samplesPerPixel
+        bitsPerSample:bitsPerSample
+        colorMap:colorMap
+        bits:data
+        mask:mask.
 
     imageSequence notNil ifTrue:[
-	image imageSequence:imageSequence.
+        image imageSequence:imageSequence.
     ].
 
     ^ image
@@ -2143,5 +2145,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.70 2000-07-28 11:54:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.71 2000-08-16 17:25:43 cg Exp $'
 ! !