--- a/StrColl.st Wed Feb 08 04:16:39 1995 +0100
+++ b/StrColl.st Sat Feb 11 15:10:16 1995 +0100
@@ -10,21 +10,21 @@
hereby transferred.
"
-VariableArray subclass:#Text
+VariableArray subclass:#StringCollection
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Collections-Text'
!
-Text comment:'
+StringCollection comment:'
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.11 1995-02-05 23:38:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.12 1995-02-11 14:10:11 claus Exp $
'!
-!Text class methodsFor:'documentation'!
+!StringCollection class methodsFor:'documentation'!
copyright
"
@@ -42,27 +42,27 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.11 1995-02-05 23:38:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.12 1995-02-11 14:10:11 claus Exp $
"
!
documentation
"
- Text is an array of lines which are strings.
+ StringCollection is an array of lines which are strings.
WARNING:
This class is temporary (a historic leftover) - it may change or
even vanish in the future. Use OrderedCollections or other standard
classes to represent collections of strings.
- Also, Text is a very bad name - there is something totally different
- also named Text in ST-80 ...
+ Also, StringCollection is a very bad name - there is something totally different
+ also named StringCollection in ST-80 ...
So, even if kept, it will be definitely be renamed to something like
StringCollection in one of the next versions.
"
! !
-!Text class methodsFor:'instance creation'!
+!StringCollection class methodsFor:'instance creation'!
from:aString
"return a new text object with lines taken from the argument, aString"
@@ -74,18 +74,18 @@
"return a new text object with lines taken from the argument, an array
of strings"
- |newText
+ |newStringCollection
size "{ Class: SmallInteger }" |
size := anArray size.
- newText := self new:size.
+ newStringCollection := self new:size.
1 to:size do:[:line |
- newText at:line put:(anArray at:line)
+ newStringCollection at:line put:(anArray at:line)
].
- ^ newText
+ ^ newStringCollection
! !
-!Text methodsFor:'growing'!
+!StringCollection methodsFor:'growing'!
grow:newSize
"grow to newsize - new elements are initialized with empty strings -
@@ -112,7 +112,7 @@
contentsArray at:tally put:aString
! !
-!Text methodsFor:'converting'!
+!StringCollection methodsFor:'converting'!
asString
"return myself as a string with embedded cr's"
@@ -236,17 +236,17 @@
]
!
-asText
+asStringCollection
^ self
! !
-!Text methodsFor:'printing'!
+!StringCollection methodsFor:'printing'!
printString
^ self asString
! !
-!Text methodsFor:'searching'!
+!StringCollection methodsFor:'searching'!
indexOfLineStartingWith:aString
"return the index of the first line starting with the argument, aString"
--- a/VarString.st Wed Feb 08 04:16:39 1995 +0100
+++ b/VarString.st Sat Feb 11 15:10:16 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.9 1994-10-10 00:52:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
'!
!VariableString class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.9 1994-10-10 00:52:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
"
!
@@ -137,8 +137,8 @@
!VariableString methodsFor:'converting'!
-asText
- ^ contents asText
+asStringCollection
+ ^ contents asStringCollection
! !
!VariableString methodsFor:'copying'!
--- a/VariableString.st Wed Feb 08 04:16:39 1995 +0100
+++ b/VariableString.st Sat Feb 11 15:10:16 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.9 1994-10-10 00:52:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
'!
!VariableString class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.9 1994-10-10 00:52:52 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
"
!
@@ -137,8 +137,8 @@
!VariableString methodsFor:'converting'!
-asText
- ^ contents asText
+asStringCollection
+ ^ contents asStringCollection
! !
!VariableString methodsFor:'copying'!