'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 20 May 2009 at 10:04:59 am'!

!PluggableButtonMorph methodsFor: 'drawing' stamp: 'jmv 5/20/2009 10:04'!
drawOn: aCanvas 

	| w f center x y |
	super drawOn: aCanvas.
	f _ self fontToUse.
	center _ bounds center.

	label ifNotNil: [
		w _ f widthOfString: label.
		x _ bounds width > w
			ifTrue: [ center x - (w // 2) ]
			ifFalse: [ bounds left +4].
		y _ center y - (f height // 2).
		aCanvas drawString: label at: x@y font: f color: Color black ].

	showSelectionFeedback ifTrue: [
		aCanvas frameRectangle: self innerBounds width: 2 color: feedbackColor].! !

