'From etoys4.0 of 9 October 2008 [latest update: #2301] on 14 September 2009 at 9:55:10 pm'!

"Change Set:		GrabLassoCursor-tk
Date:			15 September 2009
Author:			Ted Kaehler

SQ-328 Show a cursor throughout patch-grabbing.  This update fixes the remaining cursor issues."!


!GrabPatchMorph methodsFor: 'initialization'!
justTornOffFromPartsBin
	super justTornOffFromPartsBin.
	self image: (Form extent: 0 @ 0).	"hide the icon"
	ActiveHand showTemporaryCursor: Cursor crossHair! !

!GrabPatchMorph methodsFor: 'dropping'!
justDroppedInto: aPasteUpMorph event: anEvent 
	"The user clicked, to indicate one corner of the patch to be grabbed..."
	self delete.
	ActiveHand showTemporaryCursor: nil.
	ActiveWorld displayWorldSafely; runStepMethods.
	^ ActiveWorld grabDrawingFromScreen: anEvent! !


!LassoPatchMorph methodsFor: 'initialization'!
justTornOffFromPartsBin
	super justTornOffFromPartsBin.
	self image: (Form extent: 0 @ 0).	"hide the icon"
	ActiveHand showTemporaryCursor: Cursor crossHair! !

!LassoPatchMorph methodsFor: 'dropping'!
justDroppedInto: aPasteUpMorph event: anEvent 
	"The user clicked indicating the beginning of the lassoing sequence."

	self delete.
	ActiveHand showTemporaryCursor: nil.
	ActiveWorld displayWorldSafely; runStepMethods.
	^ ActiveWorld grabLassoFromScreen: anEvent! !