git.chise.org Git - chise/xemacs-chise.git.1/blob - src/gui-gtk.c

   1 /* General GUI code -- X-specific. (menubars, scrollbars, toolbars, dialogs)
   2    Copyright (C) 1995 Board of Trustees, University of Illinois.
   3    Copyright (C) 1995, 1996 Ben Wing.
   4    Copyright (C) 1995 Sun Microsystems, Inc.
   5    Copyright (C) 1998 Free Software Foundation, Inc.
   6
   7 This file is part of XEmacs.
   8
   9 XEmacs is free software; you can redistribute it and/or modify it
  10 under the terms of the GNU General Public License as published by the
  11 Free Software Foundation; either version 2, or (at your option) any
  12 later version.
  13
  14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  16 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  17 for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with XEmacs; see the file COPYING.  If not, write to
  21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  22 Boston, MA 02111-1307, USA.  */
  23
  24 /* Synched up with: Not in FSF. */
  25
  26 #include <config.h>
  27 #include "lisp.h"
  28
  29 #include "console-gtk.h"
  30 #include "gui-gtk.h"
  31 #include "buffer.h"
  32 #include "device.h"
  33 #include "frame.h"
  34 #include "gui.h"
  35 #include "opaque.h"
  36
  37 #ifdef HAVE_POPUPS
  38 Lisp_Object Qmenu_no_selection_hook;
  39 #endif
  40
  41 static GUI_ID gui_id_ctr = 0;
  42
  43 GUI_ID
  44 new_gui_id (void)
  45 {
  46   return (++gui_id_ctr);
  47 }
  48
  49 /* This is like FRAME_MENUBAR_DATA (f), but contains an alist of
  50    (id . popup-data) for GCPRO'ing the callbacks of the popup menus
  51    and dialog boxes. */
  52 static Lisp_Object Vpopup_callbacks;
  53
  54 void
  55 gcpro_popup_callbacks (GUI_ID id, Lisp_Object data)
  56 {
  57   Vpopup_callbacks = Fcons (Fcons (make_int (id), data), Vpopup_callbacks);
  58 }
  59
  60 void
  61 ungcpro_popup_callbacks (GUI_ID id)
  62 {
  63   Lisp_Object lid = make_int (id);
  64   Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
  65   Vpopup_callbacks = delq_no_quit (this, Vpopup_callbacks);
  66 }
  67
  68 Lisp_Object
  69 get_gcpro_popup_callbacks (GUI_ID id)
  70 {
  71   Lisp_Object lid = make_int (id);
  72   Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
  73
  74   if (!NILP (this))
  75     {
  76       return (XCDR (this));
  77     }
  78   return (Qnil);
  79 }
  80
  81 void
  82 syms_of_gui_gtk (void)
  83 {
  84 #ifdef HAVE_POPUPS
  85   defsymbol (&Qmenu_no_selection_hook, "menu-no-selection-hook");
  86 #endif
  87 }
  88
  89 void
  90 vars_of_gui_gtk (void)
  91 {
  92   staticpro (&Vpopup_callbacks);
  93   Vpopup_callbacks = Qnil;
  94 #ifdef HAVE_POPUPS
  95   popup_up_p = 0;
  96
  97 #if 0
  98   /* This DEFVAR_LISP is just for the benefit of make-docfile. */
  99   /* #### misnamed */
 100   DEFVAR_LISP ("menu-no-selection-hook", &Vmenu_no_selection_hook /*
 101 Function or functions to call when a menu or dialog box is dismissed
 102 without a selection having been made.
 103 */ );
 104 #endif
 105
 106   Fset (Qmenu_no_selection_hook, Qnil);
 107 #endif /* HAVE_POPUPS */
 108 }