--- a/Text.st	Tue Nov 11 21:45:08 2008 +0100
+++ b/Text.st	Thu Nov 13 16:20:03 2008 +0100
@@ -866,6 +866,7 @@
 
     "
      (Text string:'hello') allBold
+     Transcript showCR: ('hello' allBold)   
     "
 
     "Modified: 10.7.1996 / 12:07:51 / cg"
@@ -878,19 +879,29 @@
 
     "
      (Text string:'hello') allItalic
+     Transcript showCR: ('hello' allItalic)   
     "
 
     "Modified: 10.7.1996 / 12:07:51 / cg"
 !
 
+allStrikedOut
+    "strikeOut all characters"
+
+    self emphasisAllAdd:#strikeout.
+
+    "
+     Transcript showCR: ('hello' allStrikedOut)   
+    "
+!
+
 allUnderlined
     "underline all characters"
 
-    self emphasisAllAdd:(#underline).
+    self emphasisAllAdd:#underline.
 
     "
-     Transcript showCR:
-        ('hello' asText allUnderlined) 
+     Transcript showCR:('hello' allUnderlined) 
     "
 !
 
@@ -924,6 +935,9 @@
         ((Text string:'hello') colorizeAllWith:(Color red)) 
 
      Transcript showCR:
+        ('hello' colorizeAllWith:(Color red)) 
+
+     Transcript showCR:
         ('hello' allBold colorizeAllWith:(Color red)) 
 
      Transcript showCR:
@@ -1504,7 +1518,7 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.94 2008-11-06 10:59:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.95 2008-11-13 15:20:03 cg Exp $'
 ! !
 
 Text initialize!