Mercurial > hg > xemacs-beta

comparison lisp/dragdrop.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 79940b592197
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
4789:56049bea9231 4790:bc4f2511bbea
398 (if (featurep 'cde) 398 (if (featurep 'cde)
399 (funcall (intern "cde-start-drag-internal") 399 (funcall (intern "cde-start-drag-internal")
400 event nil (list (buffer-substring-no-properties begin end))) 400 event nil (list (buffer-substring-no-properties begin end)))
401 (error "CDE functionality not compiled in."))) 401 (error "CDE functionality not compiled in.")))
402 402
403 ;; the OffiX drag stuff will soon move also (perhaps mouse.el)
404 ;; if the drag event is done
405 (defun offix-start-drag (event data &optional type)
406 "Implement the OffiX drag operation.
407 Calls the internal function offix-start-drag-internal to do the actual work.
408 If type is not given, DndText is assumed."
409 ;; Oliver Graf <ograf@fga.de>
410 (interactive "esi")
411 (if (featurep 'offix)
412 (funcall (intern "offix-start-drag-internal") event data type)
413 (error "OffiX functionality not compiled in.")))
414
415 (defun offix-start-drag-region (event begin end)
416 "Implement the OffiX drag operation for a region.
417 Calls the internal function offix-start-drag-internal to do the actual work.
418 This always assumes DndText as type."
419 ;; Oliver Graf <ograf@fga.de>
420 (interactive "_er")
421 (if (featurep 'offix)
422 (funcall (intern "offix-start-drag-internal")
423 event (buffer-substring-no-properties begin end))
424 (error "OffiX functionality not compiled in.")))
425
426 (defun gtk-start-drag (event data &optional type) 403 (defun gtk-start-drag (event data &optional type)
427 (interactive "esi") 404 (interactive "esi")
428 (if (featurep 'gtk) 405 (if (featurep 'gtk)
429 (declare-fboundp (gtk-start-drag-internal event data type)) 406 (declare-fboundp (gtk-start-drag-internal event data type))
430 (error "GTK functionality not compiled in."))) 407 (error "GTK functionality not compiled in.")))