equal
deleted
inserted
replaced
511 toView:containerToPasteInto. |
511 toView:containerToPasteInto. |
512 ]. |
512 ]. |
513 ] ifFalse:[ |
513 ] ifFalse:[ |
514 pastePoint isNil ifTrue:[ pastePoint := 0@0 ]. |
514 pastePoint isNil ifTrue:[ pastePoint := 0@0 ]. |
515 newOrigin := device |
515 newOrigin := device |
516 translatePoint:pastePoint |
516 translatePoint:pastePoint asPoint |
517 fromView:self |
517 fromView:self |
518 toView:containerToPasteInto. |
518 toView:containerToPasteInto. |
519 ]. |
519 ]. |
520 |
520 |
521 (bounds containsPoint:newOrigin) ifFalse:[ |
521 (bounds containsPoint:newOrigin) ifFalse:[ |
561 ]. |
561 ]. |
562 |
562 |
563 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
563 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
564 ^ newSel |
564 ^ newSel |
565 |
565 |
566 "Modified: / 03-11-2010 / 07:20:06 / cg" |
566 "Modified: / 16-11-2017 / 23:49:56 / cg" |
567 ! |
567 ! |
568 |
568 |
569 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep |
569 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep |
570 "add the specs to the object view; returns list of pasted widgets" |
570 "add the specs to the object view; returns list of pasted widgets" |
571 |
571 |