Mercurial > hg > xemacs-beta

comparison tests/Dnd/dragtest.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents acd284d43ca1
children e11d67e05968
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
1 ;; a simple test of the drag functions 1 ;; a simple test of the drag functions
2 ;; 2 ;;
3 ;; still to do: drag only after about 10 pix of movement 3 ;; it still uses the old way, but it will work to test
4 ;; the drop functions using droptest.el
5 ;;
4 6
5 (defun text-drag (event) 7 (defun text-drag (event)
6 (interactive "@e") 8 (interactive "@e")
7 (offix-start-drag event "That's a test")) 9 (offix-start-drag event "That's a test"))
8 10