equal
deleted
inserted
replaced
1446 |view dobj| |
1446 |view dobj| |
1447 |
1447 |
1448 view := aView. |
1448 view := aView. |
1449 dobj := dropContext dropObjects. |
1449 dobj := dropContext dropObjects. |
1450 [ |
1450 [ |
1451 (view canDrop:dropContext "dobj") ifTrue:[ |
1451 (view canDrop:dropContext) ifTrue:[ |
1452 ^ DropTarget receiver:self argument:view dropSelector:#doDrop:in:. |
1452 ^ DropTarget receiver:self argument:view dropSelector:#doDrop:in:. |
|
1453 ]. |
|
1454 (view canDropObjects:dobj) ifTrue:[ |
|
1455 ^ (DropTarget receiver:view argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true. |
1453 ]. |
1456 ]. |
1454 (view := view superView) notNil |
1457 (view := view superView) notNil |
1455 ] whileTrue. |
1458 ] whileTrue. |
1456 ]. |
1459 ]. |
1457 ^ nil |
1460 ^ nil |
1458 |
1461 |
1459 "Modified: / 13-10-2006 / 17:50:32 / cg" |
1462 "Modified: / 13-10-2006 / 18:21:43 / cg" |
1460 ! |
1463 ! |
1461 |
1464 |
1462 doStart:aHandler for:aView atEnd:aFourArgEndBlock |
1465 doStart:aHandler for:aView atEnd:aFourArgEndBlock |
1463 "setup a handler and a restore block" |
1466 "setup a handler and a restore block" |
1464 |
1467 |
1568 ! ! |
1571 ! ! |
1569 |
1572 |
1570 !DragAndDropManager class methodsFor:'documentation'! |
1573 !DragAndDropManager class methodsFor:'documentation'! |
1571 |
1574 |
1572 version |
1575 version |
1573 ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.72 2006-10-13 15:57:55 cg Exp $' |
1576 ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.73 2006-10-13 16:24:00 cg Exp $' |
1574 ! ! |
1577 ! ! |
1575 |
1578 |
1576 DragAndDropManager initialize! |
1579 DragAndDropManager initialize! |