'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 8 July 2010 at 11:37:52 am'!

!Canvas methodsFor: 'drawing-text' stamp: 'jmv 7/8/2010 11:36'!
drawStringOutline: s at: pt font: aFont color: aColor
	"
	Display getCanvas drawStringOutline: 'Outlined text' at: 10@10 font: nil color: Color red
	Display getCanvas drawString: 'Outlined text' at: 10@10 font: nil color: Color red
	"

	self drawStringOutline: s at: pt font: aFont color: aColor outlineColor: Color black! !

!Canvas methodsFor: 'drawing-text' stamp: 'jmv 10/29/2009 14:10'!
drawStringOutline: s at: pt font: aFont color: aColor outlineColor: borderColor

	self
		drawString: s at: pt-(1@0) font: aFont color: borderColor;
		drawString: s at: pt+(1@0) font: aFont color: borderColor;
		drawString: s at: pt-(0@1) font: aFont color: borderColor;
		drawString: s at: pt+(0@1) font: aFont color: borderColor;
		drawString: s at: pt font: aFont color: aColor! !

