--- 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'!