'From etoys3.0 of 24 February 2008 [latest update: #2014] on 12 June 2008 at 6:48:37 pm'!
"Change Set:		PangoCharBoxFix-yo
Date:			12 June 2008
Author:			Yoshiki Ohshima

With the correct primitives updated on June 12th, 2008, the workaround is not necessary."!


!PangoParagraph methodsFor: 'as yet unclassified' stamp: 'yo 6/12/2008 18:46'!
characterBlockAtPoint: aPoint

	| r b rect index |
	r := RomePluginCanvas composingCanvas.
	r ifNil: [^ super characterBlockAtPoint: aPoint].
	rect := self compositionRectangle.
	b := CharacterBlock new.
	index := r pangoIndexIn: text string attributeArray: text asPangoAttributes at: (aPoint - positionWhenComposed) width: rect width height: rect height into: b.
	^ b textLine: (self textLineIncludes: index).! !