Morph subclass: #ChildMorph
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Prueba'!

!ChildMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 22:30'!
handlesMouseDown: event
^true! !

!ChildMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 23:18'!
mouseDown: evt
	self color: self color negated! !


Morph subclass: #ParentMorph
	instanceVariableNames: 'mousePos'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Prueba'!

!ParentMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 23:11'!
delete
	super delete.
	self currentHand removeMouseListener: self.
! !

!ParentMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 23:10'!
drawOn: aCanvas
	super drawOn: aCanvas.
	aCanvas drawString: mousePos asString at: self topLeft! !

!ParentMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 23:10'!
handleListenEvent: evt
	(evt type = #mouseMove
	and: [self bounds containsPoint: evt endPoint])
		ifTrue: [mousePos := evt endPoint.
			self changed]
	! !

!ParentMorph methodsFor: 'as yet unclassified' stamp: 'Richo 3/12/2012 23:10'!
initialize
	super initialize.
	mousePos := 0@0.
	self extent: 200@200;
		color: Color blue muchLighter;
		addMorph: (ChildMorph new center: self center).
	self currentHand addMouseListener: self! !