unused local
authortz
Mon, 11 May 1998 22:50:54 +0200
changeset 918 64336276b146
parent 917 66872b5bfdcb
child 919 d0e28bc28b25
unused local
SunRasterReader.st
SunReader.st
TIFFRdr.st
TIFFReader.st
TargaReader.st
--- a/SunRasterReader.st	Mon May 11 22:48:34 1998 +0200
+++ b/SunRasterReader.st	Mon May 11 22:50:54 1998 +0200
@@ -123,7 +123,7 @@
 
     | rasterType mapType mapBytes imageWords form depth 
       rMap gMap bMap mapLen
-      bits a b c index pos|
+      a b c index pos|
 
     inStream := aStream.
 
@@ -276,6 +276,6 @@
 !SunRasterReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.26 1998-02-03 17:01:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SunRasterReader.st,v 1.27 1998-05-11 20:50:54 tz Exp $'
 ! !
 SunRasterReader initialize!
--- a/SunReader.st	Mon May 11 22:48:34 1998 +0200
+++ b/SunReader.st	Mon May 11 22:50:54 1998 +0200
@@ -123,7 +123,7 @@
 
     | rasterType mapType mapBytes imageWords form depth 
       rMap gMap bMap mapLen
-      bits a b c index pos|
+      a b c index pos|
 
     inStream := aStream.
 
@@ -276,6 +276,6 @@
 !SunRasterReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.26 1998-02-03 17:01:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/SunReader.st,v 1.27 1998-05-11 20:50:54 tz Exp $'
 ! !
 SunRasterReader initialize!
--- a/TIFFRdr.st	Mon May 11 22:48:34 1998 +0200
+++ b/TIFFRdr.st	Mon May 11 22:50:54 1998 +0200
@@ -1952,7 +1952,7 @@
      numberType   "{ Class: SmallInteger }"
      length       "{ Class: SmallInteger }"
      result offset msb
-     bitsPerPixel bytesPerRow offset1 offset2 tmp|
+     bytesPerRow offset1 offset2 tmp|
 
     inStream := aStream.
     aStream binary.
@@ -2183,6 +2183,6 @@
 !TIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.59 1998-02-03 17:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.60 1998-05-11 20:50:26 tz Exp $'
 ! !
 TIFFReader initialize!
--- a/TIFFReader.st	Mon May 11 22:48:34 1998 +0200
+++ b/TIFFReader.st	Mon May 11 22:50:54 1998 +0200
@@ -1952,7 +1952,7 @@
      numberType   "{ Class: SmallInteger }"
      length       "{ Class: SmallInteger }"
      result offset msb
-     bitsPerPixel bytesPerRow offset1 offset2 tmp|
+     bytesPerRow offset1 offset2 tmp|
 
     inStream := aStream.
     aStream binary.
@@ -2183,6 +2183,6 @@
 !TIFFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.59 1998-02-03 17:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.60 1998-05-11 20:50:26 tz Exp $'
 ! !
 TIFFReader initialize!
--- a/TargaReader.st	Mon May 11 22:48:34 1998 +0200
+++ b/TargaReader.st	Mon May 11 22:50:54 1998 +0200
@@ -105,10 +105,9 @@
     "read a targa-image from aFileName. return the receiver (with all
      relevant instance variables set for the image) or nil on error"
 
-    |depth flags nBytes ok lenID hasColorMap imageType 
+    |depth flags lenID hasColorMap imageType 
      cmapOffset cmapLength cmapEntrySize xOrg yOrg
-     t bytesPerPixel bytesPerRow rowIdx startIdx endIdx rle
-     dSize "{ Class: SmallInteger }" |
+     t bytesPerPixel bytesPerRow rowIdx startIdx endIdx rle|
 
     inStream := aStream.
     aStream binary.
@@ -492,6 +491,6 @@
 !TargaReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TargaReader.st,v 1.16 1998-02-03 17:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TargaReader.st,v 1.17 1998-05-11 20:49:37 tz Exp $'
 ! !
 TargaReader initialize!