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

Ned Konz ned at bike-nomad.com
Thu Jul 24 21:31:24 UTC 2003


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.

-- 
Ned Konz
http://bike-nomad.com
GPG key ID: BEEA7EFE



More information about the Squeak-dev mailing list