Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
12 12
13 (defun url-drag (event) 13 (defun url-drag (event)
14 (interactive "@e") 14 (interactive "@e")
15 (offix-start-drag event "http://www.xemacs.org/" 8)) 15 (offix-start-drag event "http://www.xemacs.org/" 8))
16 16
17 (defun files-drag (event)
18 (interactive "@e")
19 (offix-start-drag event '("/tmp/dragtest" "/tmp/droptest" "/tmp/printcap") 3))
20
17 (define-key global-map [button1] 'text-drag) 21 (define-key global-map [button1] 'text-drag)
18 (define-key global-map [button2] 'file-drag) 22 (define-key global-map [button2] 'files-drag)
19 (define-key global-map [button3] 'url-drag) 23 (define-key global-map [button3] 'url-drag)