equal
deleted
inserted
replaced
673 ]. |
673 ]. |
674 ^ aView specClass supportsSubComponents. |
674 ^ aView specClass supportsSubComponents. |
675 ! |
675 ! |
676 |
676 |
677 dropObjects:aCollectionOfDropObjects at:aPoint |
677 dropObjects:aCollectionOfDropObjects at:aPoint |
678 |spec newSel oldSel dragOffset widg doit| |
678 |spec newSel oldSel dragOffset dropPoint widg doit| |
679 |
679 |
680 doit := true. |
680 doit := true. |
681 self selection notNil ifTrue:[ |
681 self selection notNil ifTrue:[ |
682 oldSel := self singleSelection. |
682 oldSel := self singleSelection. |
683 |
683 |
693 self setSelection:widg withRedraw:true. |
693 self setSelection:widg withRedraw:true. |
694 ]. |
694 ]. |
695 spec := (aCollectionOfDropObjects at:1) theObject. |
695 spec := (aCollectionOfDropObjects at:1) theObject. |
696 doit ifTrue:[ |
696 doit ifTrue:[ |
697 dragOffset := DragAndDropManager dragOffsetQuerySignal query. |
697 dragOffset := DragAndDropManager dragOffsetQuerySignal query. |
698 newSel := self pasteSpecifications:spec keepLayout:false keepPosition:false at:aPoint - dragOffset. |
698 aPoint isNil ifTrue:[ |
699 |
699 dropPoint := #keep. |
|
700 ] ifFalse:[ |
|
701 dropPoint := aPoint - dragOffset. |
|
702 ]. |
|
703 newSel := self pasteSpecifications:spec keepLayout:false keepPosition:false at:dropPoint. |
700 self select:(oldSel ? newSel) |
704 self select:(oldSel ? newSel) |
701 ]. |
705 ]. |
702 |
706 |
703 "Modified: / 18-03-1999 / 18:29:43 / stefan" |
707 "Modified: / 18-03-1999 / 18:29:43 / stefan" |
704 "Created: / 13-10-2006 / 16:09:27 / cg" |
708 "Created: / 13-10-2006 / 16:09:27 / cg" |
|
709 |
|
710 |
|
711 |
|
712 |
|
713 |
|
714 |
|
715 |
|
716 |
|
717 |
|
718 |
|
719 |
|
720 |
|
721 |
|
722 |
|
723 |
|
724 |
705 ! ! |
725 ! ! |
706 |
726 |
707 !UIPainterView methodsFor:'drawing'! |
727 !UIPainterView methodsFor:'drawing'! |
708 |
728 |
709 clearRectangle:visRect |
729 clearRectangle:visRect |