Writing rich text in a text pane to disk (for later filein)

Bert Freudenberg bert at isg.cs.uni-magdeburg.de
Thu Jul 24 22:19:11 UTC 2003


Am Donnerstag, 24.07.03 um 23:31 Uhr schrieb Ned Konz:

> On Thursday 24 July 2003 01:58 pm, David N Smith wrote:
>
>> I'm looking for bugs; please try this and see if you find any. I've
>> only run it under Windows XP Pro using 3.4, 3.5, and 3.6.
>
> Not a bug, but a suggestion:
>
> Instead of this:
>
> 	fs nextPutAll: 'StringHolder new contents: (Text string: ';
> 		nextPutAll: self string printString;
> 		cr; nextPutAll: 'runs:  ';
> 		nextPutAll: self runs storeString;
> 		cr; nextPutAll: ');
> 		openLabel:';
> 		nextPutAll: aTitleString printString;
> 		close.
>
> You could just do this:
>
> 	fs nextPutAll: 'StringHolder new contents: ';
> 		store: self;
> 		nextPutAll: '; openLabel:';
> 		print: aTitleString;
> 		close.

Ugh. That looks suspiciously familiar. Didn't my message a few days ago 
make it?
I think it did: http://groups.yahoo.com/group/squeak/message/66293

-- Bert



More information about the Squeak-dev mailing list