--- a/Text.st	Sun May 08 03:59:28 2016 +0200
+++ b/Text.st	Mon May 09 09:34:25 2016 +0200
@@ -1455,29 +1455,6 @@
     "
 !
 
-withColor:aColor
-    "change the color of all characters"
-
-    self emphasisAllAdd:(ColorEmphasis -> aColor).
-
-    "
-     Transcript showCR:
-        ((Text string:'hello') colorizeAllWith:(Color red)) 
-
-     Transcript showCR:
-        ('hello' colorizeAllWith:(Color red)) 
-
-     Transcript showCR:
-        ('hello' allBold colorizeAllWith:(Color red)) 
-
-     Transcript showCR:
-        ('hello' asText colorizeAllWith:(Color red)) 
-
-     Transcript showCR:
-        ('hello ' , ('red' allBold colorizeAllWith:(Color red)) , ' world')
-    "
-!
-
 withoutAnyColorEmphasis
     ^ (self withoutEmphasis:BackgroundColorEmphasis) withoutEmphasis:ColorEmphasis
 !