update.
[chise/xemacs-chise.git.1] / 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 }