'From Squeak3.1alpha of 4 February 2001 [latest update: #3597] on 14 February 2001 at 4:40:54 pm'! "Change Set: ViewGrabs-ar Date: 14 February 2001 Author: Andreas Raab Fix rejection feedback in viewers."! !PhraseTileMorph methodsFor: 'mouse' stamp: 'ar 2/14/2001 16:17'! mouseDown: evt "Pretend we picked up the tile and then put it down for a trial positioning." "The essence of ScriptEditor mouseEnter:" | ed ss guyToTake dup | self isPartsDonor ifTrue:[ dup _ self duplicate. evt hand attachMorph: dup. dup position: evt position. ^self]. submorphs isEmpty ifTrue: [^ self]. (ed _ self enclosingEditor) ifNil: [^evt hand grabMorph: self]. guyToTake _ self. owner class == TilePadMorph ifTrue: ["picking me out of another phrase" (ss _ submorphs first) class == TilePadMorph ifTrue: [ss _ ss submorphs first]. guyToTake _ ss fullCopy]. evt hand grabMorph: guyToTake. ed startStepping. ed mouseEnterDragging: evt. ed setProperty: #justPickedUpPhrase toValue: true. ! !