--- a/Text.st	Sat Jun 08 13:07:36 1996 +0200
+++ b/Text.st	Wed Jun 12 13:35:16 1996 +0200
@@ -271,6 +271,13 @@
 
     "Modified: 11.5.1996 / 14:21:01 / cg"
     "Created: 16.5.1996 / 12:37:24 / cg"
+!
+
+string:aString runs:aRun
+    "create a Text instance, for the characters in aString,
+     which are individually emphasized as described by attributeCollection."
+
+    ^ self new string:aString emphasisCollection:aRun.
 ! !
 
 !Text class methodsFor:'emphasis helper'!
@@ -1076,6 +1083,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.20 1996-06-08 11:07:36 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.21 1996-06-12 11:35:16 ca Exp $'
 ! !
 Text initialize!