'From etoys3.0 of 24 February 2008 [latest update: #2045] on 26 June 2008 at 1:16:46 pm'!
"Change Set:		strMorphComposition-yo
Date:			26 June 2008
Author:			Yoshiki Ohshima

Fix measuring Strings.

It fixes the SystemWindow titles, etc. that use StringMorph, but not FITB etc. that use TextMorph with centering. "!


!StringMorph methodsFor: '*pango' stamp: 'yo 6/26/2008 11:57'!
pangoMeasureContents

	| r myLines tl |
	r := RomePluginCanvas composingCanvas.
	myLines := r pangoComposeString: contents attributeArray: self asPangoAttributes at: self position width:  SmallInteger maxVal height: SmallInteger maxVal withWrap: false.
	myLines second size > 0 ifFalse: [^ 0@0].
	tl := myLines second first.
	^ tl bottomRight - tl topLeft.! !