'From etoys2.3 of 28 November 2007 [latest update: #1836] on 12 December 2007 at 9:16:42 pm'! "Change Set: GrabAndLassoCursor-yo Date: 12 December 2007 Author: Yoshiki Ohshima When you use Grab patch and Lasso, the cursor gets in the way."! !GrabPatchMorph methodsFor: 'initialization' stamp: 'yo 12/12/2007 20:58'! justTornOffFromPartsBin super justTornOffFromPartsBin. ActiveHand showTemporaryCursor: (Form extent: 0@0). ! ! !LassoPatchMorph methodsFor: 'initialization' stamp: 'yo 12/12/2007 21:00'! justTornOffFromPartsBin super justTornOffFromPartsBin. ActiveHand showTemporaryCursor: (Form extent: 0@0). ! ! !PasteUpMorph methodsFor: 'world menu' stamp: 'yo 12/12/2007 21:03'! extractScreenRegion: poly andPutSketchInHand: hand "The user has specified a polygonal area of the Display. Now capture the pixels from that region, and put in the hand as a Sketch." | screenForm outline topLeft innerForm exterior | outline _ poly shadowForm. topLeft _ outline offset. exterior _ (outline offset: 0@0) anyShapeFill reverse. screenForm _ Form fromDisplay: (topLeft extent: outline extent). screenForm eraseShape: exterior. innerForm _ screenForm trimBordersOfColor: Color transparent. ActiveHand showTemporaryCursor: nil. innerForm isAllWhite ifFalse: [hand attachMorph: (self drawingClass withForm: innerForm)]! !