equal
deleted
inserted
replaced
553 ^ false |
553 ^ false |
554 |
554 |
555 ! |
555 ! |
556 |
556 |
557 drop:anObjectOrCollection at:aPoint |
557 drop:anObjectOrCollection at:aPoint |
558 |spec newSel oldSel dragOffset widg| |
558 |spec newSel oldSel dragOffset widg doit| |
559 |
559 |
|
560 doit := true. |
560 self selection notNil ifTrue:[ |
561 self selection notNil ifTrue:[ |
561 oldSel := self singleSelection. |
562 oldSel := self singleSelection. |
562 |
563 |
563 "/ search selections hierarchy for a widget into which we can paste |
564 "/ search selections hierarchy for a widget into which we can paste |
564 widg := oldSel. |
565 widg := oldSel. |
570 |
571 |
571 oldSel := nil. |
572 oldSel := nil. |
572 self setSelection:widg withRedraw:true. |
573 self setSelection:widg withRedraw:true. |
573 ]. |
574 ]. |
574 spec := (anObjectOrCollection at:1) theObject. |
575 spec := (anObjectOrCollection at:1) theObject. |
575 dragOffset := DragAndDropManager dragOffsetQuerySignal query. |
576 doit ifTrue:[ |
576 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
577 dragOffset := DragAndDropManager dragOffsetQuerySignal query. |
577 |
578 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
578 self select:(oldSel ? newSel) |
579 |
|
580 self select:(oldSel ? newSel) |
|
581 ]. |
579 |
582 |
580 "Modified: / 18.3.1999 / 18:29:43 / stefan" |
583 "Modified: / 18.3.1999 / 18:29:43 / stefan" |
581 "Modified: / 30.10.2001 / 14:02:35 / cg" |
584 "Modified: / 30.10.2001 / 14:02:35 / cg" |
582 ! ! |
585 ! ! |
583 |
586 |