--- a/DragHandler.st	Mon Apr 21 18:05:47 2008 +0200
+++ b/DragHandler.st	Tue Apr 22 17:26:01 2008 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#DragHandler
-	instanceVariableNames:'rootView lastRootPoint'
+	instanceVariableNames:'rootView lastRootPoint dropContext'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-DragAndDrop'
@@ -105,6 +105,16 @@
     ^ Opaque new dragSize:anExtent dragOffset:anOffset dragBlock:aTwoArgDragBlock
 ! !
 
+!DragHandler methodsFor:'accessing'!
+
+targetView
+    ^ targetView
+!
+
+targetView:something
+    targetView := something.
+! !
+
 !DragHandler methodsFor:'event dropTarget'!
 
 dropTargetWillChange
@@ -449,5 +459,5 @@
 !DragHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.10 2007-05-29 10:10:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.11 2008-04-22 15:26:01 cg Exp $'
 ! !