PositionableStream.st
changeset 10592 3957c03de6a1
parent 10577 3a97ef89ffb1
child 11433 bf4acfe61ece
equal deleted inserted replaced
10591:d5122476748b 10592:3957c03de6a1
   194 
   194 
   195 writeLimit:aNumber
   195 writeLimit:aNumber
   196     "set the writeLimit; thats the position after which writing is prohibited"
   196     "set the writeLimit; thats the position after which writing is prohibited"
   197 
   197 
   198     writeLimit := aNumber
   198     writeLimit := aNumber
       
   199 
       
   200     "
       
   201      |s|
       
   202      s := WriteStream on:String new.
       
   203      s nextPutAll:'hello world'.
       
   204      s contents.
       
   205 
       
   206      |s|
       
   207      s := WriteStream on:String new.
       
   208      s writeLimit:5.
       
   209      s nextPutAll:'hello world'.
       
   210      s contents.
       
   211 
       
   212     "
       
   213 
       
   214     "Modified: / 04-06-2007 / 17:21:55 / cg"
   199 ! !
   215 ! !
   200 
   216 
   201 !PositionableStream methodsFor:'positioning'!
   217 !PositionableStream methodsFor:'positioning'!
   202 
   218 
   203 backStep
   219 backStep
   631 ! !
   647 ! !
   632 
   648 
   633 !PositionableStream class methodsFor:'documentation'!
   649 !PositionableStream class methodsFor:'documentation'!
   634 
   650 
   635 version
   651 version
   636     ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.150 2007-05-30 14:14:06 cg Exp $'
   652     ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.151 2007-06-04 20:10:34 cg Exp $'
   637 ! !
   653 ! !
   638 
   654 
   639 PositionableStream initialize!
   655 PositionableStream initialize!