NonPositionableExternalStream.st
changeset 7501 3b04d6b5ae78
parent 7497 cc29afd51151
child 7541 e980e3695dee
equal deleted inserted replaced
7500:e4fbe86c7341 7501:3b04d6b5ae78
   453     readCount := initialReadCount.
   453     readCount := initialReadCount.
   454 
   454 
   455     blocking := self blocking:false.
   455     blocking := self blocking:false.
   456     [readCount ~~ 0] whileTrue:[ |count|
   456     [readCount ~~ 0] whileTrue:[ |count|
   457         self writeWait.
   457         self writeWait.
   458         count := super nextPutBytes:readCount from:buffer startingAt:initialOffset.
   458         count := super nextPutBytes:readCount from:buffer startingAt:offset.
   459         readCount := readCount - count.
   459         readCount := readCount - count.
   460         offset := offset + count.
   460         offset := offset + count.
   461     ].
   461     ].
   462     blocking ifTrue:[
   462     blocking ifTrue:[
   463         self blocking:true.
   463         self blocking:true.
   466 ! !
   466 ! !
   467 
   467 
   468 !NonPositionableExternalStream class methodsFor:'documentation'!
   468 !NonPositionableExternalStream class methodsFor:'documentation'!
   469 
   469 
   470 version
   470 version
   471     ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.44 2003-07-12 15:10:41 stefan Exp $'
   471     ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.45 2003-07-12 17:28:03 stefan Exp $'
   472 ! !
   472 ! !