comment/format in: #colorizeAllWith:on:
authorClaus Gittinger <cg@exept.de>
Thu, 22 Oct 2009 19:33:36 +0200
changeset 2312 ab6ab043d9ca
parent 2311 ffc769e95190
child 2313 28eedaae36f5
comment/format in: #colorizeAllWith:on:
Text.st
--- a/Text.st	Thu Oct 22 14:38:58 2009 +0200
+++ b/Text.st	Thu Oct 22 19:33:36 2009 +0200
@@ -994,15 +994,15 @@
     "
 !
 
-colorizeAllWith:aColor on:bgColor
+colorizeAllWith:fgColor on:bgColor
     "change the color and bg-color of all characters"
 
-    self emphasisAllAdd:(#color -> aColor).
+    self emphasisAllAdd:(#color -> fgColor).
     self emphasisAllAdd:(#backgroundColor -> bgColor).
 
     "
      Transcript showCR:
-        ((Text string:'hello') colorizeAllWith:(Color red) on:(Color blue)) 
+        ((Text string:'hello') colorizeAllWith:(Color blue) on:(Color yellow)) 
     "
 
     "Created: / 05-08-2006 / 14:48:13 / cg"
@@ -1682,11 +1682,11 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.103 2009-10-22 12:38:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.104 2009-10-22 17:33:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.103 2009-10-22 12:38:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.104 2009-10-22 17:33:36 cg Exp $'
 ! !
 
 Text initialize!