git.chise.org Git - chise/xemacs-chise.git.1/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
   5 This file is part of XEmacs.
   6
   7 XEmacs is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with XEmacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 /* Synched up with: Not in FSF. */
  23
  24 /* #### There ain't nothin' here because dialog boxes have not been
  25    properly abstracted yet. */
  26
  27 #include <config.h>
  28 #include "lisp.h"
  29 #include "frame.h"
  30 #include "device.h"
  31
  32 DEFUN ("popup-dialog-box", Fpopup_dialog_box, 1, 1, 0, /*
  33 Pop up a dialog box.
  34 A dialog box description is a list.
  35
  36 The first element of a dialog box must be a string, which is the title or
  37 question.
  38
  39 The rest of the elements are descriptions of the dialog box's buttons.
  40 Each of these is a vector, the syntax of which is essentially the same as
  41 that of popup menu items.  They may have any of the following forms:
  42
  43  [ "name" callback <active-p> ]
  44  [ "name" callback <active-p> "suffix" ]
  45  [ "name" callback :<keyword> <value>  :<keyword> <value> ... ]
  46
  47 The name is the string to display on the button; it is filtered through the
  48 resource database, so it is possible for resources to override what string
  49 is actually displayed.
  50
  51 If the `callback' of a button is a symbol, then it must name a command.
  52 It will be invoked with `call-interactively'.  If it is a list, then it is
  53 evaluated with `eval'.
  54
  55 One (and only one) of the buttons may be `nil'.  This marker means that all
  56 following buttons should be flushright instead of flushleft.
  57
  58 Though the keyword/value syntax is supported for dialog boxes just as in
  59 popup menus, the only keyword which is both meaningful and fully implemented
  60 for dialog box buttons is `:active'.
  61 */
  62      (dbox_desc))
  63 {
  64   struct frame *f = selected_frame ();
  65   struct device *d = XDEVICE (f->device);
  66
  67   if (!HAS_DEVMETH_P (d, popup_dialog_box))
  68     signal_simple_error ("Device does not support dialogs", f->device);
  69
  70   if (SYMBOLP (dbox_desc))
  71     dbox_desc = Fsymbol_value (dbox_desc);
  72   CHECK_CONS (dbox_desc);
  73   CHECK_STRING (XCAR (dbox_desc));
  74   if (!CONSP (XCDR (dbox_desc)))
  75     signal_simple_error ("Dialog descriptor must supply at least one button", dbox_desc);
  76
  77   DEVMETH (d, popup_dialog_box, (f, dbox_desc));
  78
  79   return Qnil;
  80 }
  81
  82 void
  83 syms_of_dialog (void)
  84 {
  85   DEFSUBR (Fpopup_dialog_box);
  86 }
  87
  88 void
  89 vars_of_dialog (void)
  90 {
  91   Fprovide (intern ("dialog"));
  92 }