--- a/DropContext.st	Sat Sep 18 14:40:05 2004 +0200
+++ b/DropContext.st	Sat Sep 18 14:50:37 2004 +0200
@@ -182,6 +182,16 @@
     ].
 !
 
+exchangeDragHandler:aHandler
+    "make the new handler to the active handler
+    "
+    (aHandler notNil and:[aHandler ~~ dragHandler]) ifTrue:[
+        dragHandler postDragging.
+        dragHandler := aHandler.
+        manager dragHandler:dragHandler.
+    ].
+!
+
 passiveAction:aBlock
     manager passiveAction:aBlock
 !
@@ -287,5 +297,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.9 2004-07-06 11:31:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.10 2004-09-18 12:50:37 ca Exp $'
 ! !