DragHandler.st
changeset 3160 7aa62ff13f85
parent 2626 762fe84ed4fa
child 3529 2250b416c0ae
--- a/DragHandler.st	Wed May 15 19:29:27 2013 +0200
+++ b/DragHandler.st	Fri May 17 14:58:16 2013 +0200
@@ -403,20 +403,28 @@
 
 postDragging
     "restore from saveUnder for a generic opaque drag"
+    | origin extent |
 
-    saveArea notNil ifTrue:[
-        rootView clippedByChildren:false.
-        "/
-        "/ copy from saveUnder back to screen
-        "/
-        rootView copyFrom:saveUnder 
-                        x:saveArea origin x 
-                        y:saveArea origin y 
-                    width:saveArea extent x  
-                   height:saveArea extent y.
+    saveArea isNil ifTrue:[ ^ self ].
+    origin   := saveArea origin.
+    extent   := saveArea extent.
+    saveArea := nil.
 
-        saveArea := nil.
-    ]
+    rootView clippedByChildren:false.
+    "/ copy from saveUnder back to screen
+    rootView copyFrom:saveUnder
+                    x: origin x
+                    y: origin y
+                width: extent x
+               height: extent y.
+
+    "Call #D1894600 - redraw artefakte bei drag im tree
+        work around copy again back than it works ???"
+    saveUnder copyFrom:rootView
+                     x: origin x
+                     y: origin y
+                 width: 1
+                height: 1.
 !
 
 preDraggingIn:aSourceWidget
@@ -462,5 +470,6 @@
 !DragHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.13 2009-05-01 17:36:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.14 2013-05-17 12:58:16 mb Exp $'
 ! !
+