cgit.sxemacs.org Git - sxemacs/blob - lisp/dragdrop.el

   1 ;;; dragdrop.el --- window system-independent Drag'n'Drop support.
   2
   3 ;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
   4
   5 ;; Maintainer: SXEmacs Development Team, Oliver Graf <ograf@fga.de>
   6 ;; Keywords: mouse, gui, dumped
   7
   8 ;; This file is part of SXEmacs.
   9
  10 ;; SXEmacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; SXEmacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Synched up with: Not in FSF.
  24
  25 ;;; Commentary:
  26
  27 ;; This file is dumped with SXEmacs (when drag'n'drop support is compiled in).
  28
  29 ;;; Code:
  30
  31 ;; we need mouse-set-point
  32 (require 'mouse)
  33 (provide 'dragdrop)
  34
  35 ;; I think this is a better name for the custom group
  36 ;; looks better in the menu and the group display as dragdrop
  37 ;; Anyway: is dragdrop- a good prefix for all this?
  38 ;; What if someone trys drop<TAB> in the minibuffer?
  39 (defgroup drag-n-drop nil
  40   "*{EXPERIMENTAL} Window system-independent drag'n'drop support."
  41   :group 'editing)
  42
  43 (defcustom dragdrop-drop-at-point nil
  44   "*{EXPERIMENTAL} If non-nil, drop text at the cursor location.
  45 Otherwise, the cursor will be moved to the location of the pointer drop before
  46 text is inserted."
  47   :type 'boolean
  48   :group 'drag-n-drop)
  49
  50 (defcustom dragdrop-autoload-tm-view nil
  51   "*{EXPERIMENTAL} If non-nil, autoload tm-view to decode MIME data.
  52 Otherwise, the buffer is only decoded if tm-view is already available."
  53   :type 'boolean
  54   :group 'drag-n-drop)
  55
  56 ;; the widget for editing the drop-functions
  57 (define-widget 'dragdrop-function-widget 'list
  58   "*{EXPERIMENTAL} Widget for editing drop dispatch functions."