31 09

gs C oIle c ti onO fL ine s

"return a collection containing the lines (separated by cr) of the receiver."

|lines myClass

numb e r 0 fL ine s "{ Clas s:Smalllnte ge r }" startlndex "{ Class:Smalllnteger }" stopIndex "{ Class:Smalllnteger }" |

"count first, to avoid regrowing"

numberOfLines := (self occurrencesOf:Character cr) + 1. lines := OrderedCollection new:numberOfLines. myClass := self species.