Mercurial > hg > xemacs-beta
comparison tests/Dnd/dragtest.el @ 183:e121b013d1f0 r20-3b18
Import from CVS: tag r20-3b18
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:54:23 +0200 |
| parents | |
| children | acd284d43ca1 |
comparison
equal
deleted
inserted
replaced
| 182:f07455f06202 | 183:e121b013d1f0 |
|---|---|
| 1 ;; a simple test of the drag functions | |
| 2 ;; | |
| 3 ;; still to do: drag only after about 10 pix of movement | |
| 4 | |
| 5 (defun text-drag (event) | |
| 6 (interactive "@e") | |
| 7 (offix-start-drag event "That's a test")) | |
| 8 | |
| 9 (defun file-drag (event) | |
| 10 (interactive "@e") | |
| 11 (offix-start-drag event "/tmp/printcap" 2)) | |
| 12 | |
| 13 (defun url-drag (event) | |
| 14 (interactive "@e") | |
| 15 (offix-start-drag event "http://www.xemacs.org/" 8)) | |
| 16 | |
| 17 (define-key global-map [button1] 'text-drag) | |
| 18 (define-key global-map [button2] 'file-drag) | |
| 19 (define-key global-map [button3] 'url-drag) |