SelectionInListView.st
changeset 1192 be7286941daf
parent 1182 b8af34a9be46
child 1197 7d119e8057bc
--- a/SelectionInListView.st	Thu Apr 17 02:15:40 1997 +0200
+++ b/SelectionInListView.st	Thu Apr 17 12:54:50 1997 +0200
@@ -2645,13 +2645,14 @@
     dragAndDropMgr := DragAndDropManager new.
     dragAndDropMgr dropObjects:(self collectionOfDragObjects).
 
-    dragAndDropMgr startOpaqueDrag:[:aPoint :aView| self showDraggingIn:aView at:aPoint - (xOffset@8)]
+    dragAndDropMgr startOpaqueDrag:[:aPoint :aView| self showDraggingIn:aView at:aPoint - (xOffset@0)]
                             offset:(xOffset @ h)
                             extent:(w*5)@(h*2)
                                in:self
                                at:(x@y)
                             atEnd:endDragAction.
 
+    "Modified: 17.4.1997 / 12:54:24 / cg"
 ! !
 
 !SelectionInListView methodsFor:'queries'!
@@ -3261,5 +3262,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.99 1997-04-06 12:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.100 1997-04-17 10:54:50 cg Exp $'
 ! !