# HG changeset patch # User Stefan Vogel # Date 1285052318 -7200 # Node ID 993d16c301d73aa359d5f9d01b825952f3002241 # Parent 721d3888cbab1ee17a46224d6aef59468ceece09 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. diff -r 721d3888cbab -r 993d16c301d7 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!