'From etoys3.0 of 24 February 2008 [latest update: #2029] on 19 June 2008 at 4:25:02 pm'!
"Change Set:		pangozeroTextFix-yo
Date:			19 June 2008
Author:			Yoshiki Ohshima

A work around for the cases when the text is zero.  There seems to be a bug in the primitive, but the image side has to do something to make the system usable."!


!PangoParagraph methodsFor: 'as yet unclassified' stamp: 'yo 6/19/2008 16:21'!
characterBlockForIndex: index

	| r b rect |
	r := RomePluginCanvas composingCanvas.
	(r isNil or: [text size = 0]) ifTrue: [^ super characterBlockForIndex: index].
	rect := self compositionRectangle.
	b := CharacterBlock new.
	r pangoBlockIn: text string attributeArray: self asPangoAttributes at: index at: positionWhenComposed width: rect width height: rect height into: b.
	^ b textLine: (self textLineIncludes: index).
! !