'From Squeak6.0alpha of 6 January 2018 [latest update: #17660] on 12 January 2018 at 10:32:30 am'!
TextMorph subclass: #MyTextMorph
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Example'!

!MyTextMorph methodsFor: 'event handling' stamp: 'mt 1/12/2018 10:28'!
handlesMouseOver: evt
	^ true! !

!MyTextMorph methodsFor: 'event handling' stamp: 'mt 1/12/2018 10:29'!
mouseLeave: evt

	self changed: #mouseLeave with: self contents.! !

!MyTextMorph methodsFor: 'updating' stamp: 'mt 1/12/2018 10:29'!
update: aspect with: object

	aspect = #mouseLeave
		ifTrue: [self contents: object].! !


!MyTextMorph reorganize!
('event handling' handlesMouseOver: mouseLeave:)
('updating' update:with:)
!

