'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 2 August 2010 at 6:04:10 pm'!

!TextMorph methodsFor: 'accessing' stamp: 'jmv 8/2/2010 16:29'!
contents: stringOrText wrappedTo: width
	"Accept new text contents.  Lay it out, wrapping to width.
	Then fit my height to the result."
"Why was this ever needed?"
"	self newContents: ''."
	wrapFlag _ true.
	self basicExtent: width truncated@self height.
	self newContents: stringOrText! !

