git.chise.org Git - chise/xemacs-chise.git-/blob - src/dialog.c

   1 /* Implements elisp-programmable dialog boxes -- generic.
   2    Copyright (C) 1993, 1994 Free Software Foundation, Inc.
   3    Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
   4    Copyright (C) 2000 Ben Wing.
   5
   6 This file is part of XEmacs.
   7
   8 XEmacs is free software; you can redistribute it and/or modify it
   9 under the terms of the GNU General Public License as published by the
  10 Free Software Foundation; either version 2, or (at your option) any
  11 later version.
  12
  13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with XEmacs; see the file COPYING.  If not, write to
  20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21 Boston, MA 02111-1307, USA.  */
  22
  23 /* Synched up with: Not in FSF. */
  24
  25 #include <config.h>
  26 #include "lisp.h"
  27
  28 #include "frame.h"
  29 #include "device.h"
  30
  31 Lisp_Object Vdelete_dialog_box_hook;
  32 Lisp_Object Qdelete_dialog_box_hook;
  33
  34 DEFUN ("make-dialog-box-internal", Fmake_dialog_box_internal, 2, 2, 0, /*
  35 Internal helper function for `make-dialog-box'.
  36 This handles all dialog-box types except `general'.
  37 TYPE is the same as the first argument to `make-dialog-box', and KEYS
  38 a list of the remaining arguments.
  39 */
  40      (type, keys))
  41 {
  42   struct frame *f = selected_frame ();
  43   struct device *d = XDEVICE (f->device);
  44
  45   CHECK_SYMBOL (type);
  46
  47   if (!HAS_DEVMETH_P (d, make_dialog_box_internal))
  48     signal_type_error (Qunimplemented,
  49                        "Device does not support dialogs", f->device);
  50
  51   return DEVMETH (d, make_dialog_box_internal, (f, type, keys));
  52 }
  53
  54 void
  55 syms_of_dialog (void)
  56 {
  57   DEFSUBR (Fmake_dialog_box_internal);
  58
  59   DEFSYMBOL (Qdelete_dialog_box_hook);
  60 }
  61
  62 void
  63 vars_of_dialog (void)
  64 {
  65   Fprovide (intern ("dialog"));
  66
  67   DEFVAR_LISP ("delete-dialog-box-hook", &Vdelete_dialog_box_hook /*
  68 Function or functions to call when a dialog box is about to be deleted.
  69 One arg, the dialog box id.
  70 */ );
  71   Vdelete_dialog_box_hook = Qnil;
  72 }