'From Squeak2.9BJ of 22 September 2000 [latest update: #3347] on 8 February 2001 at 8:13:04 pm'! "Change Set: TileTweaks-ar Date: 8 February 2001 Author: Andreas Raab Two tile tweaks. Disallow picking up any tile that has an arrow on (so that clicks outside don't pick up the entire phrase). Give drop feedback when dropping tiles on tiles."! !TileMorph methodsFor: 'mouse handling' stamp: 'ar 2/8/2001 20:07'! handlesMouseDown: evt "Answer whether the receiver would handle the mouseDown represented by evt" | aPoint | aPoint _ evt cursorPoint. (operatorOrExpression notNil and: [upArrow notNil]) ifTrue: [^ true]. "Click on the operator presents list of alternatives" upArrow ifNotNil: [^true]. suffixArrow ifNotNil: [^true]. retractArrow ifNotNil: [^true]. ^ super handlesMouseDown: evt! ! !TilePadMorph methodsFor: 'events' stamp: 'ar 2/8/2001 19:54'! handlesMouseOverDragging: evt ^true! ! !TilePadMorph methodsFor: 'events' stamp: 'ar 2/8/2001 19:56'! mouseEnterDragging: evt evt hand hasSubmorphs ifFalse:[^self]. (self wantsDroppedMorph: evt hand firstSubmorph event: evt) ifTrue:[ self firstSubmorph color: Color green. ]. ! ! !TilePadMorph methodsFor: 'events' stamp: 'ar 2/8/2001 19:59'! mouseLeaveDragging: evt evt hand hasSubmorphs ifFalse:[^self]. (self wantsDroppedMorph: evt hand firstSubmorph event: evt) ifTrue:[ self firstSubmorph useUniformTileColor. ].! !