--- a/Text.st	Tue Jul 23 17:30:40 2002 +0200
+++ b/Text.st	Tue Jul 23 21:43:47 2002 +0200
@@ -935,6 +935,18 @@
     "Created: 14.5.1996 / 13:59:03 / cg"
 !
 
+emphasis:emArray
+    1 to:string size do:[:characterIndex |
+        self emphasisAt:characterIndex put:(emArray at:characterIndex)
+    ].
+
+    "
+     (Text string:'hello') emphasis:#(italic bold italic bold bold)
+    "
+
+    "Modified: / 31.3.1998 / 16:45:14 / cg"
+!
+
 emphasisAllAdd:newEmphasis
     "add to the emphasis to all characters. return the receiver"
 
@@ -1463,6 +1475,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.81 2002-07-23 15:30:40 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.82 2002-07-23 19:43:47 mb Exp $'
 ! !
 Text initialize!