--- a/Text.st	Tue Jun 20 08:33:55 2017 +0200
+++ b/Text.st	Tue Jun 20 08:56:12 2017 +0200
@@ -13,15 +13,15 @@
 
 "{ NameSpace: Smalltalk }"
 
-CharacterArray subclass:#Text
+CharacterArray variableByteSubclass:#Text
 	instanceVariableNames:'string runs'
-	classVariableNames:'BackgroundColorEmphasis ColorEmphasis ItalicEmphasis BoldEmphasis
-		UnderlineEmphasis UnderwaveEmphasis OverlineEmphasis
-		StrikeoutEmphasis ReverseEmphasis BoldUnderlineEmphasis
-		BoldOverlineEmphasis BoldUnderwaveEmphasis
-		ItalicUnderlineEmphasis ItalicUnderwaveEmphasis
-		UnderlineColorEmphasis StrikeoutColorEmphasis EtchColorEmphasis
-		FontEmphasis Superscript Subscript'
+	classVariableNames:'BackgroundColorEmphasis BoldEmphasis BoldOverlineEmphasis
+		BoldUnderlineEmphasis BoldUnderwaveEmphasis ColorEmphasis
+		EtchColorEmphasis FontEmphasis ItalicEmphasis
+		ItalicUnderlineEmphasis ItalicUnderwaveEmphasis OverlineEmphasis
+		ReverseEmphasis StrikeoutColorEmphasis StrikeoutEmphasis
+		Subscript Superscript UnderlineColorEmphasis UnderlineEmphasis
+		UnderwaveEmphasis'
 	poolDictionaries:''
 	category:'Collections-Text'
 !
@@ -180,9 +180,12 @@
      I want to inherit behavior from CharacterArray, but not
      its implementation (indexed access).
     "
-
     self flags:(Behavior flagRegular).
 
+    "/
+    "/ although it looks like, these enum-symbols cannot
+    "/ be easily renamed (they already found their way into many user-app-classes)
+    "/
     BackgroundColorEmphasis := #backgroundColor.
     ColorEmphasis := #color.
     ItalicEmphasis := #italic.
@@ -208,7 +211,8 @@
      Text initialize
     "
 
-    "Modified: 12.5.1996 / 17:53:50 / cg"
+    "Modified: / 12-05-1996 / 17:53:50 / cg"
+    "Modified (comment): / 20-06-2017 / 08:40:53 / cg"
 ! !
 
 !Text class methodsFor:'instance creation'!