equal
deleted
inserted
replaced
569 remaining := initialWriteCount. |
569 remaining := initialWriteCount. |
570 |
570 |
571 wasBlocking := self blocking:false. |
571 wasBlocking := self blocking:false. |
572 [remaining ~~ 0] whileTrue:[ |
572 [remaining ~~ 0] whileTrue:[ |
573 count := super nextPutBytes:remaining from:buffer startingAt:offset. |
573 count := super nextPutBytes:remaining from:buffer startingAt:offset. |
574 count ~~ remaining ifTrue:[ Transcript showCR:'writeWait'. self writeWait. ]. |
574 count ~~ remaining ifTrue:[ "Transcript showCR:'writeWait'. "self writeWait. ]. |
575 |
575 |
576 remaining := remaining - count. |
576 remaining := remaining - count. |
577 offset := offset + count. |
577 offset := offset + count. |
578 ]. |
578 ]. |
579 wasBlocking ifTrue:[self blocking:true]. |
579 wasBlocking ifTrue:[self blocking:true]. |
582 ! ! |
582 ! ! |
583 |
583 |
584 !NonPositionableExternalStream class methodsFor:'documentation'! |
584 !NonPositionableExternalStream class methodsFor:'documentation'! |
585 |
585 |
586 version |
586 version |
587 ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.66 2014-01-29 13:35:26 stefan Exp $' |
587 ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.67 2014-01-30 16:41:04 stefan Exp $' |
588 ! |
588 ! |
589 |
589 |
590 version_CVS |
590 version_CVS |
591 ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.66 2014-01-29 13:35:26 stefan Exp $' |
591 ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.67 2014-01-30 16:41:04 stefan Exp $' |
592 ! ! |
592 ! ! |
593 |
593 |