cgit.sxemacs.org Git - sxemacs/blob - src/ui/Gtk/dialog-gtk.c

   1 /* Implements elisp-programmable dialog boxes -- Gtk interface.
   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 SXEmacs
   6
   7 SXEmacs is free software: you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 SXEmacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  19
  20
  21 /* Synched up with: Not in FSF. */
  22
  23 #include <config.h>
  24 #include "lisp.h"
  25
  26 #include "console-gtk.h"
  27 #include "gui-gtk.h"
  28
  29 #include "buffer.h"
  30 #include "commands.h"           /* zmacs_regions */
  31 #include "events/events.h"
  32 #include "ui/frame.h"
  33 #include "ui/gui.h"
  34 #include "opaque.h"
  35 #include "ui/window.h"
  36
  37 Lisp_Object Qgtk_make_dialog_box_internal;
  38
  39 /* We just bounce up into lisp here... see $(srcdir)/lisp/dialog-gtk.el */
  40 static Lisp_Object
  41 gtk_make_dialog_box_internal(struct frame *f, Lisp_Object type,
  42                              Lisp_Object keys)
  43 {
  44         return (call2(Qgtk_make_dialog_box_internal, type, keys));
  45 }
  46
  47 void syms_of_dialog_gtk(void)
  48 {
  49         defsymbol(&Qgtk_make_dialog_box_internal,
  50                   "gtk-make-dialog-box-internal");
  51 }
  52
  53 void console_type_create_dialog_gtk(void)
  54 {
  55         CONSOLE_HAS_METHOD(gtk, make_dialog_box_internal);
  56 }
  57
  58 void vars_of_dialog_gtk(void)
  59 {
  60         Fprovide(intern("gtk-dialogs"));
  61 }