Mercurial > hg > xemacs-beta

diff lisp/dragdrop.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents abe6d1db359e
children 7039e6323819
line wrap: on
line diff
--- a/lisp/dragdrop.el	Mon Aug 13 11:43:25 2007 +0200
+++ b/lisp/dragdrop.el	Mon Aug 13 11:44:37 2007 +0200
@@ -420,5 +420,16 @@
 	       event (buffer-substring-no-properties begin end))
     (error "OffiX functionality not compiled in.")))
 
+(defun gtk-start-drag (event data &optional type)
+  (interactive "esi")
+  (if (featurep 'gtk)
+      (gtk-start-drag-internal event data type)
+    (error "GTK functionality not compiled in.")))
+
+(defun gtk-start-drag-region (event begin end)
+  (interactive "_er")
+  (if (featurep 'gtk)
+      (gtk-start-drag-internal event (buffer-substring-no-properties begin end) "text/plain")
+    (error "GTK functionality not compiled in.")))
 
 ;;; dragdrop.el ends here