--- a/CharArray.st	Thu Jul 22 14:55:54 1999 +0200
+++ b/CharArray.st	Thu Jul 22 17:53:29 1999 +0200
@@ -4186,6 +4186,18 @@
 
 !CharacterArray methodsFor:'queries'!
 
+bitsPerCharacter
+    "return the underlying strings bitsPerCharacter 
+     (i.e. is it a regular String or a TwoByteString)"
+
+    ^ self string bitsPerCharacter
+
+    "
+     'hello' bitsPerCharacter        
+     'hello' asText allBold bitsPerCharacter 
+    "
+!
+
 encoding
     "return the strings encoding, as a symbol.
      Here, by default, we assume #iso8859 encoding.
@@ -5369,6 +5381,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.164 1999-07-19 18:25:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.165 1999-07-22 15:53:29 cg Exp $'
 ! !
 CharacterArray initialize!

--- a/CharacterArray.st	Thu Jul 22 14:55:54 1999 +0200
+++ b/CharacterArray.st	Thu Jul 22 17:53:29 1999 +0200
@@ -4186,6 +4186,18 @@
 
 !CharacterArray methodsFor:'queries'!
 
+bitsPerCharacter
+    "return the underlying strings bitsPerCharacter 
+     (i.e. is it a regular String or a TwoByteString)"
+
+    ^ self string bitsPerCharacter
+
+    "
+     'hello' bitsPerCharacter        
+     'hello' asText allBold bitsPerCharacter 
+    "
+!
+
 encoding
     "return the strings encoding, as a symbol.
      Here, by default, we assume #iso8859 encoding.
@@ -5369,6 +5381,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.164 1999-07-19 18:25:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.165 1999-07-22 15:53:29 cg Exp $'
 ! !
 CharacterArray initialize!