Mercurial Mercurial > hg > stx-libview2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DragAndDropManager.st
changeset 3885 e639779ef87b
parent 3774 cee263839e68
child 3932 a36a1c6efbb2 
--- a/DragAndDropManager.st	Mon Feb 13 20:09:31 2017 +0100
+++ b/DragAndDropManager.st	Mon Feb 13 20:37:35 2017 +0100
@@ -121,7 +121,7 @@
       atEnd:
         a 4-arg block that is evaluated when the d&d is finished.
         It gets the target view (or nil, for alien views), the targets
-        view ID (needed if its an alien view), the screen position and the
+        view ID (needed if it's an alien view), the screen position and the
         relative position within the target view of the drop as arguments.
 
         For internal (ST/X) views, the dropBlock should perform
@@ -361,7 +361,7 @@
 startDrag:draggableObjects from:aView atEnd:aFourArgEndBlock
     "start a drop at the current pointer position
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
 
     ^ self startDrag:draggableObjects
@@ -391,12 +391,14 @@
 
     button openAt:100@100
 "
+
+    "Modified (comment): / 13-02-2017 / 20:36:27 / cg"
 !
 
 startDrag:draggableObjects from:aView atEnd:aFourArgEndBlock display:something
     "start a drop at the current pointer position
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
 
     ^ self startDrag:draggableObjects
@@ -427,6 +429,8 @@
 
     button openAt:100@100
 "
+
+    "Modified (comment): / 13-02-2017 / 20:36:31 / cg"
 !
 
 startDrag:draggableObjects from:aView display:something
@@ -499,7 +503,7 @@
 startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock
     "start a drop at the current pointer position
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
 
     ^ self startDrag:draggableObjects
@@ -530,12 +534,14 @@
 
     button openAt:100@100
 "
+
+    "Modified (comment): / 13-02-2017 / 20:36:35 / cg"
 !
 
 startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock display:something
     "start a drop at the current pointer position
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
 
     |manager|
@@ -573,6 +579,8 @@
 
     button openAt:100@100
 "
+
+    "Modified (comment): / 13-02-2017 / 20:18:39 / cg"
 !
 
 startDrag:draggableObjects from:aView offset:anOffset display:something
@@ -949,7 +957,7 @@
 startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgEndBlock 
     "start a drop at the current pointer position.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
     
     ^ self 
@@ -958,12 +966,14 @@
         offset:anOffset
         atEnd:aFourArgEndBlock
         display:draggableObjects
+
+    "Modified (comment): / 13-02-2017 / 20:35:58 / cg"
 !
 
 startDrag:draggableObjects from:aView offset:anOffset atEnd:aFourArgBlock display:something
     "start a drop at the current pointer position.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView."
 
     |height width fontWdt offset ascent device dispObjs list space|
@@ -1030,7 +1040,8 @@
         at:nil
         atEnd:aFourArgBlock
 
-    "Modified: / 31.3.1998 / 11:18:04 / cg"
+    "Modified: / 31-03-1998 / 11:18:04 / cg"
+    "Modified (comment): / 13-02-2017 / 20:36:02 / cg"
 !
 
 startDrag:draggableObjects from:aView offset:anOffset display:something 
@@ -1054,7 +1065,7 @@
      aPoint and a drawingGC, to perform the drawing at some dragPoint.
      The drag starts in aView at point p.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
     
     ^ self 
@@ -1064,6 +1075,8 @@
         in:aView
         at:nil
         atEnd:aFourArgEndBlock
+
+    "Modified (comment): / 13-02-2017 / 20:36:06 / cg"
 !
 
 startOpaqueDrag:aDragBlock offset:offs extent:anExtent in:aView at:aDummyPoint atEnd:aFourArgEndBlock
@@ -1075,7 +1088,7 @@
      drawingGC and the display objects, to perform the drawing at some dragPoint.
      The drag starts in aView at point p.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
 
     |handler numArgs dragBlock dobjs|
@@ -1102,6 +1115,7 @@
     self doStart:handler for:aView atEnd:aFourArgEndBlock.
 
     "Modified: / 18-07-2011 / 09:38:21 / cg"
+    "Modified (comment): / 13-02-2017 / 20:36:18 / cg"
 ! !
 
 !DragAndDropManager methodsFor:'dragging-lines'!
@@ -1110,7 +1124,7 @@
     "start a line-drag of an arrow-line.
      The drag starts in aView at point aStartPoint.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
     
     |p|
@@ -1120,13 +1134,15 @@
         doStart:(DragHandler startArrowDragAt:p)
         for:aView
         atEnd:aFourArgEndBlock
+
+    "Modified (comment): / 13-02-2017 / 20:35:53 / cg"
 !
 
 startLineDragIn:aView at:aStartPoint atEnd:aFourArgEndBlock 
     "start a line-drag of a normal line.
      The drag starts in aView at point aStartPoint.
      When finished, the endAction is called with four args:
-     the targetView, the targetViews windowID (useful, if its an alien view),
+     the targetView, the targetViews windowID (useful, if it's an alien view),
      the dropPoint in root-coordinates and the dropPoint within the targetView"
     
     |p|
@@ -1136,6 +1152,8 @@
         doStart:(DragHandler startLineDragAt:p)
         for:aView
         atEnd:aFourArgEndBlock
+
+    "Modified (comment): / 13-02-2017 / 20:36:12 / cg"
 ! !
 
 !DragAndDropManager methodsFor:'drawing'!
hg/stx-libview2