equal
deleted
inserted
replaced
1604 ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
1604 ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
1605 |
1605 |
1606 "Created: / 13-10-2006 / 15:53:04 / cg" |
1606 "Created: / 13-10-2006 / 15:53:04 / cg" |
1607 ! |
1607 ! |
1608 |
1608 |
1609 dropObjects:aCollectionOfDropObjects in:aComponent at:aPoint |
1609 dropObjects:aCollectionOfDropObjects in:aComponent |
1610 |
1610 |
1611 |spc top| |
1611 |spc top| |
1612 |
1612 |
1613 top := DragAndDropManager dragOriginatorQuerySignal query topView. |
1613 top := DragAndDropManager dragOriginatorQuerySignal query topView. |
1614 |
1614 |
1623 spc := aCollectionOfDropObjects collect:[:el| el theObject]. |
1623 spc := aCollectionOfDropObjects collect:[:el| el theObject]. |
1624 ]. |
1624 ]. |
1625 self paste:spc. |
1625 self paste:spc. |
1626 |
1626 |
1627 "Modified: / 18-03-1999 / 18:29:19 / stefan" |
1627 "Modified: / 18-03-1999 / 18:29:19 / stefan" |
1628 "Created: / 13-10-2006 / 18:25:30 / cg" |
1628 "Created: / 13-10-2006 / 18:25:50 / cg" |
1629 ! ! |
1629 ! ! |
1630 |
1630 |
1631 !UISelectionPanel methodsFor:'initialization'! |
1631 !UISelectionPanel methodsFor:'initialization'! |
1632 |
1632 |
1633 initialize |
1633 initialize |