--- a/DragAndDropManager.st	Thu Sep 12 17:46:48 2002 +0200
+++ b/DragAndDropManager.st	Fri Sep 13 15:44:30 2002 +0200
@@ -1259,6 +1259,7 @@
 
     dragOffset     := 0 @ 0.
     dropContext    := DropContext new.
+    dropContext manager:self.
     alienCursor    := Cursor questionMark.
     enabledCursor  := Cursor thumbsUp.
     disabledCursor := Cursor thumbsDown.
@@ -1408,6 +1409,6 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.39 2002-07-26 15:24:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.40 2002-09-13 13:44:19 penk Exp $'
 ! !
 DragAndDropManager initialize!

--- a/DropContext.st	Thu Sep 12 17:46:48 2002 +0200
+++ b/DropContext.st	Fri Sep 13 15:44:30 2002 +0200
@@ -15,7 +15,7 @@
 
 Object subclass:#DropContext
 	instanceVariableNames:'dropObjects rootPoint dropSource sourceWidget dropTarget
-		targetWidget targetId hasDropped dragHandler'
+		targetWidget targetId hasDropped dragHandler manager'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-DragAndDrop'
@@ -73,6 +73,10 @@
     ^ dropObjects ? #()
 !
 
+manager:something
+    manager := something.
+!
+
 rootPoint
     "returns the absolute point on the screen (rootPoint)
     "
@@ -167,6 +171,14 @@
         "/
         dropSource feedBack:self
     ].
+!
+
+saveDraw:aBlock
+    "evaluate aBlock with the drag temporarily being undrawn 
+     (i.e. restore original picture, evaluate the block, and draw dragged objects again).
+     Return blocks value."
+
+    ^  manager saveDraw:aBlock
 ! !
 
 !DropContext methodsFor:'change & update'!
@@ -253,5 +265,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.4 2000-11-17 00:43:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.5 2002-09-13 13:44:30 penk Exp $'
 ! !