--- a/UnbndExtStr.st Thu Nov 23 02:51:19 1995 +0100
+++ b/UnbndExtStr.st Thu Nov 23 02:52:35 1995 +0100
@@ -11,10 +11,10 @@
"
ExternalStream subclass:#UnboundedExternalStream
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
!UnboundedExternalStream class methodsFor:'documentation'!
@@ -33,26 +33,20 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnbndExtStr.st,v 1.6 1995-11-11 15:28:03 cg Exp $'
-!
-
documentation
"
This class provides common protocol for all external streams which are
unbound in size (i.e. have no end). Examples of these are PipeStream,
Sockets, TTYStreams etc.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnbndExtStr.st,v 1.7 1995-11-23 01:52:35 cg Exp $'
! !
!UnboundedExternalStream methodsFor:'redefind basic'!
-size
- "report an error that this stream has no concept of size"
-
- self shouldNotImplement
-!
-
position
"report an error that this stream has no concept of position"
@@ -63,5 +57,11 @@
"report an error that this stream has no concept of position"
self shouldNotImplement
+!
+
+size
+ "report an error that this stream has no concept of size"
+
+ self shouldNotImplement
! !
--- a/UnboundExternalStream.st Thu Nov 23 02:51:19 1995 +0100
+++ b/UnboundExternalStream.st Thu Nov 23 02:52:35 1995 +0100
@@ -11,10 +11,10 @@
"
ExternalStream subclass:#UnboundedExternalStream
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
!UnboundedExternalStream class methodsFor:'documentation'!
@@ -33,26 +33,20 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnboundExternalStream.st,v 1.6 1995-11-11 15:28:03 cg Exp $'
-!
-
documentation
"
This class provides common protocol for all external streams which are
unbound in size (i.e. have no end). Examples of these are PipeStream,
Sockets, TTYStreams etc.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnboundExternalStream.st,v 1.7 1995-11-23 01:52:35 cg Exp $'
! !
!UnboundedExternalStream methodsFor:'redefind basic'!
-size
- "report an error that this stream has no concept of size"
-
- self shouldNotImplement
-!
-
position
"report an error that this stream has no concept of position"
@@ -63,5 +57,11 @@
"report an error that this stream has no concept of position"
self shouldNotImplement
+!
+
+size
+ "report an error that this stream has no concept of size"
+
+ self shouldNotImplement
! !
--- a/UnboundedExternalStream.st Thu Nov 23 02:51:19 1995 +0100
+++ b/UnboundedExternalStream.st Thu Nov 23 02:52:35 1995 +0100
@@ -11,10 +11,10 @@
"
ExternalStream subclass:#UnboundedExternalStream
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
!UnboundedExternalStream class methodsFor:'documentation'!
@@ -33,26 +33,20 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.6 1995-11-11 15:28:03 cg Exp $'
-!
-
documentation
"
This class provides common protocol for all external streams which are
unbound in size (i.e. have no end). Examples of these are PipeStream,
Sockets, TTYStreams etc.
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.7 1995-11-23 01:52:35 cg Exp $'
! !
!UnboundedExternalStream methodsFor:'redefind basic'!
-size
- "report an error that this stream has no concept of size"
-
- self shouldNotImplement
-!
-
position
"report an error that this stream has no concept of position"
@@ -63,5 +57,11 @@
"report an error that this stream has no concept of position"
self shouldNotImplement
+!
+
+size
+ "report an error that this stream has no concept of size"
+
+ self shouldNotImplement
! !