# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 932658809 -7200
# Node ID 564b0fd9168e1bbe8c5e6cb8a6767f66782526af
# Parent  d612ee1f2b32d0ea4fb288f8fa7c005f0dcd102c
checkin from browser

diff -r d612ee1f2b32 -r 564b0fd9168e CharArray.st
--- 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!
diff -r d612ee1f2b32 -r 564b0fd9168e CharacterArray.st
--- 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!