'From Squeak3.4gamma of ''7 January 2003'' [latest update: #5168] on 29 March 2003 at 5:12:03 pm'!
RectangleMorph subclass: #TestButtonMorph
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'test'!

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:30'!
handlesMouseDown: evt
	^true! !

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:34'!
handlesMouseOver: evt
	^true! !

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:30'!
mouseDown: evt
	super mouseDown: evt.
	self color: Color red! !

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:40'!
mouseEnter: evt
	self borderColor: Color black.
	! !

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:33'!
mouseLeave: evt
	self borderColor: Color transparent.
	! !

!TestButtonMorph methodsFor: 'event handling' stamp: 'mga 3/29/2003 14:32'!
mouseUp: evt
	self borderColor: Color transparent.
	Transcript open
	! !


!TestButtonMorph methodsFor: 'initialization' stamp: 'mga 3/29/2003 14:39'!
initialize
	super initialize.
	self 
		color: (Color r: 0.55 g: 0.59 b: 0.72);
    		borderWidth: 6;
    		borderColor: Color transparent! !
