[Cuis-dev] [ChangeSet] TextParagraphMorph

[Hilaire Fernandes]

Here is a supplementary fix, to let the border be drawn over the text 
when the morph extent is too small to contain the whole text.

In that circumstance I observe one line drawn below the morph extent:

Hilaire


Le 27/11/2021 à 13:25, Juan Vuletich a écrit :
> Hi Hilaire.
>
> The way for text not to overwrite the border is to give the 
> TextComposition the appropriate extent. Just pushed to GitHub an 
> update that includes this together with your fix.
>
> Thanks,

-- 
GNU Dr. Geo
http://drgeo.eu
http://blog.drgeo.eu

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20211128/325ba693/attachment.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Capture d??cran de 2021-11-28 21-35-28.png
Type: image/png
Size: 2485 bytes
Desc: not available
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20211128/325ba693/attachment.png>
-------------- next part --------------
'From Cuis 5.0 [latest update: #4984] on 28 November 2021 at 9:34:07 pm'!

!TextParagraphMorph methodsFor: 'drawing' stamp: 'hlsf 11/28/2021 21:30:56'!
drawOn: aCanvas
	aCanvas 
		fillRectangle: self morphLocalBounds color: color.
	aCanvas
		textComposition: textComposition
		bounds: (self morphLocalBounds insetBy: borderWidth * 2)
		color: Theme current text
		selectionColor: `Color red`.
	aCanvas
		frameRectangle: self morphLocalBounds
		color: borderColor
		borderWidth: borderWidth
		borderStyleSymbol: nil! !