'From etoys3.0 of 24 February 2008 [latest update: #2066] on 29 July 2008 at 10:24:42 am'! "Change Set: nilContents2-yo Date: 29 July 2008 Author: Yoshiki Ohshima The right fix for it after 2059pangoSpeedup."! !StringMorph methodsFor: '*pango' stamp: 'yo 7/29/2008 10:19'! pangoDrawOn: aCanvas in: bnds color: c | r pos rect | contents ifNil: [^ self]. (aCanvas isKindOf: FormCanvas) ifFalse: [^ self]. r := RomePluginCanvas drawingCanvasFor: aCanvas. rect := (aCanvas origin = (0@0)) ifTrue: [bnds] ifFalse: [(0@0 corner: aCanvas extent)]. r clipRectangle: rect. r clear. pos := (aCanvas origin = (0@0)) ifTrue: [self position] ifFalse: [self position + aCanvas origin]. r pangoString: contents attributeArray: self asPangoAttributes at: pos width: bnds width height: self height selectionStart: -1 selectionEnd: -1 selectionColorPixel: 16rFF0000FF. r finish: rect. ! !