--- a/DropContext.st	Sun Mar 30 15:02:05 2003 +0200
+++ b/DropContext.st	Sun Mar 30 15:03:51 2003 +0200
@@ -168,17 +168,17 @@
         "/
         "/ ??  FEEDBACK  ??  hasDropped  ??
         "/
-        sourceWidget device drop:dropObjects
-                      inWindowID:targetId
-                        position:(self targetPoint)
-                    rootPosition:rootPoint.
+        sourceWidget device 
+            drop:dropObjects
+            inWindowID:targetId
+            position:(self targetPoint)
+            rootPosition:rootPoint.
     ].
 
     dropSource notNil ifTrue:[
-        "/
-        "/ feedBack to dropSource
-        "/
-        dropSource feedBack:self
+        hasDropped ifTrue:[     "/ could have been cleared in drop-code
+            dropSource dropFeedBackFrom:self
+        ]
     ].
 !
 
@@ -258,6 +258,14 @@
     ^ dropTarget notNil ifTrue:[dropTarget canDrop:self] ifFalse:[false]
 !
 
+clearHasDroppedFlagToSuppressFeedBack
+    "can be used from within a targets drop code,
+     to signal that no feedBack should be send to the
+     dropSource (because the drop did not happen)"
+
+    hasDropped := false
+!
+
 hasDropped
     ^ hasDropped ? false
 !
@@ -278,5 +286,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.6 2002-11-04 14:30:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.7 2003-03-30 13:03:51 cg Exp $'
 ! !