Mercurial > hg > xemacs-beta

diff tests/Dnd/dragtest.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents e121b013d1f0
children c42ec1d1cded
line wrap: on
line diff
--- a/tests/Dnd/dragtest.el	Mon Aug 13 09:59:07 2007 +0200
+++ b/tests/Dnd/dragtest.el	Mon Aug 13 10:00:02 2007 +0200
@@ -14,6 +14,10 @@
   (interactive "@e")
   (offix-start-drag event "http://www.xemacs.org/" 8))
 
+(defun files-drag (event)
+  (interactive "@e")
+  (offix-start-drag event '("/tmp/dragtest" "/tmp/droptest" "/tmp/printcap") 3))
+
 (define-key global-map [button1] 'text-drag)
-(define-key global-map [button2] 'file-drag)
+(define-key global-map [button2] 'files-drag)
 (define-key global-map [button3] 'url-drag)