equal
deleted
inserted
replaced
1601 super update:something with:aParameter from:changedObject. |
1601 super update:something with:aParameter from:changedObject. |
1602 ! ! |
1602 ! ! |
1603 |
1603 |
1604 !UISelectionPanel methodsFor:'drag & drop'! |
1604 !UISelectionPanel methodsFor:'drag & drop'! |
1605 |
1605 |
1606 canDrop:something in:aComponent |
1606 canDrop:aCollectionOfDropObjects in:aComponent |
1607 ^ self canPaste:(something collect:[:el| el theObject ]). |
1607 ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]). |
1608 ! |
1608 ! |
1609 |
1609 |
1610 drop:something in:aComponent at:aPoint |
1610 drop:aCollectionOfDropObjects in:aComponent at:aPoint |
1611 |
1611 |
1612 |spc top| |
1612 |spc top| |
1613 |
1613 |
1614 top := DragAndDropManager dragOriginatorQuerySignal query topView. |
1614 top := DragAndDropManager dragOriginatorQuerySignal query topView. |
1615 |
1615 |
1619 |
1619 |
1620 (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[ |
1620 (clipBoardSpec collection remove:spc ifAbsent:nil) isNil ifTrue:[ |
1621 ^ self |
1621 ^ self |
1622 ]. |
1622 ]. |
1623 ] ifFalse:[ |
1623 ] ifFalse:[ |
1624 spc := something collect:[:el| el theObject]. |
1624 spc := aCollectionOfDropObjects collect:[:el| el theObject]. |
1625 ]. |
1625 ]. |
1626 self paste:spc. |
1626 self paste:spc. |
1627 |
1627 |
1628 "Modified: / 18.3.1999 / 18:29:19 / stefan" |
1628 "Modified: / 18.3.1999 / 18:29:19 / stefan" |
1629 ! ! |
1629 ! ! |