Mercurial > hg > xemacs-beta

comparison tests/Dnd/droptest.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
children c42ec1d1cded
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;; a simple test of the drop event
2 ;;
3
4 (defun some-drop (event)
5 (interactive "@e")
6 (setq dnd-data (event-dnd-data event))
7 (message "At %d,%d; button %d, data %s" (event-x event) (event-y event) (event-button event) (event-dnd-data event)))
8
9 (define-key global-map [drop1] 'some-drop)