equal
deleted
inserted
replaced
464 oldSel := nil. |
464 oldSel := nil. |
465 self setSelection:nil withRedraw:true |
465 self setSelection:nil withRedraw:true |
466 ] |
466 ] |
467 ]. |
467 ]. |
468 spec := (anObjectOrCollection at:1) theObject. |
468 spec := (anObjectOrCollection at:1) theObject. |
469 dragOffset := DragAndDropManager dragOffsetQuerySignal raise. |
469 dragOffset := DragAndDropManager dragOffsetQuerySignal query. |
470 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
470 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
471 |
471 |
472 oldSel isNil ifTrue:[self select:newSel] |
472 oldSel isNil ifTrue:[self select:newSel] |
473 ifFalse:[self select:oldSel] |
473 ifFalse:[self select:oldSel] |
|
474 |
|
475 "Modified: / 18.3.1999 / 18:29:43 / stefan" |
474 ! ! |
476 ! ! |
475 |
477 |
476 !UIPainterView methodsFor:'event handling'! |
478 !UIPainterView methodsFor:'event handling'! |
477 |
479 |
478 keyPress:key x:x y:y view:aView |
480 keyPress:key x:x y:y view:aView |