'From Cuis 6.0 [latest update: #5097] on 4 April 2022 at 5:04:12 pm'!

!ButtonMorph methodsFor: 'drawing' stamp: 'jmv 4/4/2022 14:22:20'!
drawMyShapeOn: canvas with: background
	| borderStyleSymbol |
	borderStyleSymbol _ self isPressed ifFalse: [ #raised ] ifTrue: [ #inset ].
	canvas
		fillRectangle: self morphLocalBounds
		color: background 
		borderWidth: borderWidth
		borderStyleSymbol: borderStyleSymbol
		baseColorForBorder: (borderColor ifNil: [background])! !

