'From Squeak4.2 of 4 February 2011 [latest update: #10966] on 15 November 2011 at 10:28:03 pm'!
Morph subclass: #TestMorph
    instanceVariableNames: 'path'
    classVariableNames: ''
    poolDictionaries: ''
    category: 'My Stuff'!

!TestMorph methodsFor: 'user interface' stamp: 'kilon 11/15/2011 22:27'!
doCancel
    super doCancel! !


!TestMorph methodsFor: 'drawing' stamp: 'kilon 11/15/2011 21:20'!
drawOn: aCanvas
    | colors |
    colors := Color wheel: 10.
    colors withIndexDo: [:c :i |
        aCanvas fillOval: (self bounds insetBy: self width // 25 * i + 1)
                color: c].! !


!TestMorph methodsFor: 'event handling' stamp: 'kilon 11/15/2011 21:20'!
handlesMouseDown: evt
    ^ true! !

!TestMorph methodsFor: 'event handling' stamp: 'kilon 11/15/2011 21:20'!
mouseDown: evt
    self position: self position + (10 @ 0).! !


!TestMorph methodsFor: 'initialization' stamp: 'kilon 11/15/2011 21:51'!
initialize
    super initialize.
    path := OrderedCollection new.! !