--- a/DropContext.st	Mon Nov 04 15:29:55 2002 +0100
+++ b/DropContext.st	Mon Nov 04 15:30:22 2002 +0100
@@ -15,7 +15,7 @@
 
 Object subclass:#DropContext
 	instanceVariableNames:'dropObjects rootPoint dropSource sourceWidget dropTarget
-		targetWidget targetId hasDropped dragHandler manager'
+		targetWidget targetId hasDropped dragHandler manager dropInfo'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-DragAndDrop'
@@ -67,6 +67,15 @@
     dragHandler := aHandler
 !
 
+dropInfo
+    "a hook for additional info"
+
+    dropInfo isNil ifTrue:[
+        dropInfo := IdentityDictionary new
+    ].
+    ^ dropInfo
+!
+
 dropObjects
     "returns the collection of droppable objects
     "
@@ -173,6 +182,10 @@
     ].
 !
 
+passiveAction:aBlock
+    manager passiveAction:aBlock
+!
+
 saveDraw:aBlock
     "evaluate aBlock with the drag temporarily being undrawn 
      (i.e. restore original picture, evaluate the block, and draw dragged objects again).
@@ -265,5 +278,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.5 2002-09-13 13:44:30 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.6 2002-11-04 14:30:22 cg Exp $'
 ! !