ExternalStream.st
changeset 7503 ddabde2900d2
parent 7502 a0835d8616ea
child 7540 7cd542f29024
equal deleted inserted replaced
7502:a0835d8616ea 7503:ddabde2900d2
  4107     lastErrorNumber := aNumber
  4107     lastErrorNumber := aNumber
  4108 ! !
  4108 ! !
  4109 
  4109 
  4110 !ExternalStream methodsFor:'queries'!
  4110 !ExternalStream methodsFor:'queries'!
  4111 
  4111 
  4112 contentsClass
       
  4113     "answer the class, we stream on (a collection class)"
       
  4114 
       
  4115     binary ifTrue:[
       
  4116         ^ ByteArray
       
  4117     ].
       
  4118     ^ String
       
  4119 !
       
  4120 
       
  4121 isBinary
  4112 isBinary
  4122     "return true, if the stream is in binary (as opposed to text-) mode.
  4113     "return true, if the stream is in binary (as opposed to text-) mode.
  4123      The default when created is false."
  4114      The default when created is false."
  4124 
  4115 
  4125     ^ binary
  4116     ^ binary
  5750 ! !
  5741 ! !
  5751 
  5742 
  5752 !ExternalStream class methodsFor:'documentation'!
  5743 !ExternalStream class methodsFor:'documentation'!
  5753 
  5744 
  5754 version
  5745 version
  5755     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.256 2003-07-14 10:19:41 stefan Exp $'
  5746     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.257 2003-07-14 10:51:53 stefan Exp $'
  5756 ! !
  5747 ! !
  5757 
  5748 
  5758 ExternalStream initialize!
  5749 ExternalStream initialize!