Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
concatenating mixed texts & strings
authorClaus Gittinger <cg@exept.de>
Tue, 14 May 1996 16:39:08 +0200
changeset 1396 5b5386311dbd
parent 1395 f324be2221e3
child 1397 c6491de53723
concatenating mixed texts & strings
CharArray.st file | annotate | diff | comparison | revisions
CharacterArray.st file | annotate | diff | comparison | revisions 
--- a/CharArray.st	Tue May 14 16:37:51 1996 +0200
+++ b/CharArray.st	Tue May 14 16:39:08 1996 +0200
@@ -2181,6 +2181,9 @@
     aStringOrCharacter isCharacter ifTrue:[
         ^ self , aStringOrCharacter asString
     ].
+    aStringOrCharacter isText ifTrue:[
+        ^ aStringOrCharacter concatenateFromString:self
+    ].
     ^ super , aStringOrCharacter
 
     "
@@ -2188,7 +2191,7 @@
      'hello' , '1'   
     "
 
-    "Modified: 29.2.1996 / 20:37:36 / cg"
+    "Modified: 14.5.1996 / 15:27:54 / cg"
 !
 
 concatenate:string1 and:string2
@@ -2232,6 +2235,16 @@
 
 !CharacterArray methodsFor:'emphasis'!
 
+emphasis
+    "return the emphasis.
+     Since characterArrays do not hold any emphasis information,
+     nil (no emphasis) is returned here."
+
+    ^ RunArray new:self size withAll:nil
+
+    "Created: 14.5.1996 / 13:58:58 / cg"
+!
+
 emphasisAt:characterIndex
     "return the emphasis at some index.
      Since characterArrays do not hold any emphasis information,
@@ -2240,6 +2253,17 @@
     ^ nil
 
     "Created: 11.5.1996 / 14:13:27 / cg"
+!
+
+emphasisCollection
+    "return the emphasis.
+     Since characterArrays do not hold any emphasis information,
+     nil (no emphasis) is returned here."
+
+    ^ RunArray new:(self size)
+
+    "Created: 14.5.1996 / 13:58:58 / cg"
+    "Modified: 14.5.1996 / 15:02:29 / cg"
 ! !
 
 !CharacterArray methodsFor:'encoding/decoding'!
@@ -3840,5 +3864,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.86 1996-05-14 10:33:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.87 1996-05-14 14:39:08 cg Exp $'
 ! !
--- a/CharacterArray.st	Tue May 14 16:37:51 1996 +0200
+++ b/CharacterArray.st	Tue May 14 16:39:08 1996 +0200
@@ -2181,6 +2181,9 @@
     aStringOrCharacter isCharacter ifTrue:[
         ^ self , aStringOrCharacter asString
     ].
+    aStringOrCharacter isText ifTrue:[
+        ^ aStringOrCharacter concatenateFromString:self
+    ].
     ^ super , aStringOrCharacter
 
     "
@@ -2188,7 +2191,7 @@
      'hello' , '1'   
     "
 
-    "Modified: 29.2.1996 / 20:37:36 / cg"
+    "Modified: 14.5.1996 / 15:27:54 / cg"
 !
 
 concatenate:string1 and:string2
@@ -2232,6 +2235,16 @@
 
 !CharacterArray methodsFor:'emphasis'!
 
+emphasis
+    "return the emphasis.
+     Since characterArrays do not hold any emphasis information,
+     nil (no emphasis) is returned here."
+
+    ^ RunArray new:self size withAll:nil
+
+    "Created: 14.5.1996 / 13:58:58 / cg"
+!
+
 emphasisAt:characterIndex
     "return the emphasis at some index.
      Since characterArrays do not hold any emphasis information,
@@ -2240,6 +2253,17 @@
     ^ nil
 
     "Created: 11.5.1996 / 14:13:27 / cg"
+!
+
+emphasisCollection
+    "return the emphasis.
+     Since characterArrays do not hold any emphasis information,
+     nil (no emphasis) is returned here."
+
+    ^ RunArray new:(self size)
+
+    "Created: 14.5.1996 / 13:58:58 / cg"
+    "Modified: 14.5.1996 / 15:02:29 / cg"
 ! !
 
 !CharacterArray methodsFor:'encoding/decoding'!
@@ -3840,5 +3864,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.86 1996-05-14 10:33:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.87 1996-05-14 14:39:08 cg Exp $'
 ! !
hg/stx-libbasic