'From Squeak3.6beta of ''4 July 2003'' [latest update: #5395] on 17 August 2003 at 5:29:14 pm'! "Change Set: TextProtocolCleanUp Date: 12 June 2003 Author: Boris Gaertner this is a first attempt to clean up the protocol of Text."! !Text methodsFor: 'accessing' stamp: 'BG 6/12/2003 13:13'! append: stringOrText ^self, stringOrText " asText is sent elsewhere "! ! !Text methodsFor: 'accessing' stamp: 'BG 6/12/2003 13:13'! prepend: stringOrText ^stringOrText asText, self ! ! !Text methodsFor: 'copying' stamp: 'BG 6/12/2003 13:11'! copyReplaceFrom: start to: stop with: aTextOrString | txt | txt _ aTextOrString asText. "might be a string" ^self class string: (string copyReplaceFrom: start to: stop with: txt string) runs: (runs copyReplaceFrom: start to: stop with: txt runs) ! !