--- a/Text.st	Tue Dec 19 10:22:51 2000 +0100
+++ b/Text.st	Tue Dec 19 17:15:36 2000 +0100
@@ -967,6 +967,12 @@
     "Modified: 14.5.1996 / 17:25:04 / cg"
 !
 
+emphasisAtAllAdd:newEmphasis
+    "add to the emphasis. return the receiver"
+
+    ^ self emphasisFrom:1 to:self size add:newEmphasis.
+!
+
 emphasisCollection
     "return the emphasis"
 
@@ -1330,6 +1336,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.68 2000-08-09 21:31:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.69 2000-12-19 16:15:36 cg Exp $'
 ! !
 Text initialize!