changed #processEvent:
authorca
Mon, 03 Dec 2007 10:57:40 +0100
changeset 2204 bde4a7ef693a
parent 2203 919b6f0753fa
child 2205 0582767018d7
changed #processEvent:
UIGalleryView.st
--- a/UIGalleryView.st	Mon Dec 03 10:57:20 2007 +0100
+++ b/UIGalleryView.st	Mon Dec 03 10:57:40 2007 +0100
@@ -427,7 +427,7 @@
 startDragFrom:evView
     "start drag at a point
     "
-    |spec dragObj offset clickPos|
+    |spec dragObj offset clickPos dragAndDropManager|
 
     clickPos := lastClickPoint.
     clickPos isNil ifTrue:[^ self].
@@ -444,7 +444,14 @@
         offset  := clickPos - selection origin.
     ].
 
-    DragAndDropManager startDrag:dragObj from:evView offset:offset.
+    dragAndDropManager := DragAndDropManager new.
+    dragAndDropManager giveFocusToTargetWidget:false.
+
+    dragAndDropManager startDrag:dragObj
+                 from:self
+               offset:offset
+                atEnd:nil
+              display:nil.
 ! !
 
 !UIGalleryView::Canvas methodsFor:'event handling'!