# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1487855423 -3600
# Node ID a36a1c6efbb2f83b10d64a2f1ee799f598c96ae4
# Parent  4291708939e9e5554f268374b148f12788eea53a
#TUNING by stefan
class: DragAndDropManager
changed: #doStart:for:atEnd:
    do not create a lot of delay objects

diff -r 4291708939e9 -r a36a1c6efbb2 DragAndDropManager.st
--- a/DragAndDropManager.st	Thu Feb 23 03:05:09 2017 +0100
+++ b/DragAndDropManager.st	Thu Feb 23 14:10:23 2017 +0100
@@ -1678,18 +1678,18 @@
 
     autoScrollTask := 
         [
-            [   |sensor|
+            [   |sensor delay|
 
                 sensor := windowGroup sensor.
+                delay := Delay forMilliseconds:(self class autoScrollDelayTimeMs).
 
                 [ self isActive ] whileTrue:[
-                    Delay waitForMilliseconds:(self class autoScrollDelayTimeMs).
-
+                    delay wait.
                     self isActive ifTrue:[
                         sensor pushUserEvent:#processAutoScroll for:self.
                     ].
                 ].
-            ]ensure:[
+            ] ensure:[
                 autoScrollTask := nil.
             ]
          ] newProcess.
@@ -1701,6 +1701,8 @@
     "/ start with a first draw at the current mouse position
     screenPoint := viewsDevice pointerPosition.
     self buttonMotion:1 x:(screenPoint x) y:(screenPoint y) view:(viewsDevice rootView).
+
+    "Modified: / 23-02-2017 / 13:34:48 / stefan"
 !
 
 forceGiveUp