checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 15 Feb 1997 15:35:40 +0100
changeset 1355 a7ec624230c0
parent 1354 b5baf62b8c7a
child 1356 90756b9ce548
checkin from browser
ImageRdr.st
ImageReader.st
--- a/ImageRdr.st	Sat Feb 15 13:01:39 1997 +0100
+++ b/ImageRdr.st	Sat Feb 15 15:35:40 1997 +0100
@@ -1471,6 +1471,28 @@
     "Modified: 22.4.1996 / 19:16:10 / cg"
 ! !
 
+!ImageReader methodsFor:'accessing - private'!
+
+byteOrder:aSymbol
+    "set the byte order - either #lsb or #msb"
+
+    byteOrder := aSymbol
+
+    "Created: 15.2.1997 / 13:58:50 / cg"
+!
+
+inStream
+    ^ inStream
+
+    "Created: 15.2.1997 / 13:57:40 / cg"
+!
+
+inStream:aStream
+    inStream := aStream
+
+    "Created: 15.2.1997 / 13:57:35 / cg"
+! !
+
 !ImageReader methodsFor:'i/o support'!
 
 readLong
@@ -1622,5 +1644,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.38 1997-01-31 09:52:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.39 1997-02-15 14:35:40 cg Exp $'
 ! !
--- a/ImageReader.st	Sat Feb 15 13:01:39 1997 +0100
+++ b/ImageReader.st	Sat Feb 15 15:35:40 1997 +0100
@@ -1471,6 +1471,28 @@
     "Modified: 22.4.1996 / 19:16:10 / cg"
 ! !
 
+!ImageReader methodsFor:'accessing - private'!
+
+byteOrder:aSymbol
+    "set the byte order - either #lsb or #msb"
+
+    byteOrder := aSymbol
+
+    "Created: 15.2.1997 / 13:58:50 / cg"
+!
+
+inStream
+    ^ inStream
+
+    "Created: 15.2.1997 / 13:57:40 / cg"
+!
+
+inStream:aStream
+    inStream := aStream
+
+    "Created: 15.2.1997 / 13:57:35 / cg"
+! !
+
 !ImageReader methodsFor:'i/o support'!
 
 readLong
@@ -1622,5 +1644,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.38 1997-01-31 09:52:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.39 1997-02-15 14:35:40 cg Exp $'
 ! !