Mercurial > hg > xemacs-beta

comparison tests/Dnd/droptest.el @ 4790:bc4f2511bbea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove support for the OffiX drag-and-drop protocol. See xemacs-patches message with ID <870180fe0912211421m3e3d7891pdadefef167b50cb4@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Tue, 22 Dec 2009 15:52:06 -0700
parents 3ecd8885ac67
children d88ad9ccfa66
comparison
equal deleted inserted replaced
4789:56049bea9231 4790:bc4f2511bbea
11 ;; signal that the data is still unprocessed 11 ;; signal that the data is still unprocessed
12 nil) 12 nil)
13 13
14 (defun start-drag (event what &optional typ) 14 (defun start-drag (event what &optional typ)
15 ;; short drag interface, until the real one is implemented 15 ;; short drag interface, until the real one is implemented
16 (cond ((featurep 'offix) 16 (cond ((featurep 'cde)
17 (if (numberp typ)
18 (offix-start-drag event what typ)
19 (offix-start-drag event what)))
20 ((featurep 'cde)
21 (if (not typ) 17 (if (not typ)
22 (funcall (intern "cde-start-drag-internal") event nil (list what)) 18 (funcall (intern "cde-start-drag-internal") event nil (list what))
23 (funcall (intern "cde-start-drag-internal") event t what))) 19 (funcall (intern "cde-start-drag-internal") event t what)))
24 (t display-message 'error "no valid drag protocols implemented"))) 20 (t display-message 'error "no valid drag protocols implemented")))
25 21
26 (defun start-region-drag (event) 22 (defun start-region-drag (event)
27 (interactive "_e") 23 (interactive "_e")
28 (if (click-inside-extent-p event zmacs-region-extent) 24 (if (click-inside-extent-p event zmacs-region-extent)
29 ;; okay, this is a drag 25 ;; okay, this is a drag
30 (cond ((featurep 'offix) 26 (cond ((featurep 'cde)
31 (offix-start-drag-region event
32 (extent-start-position zmacs-region-extent)
33 (extent-end-position zmacs-region-extent)))
34 ((featurep 'cde)
35 ;; should also work with CDE
36 (cde-start-drag-region event 27 (cde-start-drag-region event
37 (extent-start-position zmacs-region-extent) 28 (extent-start-position zmacs-region-extent)
38 (extent-end-position zmacs-region-extent))) 29 (extent-end-position zmacs-region-extent)))
39 (t (error "No offix or CDE support compiled in"))))) 30 (t (error "No CDE support compiled in")))))
40 31
41 (defun make-drop-targets () 32 (defun make-drop-targets ()
42 (let ((buf (get-buffer-create "*DND misc-user extent test buffer*")) 33 (let ((buf (get-buffer-create "*DND misc-user extent test buffer*"))
43 (s nil) 34 (s nil)
44 (e nil)) 35 (e nil))