FileStream.st
changeset 2998 930360fb3f12
parent 2992 197c2c222030
child 3006 b3530950854a
equal deleted inserted replaced
2997:5254aeab421d 2998:930360fb3f12
   955     filePointer isNil ifTrue:[^ self errorNotOpen].
   955     filePointer isNil ifTrue:[^ self errorNotOpen].
   956     ^ self primitiveFailed
   956     ^ self primitiveFailed
   957 !
   957 !
   958 
   958 
   959 size
   959 size
   960     self obsoleteMethodWarning:'use #fileSize'.
   960     "return the size of the stream;
       
   961      thats the number of bytes of the file."
       
   962 
       
   963     "/ no obsoleteMethodWarning - size is ok for streams.
       
   964     "/ self obsoleteMethodWarning:'use #fileSize'.
       
   965 
   961     ^ self fileSize.
   966     ^ self fileSize.
       
   967 
       
   968     "Modified: 4.10.1997 / 18:01:09 / cg"
   962 ! !
   969 ! !
   963 
   970 
   964 !FileStream methodsFor:'testing'!
   971 !FileStream methodsFor:'testing'!
   965 
   972 
   966 isFileStream
   973 isFileStream
   971 ! !
   978 ! !
   972 
   979 
   973 !FileStream class methodsFor:'documentation'!
   980 !FileStream class methodsFor:'documentation'!
   974 
   981 
   975 version
   982 version
   976     ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.49 1997-10-04 15:56:57 cg Exp $'
   983     ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.50 1997-10-04 17:01:30 cg Exp $'
   977 ! !
   984 ! !
   978 FileStream initialize!
   985 FileStream initialize!