;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de>
-;; Keywords: drag, drop, dumped
+;; Keywords: mouse, gui, dumped
;; This file is part of XEmacs.
;; to-do: open ftp URLs with efs...
(t
;; some other URL, try to fire up some browser for it
- (if (boundp 'browse-url-browser-function)
- (funcall browse-url-browser-function (car data))
+ (if (fboundp 'browse-url)
+ (browse-url (car data))
(display-message 'error
"Can't show URL, no browser selected"))))
(undo-boundary)
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