Mercurial > hg > xemacs-beta

annotate tests/Dnd/droptest.el @ 199:169c0442b401 r20-3b26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b26
author cvs
date Mon, 13 Aug 2007 10:00:33 +0200
parents acd284d43ca1
children c42ec1d1cded
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
197
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
1 ;; a simple test of the drop event
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
2 ;;
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
3
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
4 (defun some-drop (event)
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
5 (interactive "@e")
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
6 (setq dnd-data (event-dnd-data event))
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
7 (message "At %d,%d; button %d, data %s" (event-x event) (event-y event) (event-button event) (event-dnd-data event)))
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
8
acd284d43ca1 Import from CVS: tag r20-3b25
cvs
parents:
diff changeset
9 (define-key global-map [drop1] 'some-drop)