From cd58a58e42f699ee16ffb2a955e3ffd25e9252a5 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Tue, 1 Apr 2003 13:07:13 +0000
Subject: [PATCH] added root-coordinates to drop-message

---
 src/drag-window.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/drag-window.scm b/src/drag-window.scm
index 5d76056..e4ec27a 100644
--- a/src/drag-window.scm
+++ b/src/drag-window.scm
@@ -116,7 +116,9 @@
 				     (- (button-event-y xevent)
 					click-y))))
 			   (destroy-drag-window dwin)
-			   (send channel (list 'drop x y))
+			   (send channel (list 'drop x y
+					       (button-event-x-root xevent)
+					       (button-event-y-root xevent)))
 			   ;;(ungrab-server dpy)
 			   (idle)))