--- a/CharacterArray.st	Mon Feb 04 13:22:14 2008 +0100
+++ b/CharacterArray.st	Mon Feb 04 13:27:15 2008 +0100
@@ -2838,6 +2838,19 @@
     "
 !
 
+allUnderlined
+    "return a test object representing the receiver, but all with underline"
+
+    "this test allows for small non-gui apps to be built without libbasic2 (where Text is)"
+    Text isNil ifTrue:[^ self].
+    ^ self asText allUnderlined
+
+    "
+     Transcript showCR:'hello' asText allUnderlined
+     Transcript showCR:'hello' allUnderlined
+    "
+!
+
 colorizeAllWith:aColor
     ^ self asText colorizeAllWith:aColor
 
@@ -5295,7 +5308,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.365 2008-01-21 12:40:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.366 2008-02-04 12:27:15 cg Exp $'
 ! !
 
 CharacterArray initialize!