--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/Dnd/dragtest.el	Mon Aug 13 09:54:23 2007 +0200
@@ -0,0 +1,19 @@
+;; a simple test of the drag functions
+;;
+;; still to do: drag only after about 10 pix of movement
+
+(defun text-drag (event)
+  (interactive "@e")
+  (offix-start-drag event "That's a test"))
+
+(defun file-drag (event)
+  (interactive "@e")
+  (offix-start-drag event "/tmp/printcap" 2))
+
+(defun url-drag (event)
+  (interactive "@e")
+  (offix-start-drag event "http://www.xemacs.org/" 8))
+
+(define-key global-map [button1] 'text-drag)
+(define-key global-map [button2] 'file-drag)
+(define-key global-map [button3] 'url-drag)