'From etoys3.0 of 24 February 2008 [latest update: #1964] on 11 April 2008 at 4:03:24 am'!
"Change Set:		textMorphHalo-sw
Date:			11 April 2008
Author:			Scott Wallace

TRAC 6817 Implements a suggestion of Bert's:  When showing the halo on a TextMorph, indicate the morph's bounds as well."!


!HaloMorph methodsFor: 'drawing' stamp: 'sw 4/11/2008 04:01'!
drawOn: aCanvas 
	"Draw this morph only if it has no target."

	target ifNil: [^ super drawOn: aCanvas].
	(Preferences showBoundsInHalo or: [target isTextMorph])
		ifTrue: 
			[aCanvas 
				frameAndFillRectangle: self bounds
				fillColor: Color transparent
				borderWidth: 1
				borderColor: Color blue]! !