Stream.st
changeset 339 e8658d38abfb
parent 335 1f1cc22f2aa5
child 345 cf2301210c47
equal deleted inserted replaced
338:20376737bdaf 339:e8658d38abfb
    19 
    19 
    20 Stream comment:'
    20 Stream comment:'
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libbasic/Stream.st,v 1.16 1995-05-03 15:30:50 claus Exp $
    24 $Header: /cvs/stx/stx/libbasic/Stream.st,v 1.17 1995-05-08 03:30:58 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !Stream class methodsFor:'documentation'!
    27 !Stream class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libbasic/Stream.st,v 1.16 1995-05-03 15:30:50 claus Exp $
    45 $Header: /cvs/stx/stx/libbasic/Stream.st,v 1.17 1995-05-08 03:30:58 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
   241      s through:Character space.
   241      s through:Character space.
   242     "
   242     "
   243 ! !
   243 ! !
   244 
   244 
   245 !Stream methodsFor:'writing'!
   245 !Stream methodsFor:'writing'!
       
   246 
       
   247 commit
       
   248     "write out all unbuffered data - ignored here, but added
       
   249      to make internalStreams protocol compatible with externalStreams"
       
   250 
       
   251 !
   246 
   252 
   247 nextPut:anObject
   253 nextPut:anObject
   248     "put the argument, anObject onto the receiver
   254     "put the argument, anObject onto the receiver
   249      - we do not know here how to do it, it must be redefined in subclass"
   255      - we do not know here how to do it, it must be redefined in subclass"
   250 
   256 
   720 
   726 
   721 ! !
   727 ! !
   722 
   728 
   723 !Stream methodsFor:'queries'!
   729 !Stream methodsFor:'queries'!
   724 
   730 
       
   731 isBinary
       
   732     "return true, if in binary mode. Returns false here,
       
   733      to make internalStreams protocol compatible with externStreams."
       
   734 
       
   735     ^ false
       
   736 !
       
   737 
   725 isStream
   738 isStream
   726     "return true, if the receiver is some kind of Stream."
   739     "return true, if the receiver is some kind of Stream."
   727 
   740 
   728     ^ true
   741     ^ true
   729 !
   742 !