home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / TODOAPP1.CLS < prev    next >
Text File  |  1991-12-11  |  379b  |  17 lines
  1.  
  2.  
  3.  
  4. !String methods !
  5.  
  6. leftOf:stringSize
  7.         "comment"
  8.     | index aStream aString  |
  9.     index:=self size.
  10.     aStream:= ReadWriteStream on:self.
  11.     aStream nextPutAll:self.
  12.     [ index <= stringSize]
  13.         whileTrue:[ aStream nextPut: Space.
  14.                            index:= index + 1].
  15.     aString:= aStream copyFrom:1 to: stringSize.
  16.     ^aString! !
  17.