--- a/DragAndDropManager.st	Mon Sep 13 11:02:49 2004 +0200
+++ b/DragAndDropManager.st	Sat Sep 18 14:40:05 2004 +0200
@@ -719,6 +719,18 @@
 
 !
 
+dragHandler
+    "returns the current active handler which is responsible for drawing ..."
+
+    ^ handler
+!
+
+dragHandler:aNewHandler
+    "set the active handler which is responsible for drawing ..."
+
+    handler := aNewHandler.
+!
+
 dropContext
     "return the current context
     "
@@ -1494,7 +1506,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.56 2004-03-01 23:05:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.57 2004-09-18 12:40:05 ca Exp $'
 ! !
 
 DragAndDropManager initialize!