|
183
|
1 ;; a simple test of the drag functions
|
|
|
2 ;;
|
|
282
|
3 ;; it still uses the old way, but it will work to test
|
|
|
4 ;; the drop functions using droptest.el
|
|
|
5 ;;
|
|
183
|
6
|
|
|
7 (defun text-drag (event)
|
|
|
8 (interactive "@e")
|
|
|
9 (offix-start-drag event "That's a test"))
|
|
|
10
|
|
|
11 (defun file-drag (event)
|
|
|
12 (interactive "@e")
|
|
|
13 (offix-start-drag event "/tmp/printcap" 2))
|
|
|
14
|
|
|
15 (defun url-drag (event)
|
|
|
16 (interactive "@e")
|
|
|
17 (offix-start-drag event "http://www.xemacs.org/" 8))
|
|
|
18
|
|
197
|
19 (defun files-drag (event)
|
|
|
20 (interactive "@e")
|
|
|
21 (offix-start-drag event '("/tmp/dragtest" "/tmp/droptest" "/tmp/printcap") 3))
|
|
|
22
|
|
183
|
23 (define-key global-map [button1] 'text-drag)
|
|
197
|
24 (define-key global-map [button2] 'files-drag)
|
|
183
|
25 (define-key global-map [button3] 'url-drag)
|
