Implement display with #displayOn: instead of #displayString expeccoNET_1_5_0rc1 expecco_1_8_2rc1
authorStefan Vogel <sv@exept.de>
Tue, 21 Sep 2010 08:58:38 +0200
changeset 2496 993d16c301d7
parent 2495 721d3888cbab
child 2497 67f066362736
Implement display with #displayOn: instead of #displayString in Collection hierarchy. InspectorView uses displayOn: as base machanism, and intermixing both mechanisms didn't work well with inheritance.
Text.st
--- a/Text.st	Tue Sep 21 08:58:34 2010 +0200
+++ b/Text.st	Tue Sep 21 08:58:38 2010 +0200
@@ -11,7 +11,7 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
-CharacterArray variableByteSubclass:#Text
+CharacterArray subclass:#Text
 	instanceVariableNames:'string runs'
 	classVariableNames:'BackgroundColorEmphasis ColorEmphasis ItalicEmphasis BoldEmphasis
 		UnderlineEmphasis UnderwaveEmphasis OverlineEmphasis
@@ -1407,10 +1407,6 @@
     "Modified: 16.5.1996 / 11:23:32 / cg"
 !
 
-displayString
-    ^ String streamContents:[:s| self displayOn:s]
-!
-
 printOn:aStream
     "print the receivers characters (including emphasis) on
      aStream. 
@@ -1747,11 +1743,11 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.106 2009-10-29 17:23:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.107 2010-09-21 06:58:38 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.106 2009-10-29 17:23:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.107 2010-09-21 06:58:38 stefan Exp $'
 ! !
 
 Text initialize!