--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/Dnd/droptest.el	Mon Aug 13 10:00:02 2007 +0200
@@ -0,0 +1,9 @@
+;; a simple test of the drop event
+;;
+
+(defun some-drop (event)
+  (interactive "@e")
+  (setq dnd-data (event-dnd-data event))
+  (message "At %d,%d; button %d, data %s" (event-x event) (event-y event) (event-button event) (event-dnd-data event)))
+
+(define-key global-map [drop1] 'some-drop)