--- a/CharacterArray.st	Fri Aug 30 02:27:40 2019 +0200
+++ b/CharacterArray.st	Fri Aug 30 09:01:35 2019 +0200
@@ -5103,6 +5103,17 @@
     "
 !
 
+allGray
+    "return a text object representing the receiver, but in gray color"
+
+    ^ self withColor:Color gray
+
+    "
+     Transcript showCR:'hello' asText allBold allGray
+     Transcript showCR:'hello' allGray
+    "
+!
+
 allItalic
     "return a text object representing the receiver, but all in italic"