DragAndDropManager.st
changeset 1678 9944d3b5d5bf
parent 1661 3092c6bac88e
child 1685 82350f572e2f
equal deleted inserted replaced
1677:dc49ab70b762 1678:9944d3b5d5bf
   798 	]
   798 	]
   799     ]
   799     ]
   800 
   800 
   801 ! !
   801 ! !
   802 
   802 
   803 !DragAndDropManager methodsFor:'dragging - drop source'!
   803 !DragAndDropManager methodsFor:'dragging-drop source'!
   804 
   804 
   805 startDragFrom:aView dropSource:aDropSource
   805 startDragFrom:aView dropSource:aDropSource
   806     "start a drop at the current pointer position.
   806     "start a drop at the current pointer position.
   807     "
   807     "
   808     ^ self startDragFrom:aView dropSource:aDropSource offset:#topLeft "/ #center
   808     ^ self startDragFrom:aView dropSource:aDropSource offset:#topLeft "/ #center
   818 	      offset:anOffset
   818 	      offset:anOffset
   819 	       atEnd:nil
   819 	       atEnd:nil
   820 	     display:(aDropSource displayObjects)
   820 	     display:(aDropSource displayObjects)
   821 ! !
   821 ! !
   822 
   822 
   823 !DragAndDropManager methodsFor:'dragging - easy startup'!
   823 !DragAndDropManager methodsFor:'dragging-easy startup'!
   824 
   824 
   825 startDrag:draggableObjects from:aView
   825 startDrag:draggableObjects from:aView
   826     "start a drop at the current pointer position
   826     "start a drop at the current pointer position
   827     "
   827     "
   828     ^ self startDrag:draggableObjects
   828     ^ self startDrag:draggableObjects
   941 	      offset:anOffset
   941 	      offset:anOffset
   942 	       atEnd:nil
   942 	       atEnd:nil
   943 	     display:something
   943 	     display:something
   944 ! !
   944 ! !
   945 
   945 
   946 !DragAndDropManager methodsFor:'dragging - generic'!
   946 !DragAndDropManager methodsFor:'dragging-generic'!
   947 
   947 
   948 startGenericDrag:aTwoArgDragBlock in:aView at:p atEnd:aFourArgEndBlock
   948 startGenericDrag:aTwoArgDragBlock in:aView at:p atEnd:aFourArgEndBlock
   949     "start a generic (caller-provided drag);
   949     "start a generic (caller-provided drag);
   950      Here, an inverting drag is initiated (i.e. the drawing is undone
   950      Here, an inverting drag is initiated (i.e. the drawing is undone
   951      by inverting again). See startOpaqueDrag for another variant.
   951      by inverting again). See startOpaqueDrag for another variant.
   999     ].
   999     ].
  1000     self doStart:handler for:aView atEnd:aFourArgEndBlock.
  1000     self doStart:handler for:aView atEnd:aFourArgEndBlock.
  1001 
  1001 
  1002 ! !
  1002 ! !
  1003 
  1003 
  1004 !DragAndDropManager methodsFor:'dragging - lines'!
  1004 !DragAndDropManager methodsFor:'dragging-lines'!
  1005 
  1005 
  1006 startArrowDragIn:aView at:aStartPoint atEnd:aFourArgEndBlock
  1006 startArrowDragIn:aView at:aStartPoint atEnd:aFourArgEndBlock
  1007     "start a line-drag of an arrow-line.
  1007     "start a line-drag of an arrow-line.
  1008      The drag starts in aView at point aStartPoint.
  1008      The drag starts in aView at point aStartPoint.
  1009      When finished, the endAction is called with four args:
  1009      When finished, the endAction is called with four args:
  1480 ! !
  1480 ! !
  1481 
  1481 
  1482 !DragAndDropManager class methodsFor:'documentation'!
  1482 !DragAndDropManager class methodsFor:'documentation'!
  1483 
  1483 
  1484 version
  1484 version
  1485     ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.44 2002-11-04 14:29:55 cg Exp $'
  1485     ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.45 2002-12-10 11:01:29 cg Exp $'
  1486 ! !
  1486 ! !
  1487 
  1487 
  1488 DragAndDropManager initialize!
  1488 DragAndDropManager initialize!