|
462
|
1 /* General GUI code -- X-specific. (menubars, scrollbars, toolbars, dialogs)
|
|
|
2 Copyright (C) 1995 Board of Trustees, University of Illinois.
|
|
872
|
3 Copyright (C) 1995, 1996, 2002 Ben Wing.
|
|
462
|
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 "buffer.h"
|
|
872
|
30 #include "device-impl.h"
|
|
462
|
31 #include "frame.h"
|
|
|
32 #include "gui.h"
|
|
|
33 #include "opaque.h"
|
|
|
34
|
|
872
|
35 #include "console-gtk-impl.h"
|
|
|
36 #include "gui-gtk.h"
|
|
|
37
|
|
462
|
38 #ifdef HAVE_POPUPS
|
|
|
39 Lisp_Object Qmenu_no_selection_hook;
|
|
|
40 #endif
|
|
|
41
|
|
|
42 static GUI_ID gui_id_ctr = 0;
|
|
|
43
|
|
|
44 GUI_ID
|
|
|
45 new_gui_id (void)
|
|
|
46 {
|
|
|
47 return (++gui_id_ctr);
|
|
|
48 }
|
|
|
49
|
|
|
50 /* This is like FRAME_MENUBAR_DATA (f), but contains an alist of
|
|
|
51 (id . popup-data) for GCPRO'ing the callbacks of the popup menus
|
|
|
52 and dialog boxes. */
|
|
|
53 static Lisp_Object Vpopup_callbacks;
|
|
|
54
|
|
|
55 void
|
|
|
56 gcpro_popup_callbacks (GUI_ID id, Lisp_Object data)
|
|
|
57 {
|
|
|
58 Vpopup_callbacks = Fcons (Fcons (make_int (id), data), Vpopup_callbacks);
|
|
|
59 }
|
|
|
60
|
|
|
61 void
|
|
|
62 ungcpro_popup_callbacks (GUI_ID id)
|
|
|
63 {
|
|
|
64 Lisp_Object lid = make_int (id);
|
|
|
65 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
|
|
|
66 Vpopup_callbacks = delq_no_quit (this, Vpopup_callbacks);
|
|
|
67 }
|
|
|
68
|
|
|
69 Lisp_Object
|
|
|
70 get_gcpro_popup_callbacks (GUI_ID id)
|
|
|
71 {
|
|
|
72 Lisp_Object lid = make_int (id);
|
|
|
73 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
|
|
|
74
|
|
|
75 if (!NILP (this))
|
|
|
76 {
|
|
|
77 return (XCDR (this));
|
|
|
78 }
|
|
|
79 return (Qnil);
|
|
|
80 }
|
|
|
81
|
|
|
82 void
|
|
|
83 syms_of_gui_gtk (void)
|
|
|
84 {
|
|
|
85 #ifdef HAVE_POPUPS
|
|
563
|
86 DEFSYMBOL (Qmenu_no_selection_hook);
|
|
462
|
87 #endif
|
|
|
88 }
|
|
|
89
|
|
|
90 void
|
|
|
91 vars_of_gui_gtk (void)
|
|
|
92 {
|
|
|
93 staticpro (&Vpopup_callbacks);
|
|
|
94 Vpopup_callbacks = Qnil;
|
|
|
95 #ifdef HAVE_POPUPS
|
|
|
96 popup_up_p = 0;
|
|
|
97
|
|
|
98 #if 0
|
|
|
99 /* This DEFVAR_LISP is just for the benefit of make-docfile. */
|
|
|
100 /* #### misnamed */
|
|
|
101 DEFVAR_LISP ("menu-no-selection-hook", &Vmenu_no_selection_hook /*
|
|
|
102 Function or functions to call when a menu or dialog box is dismissed
|
|
|
103 without a selection having been made.
|
|
|
104 */ );
|
|
|
105 #endif
|
|
|
106
|
|
|
107 Fset (Qmenu_no_selection_hook, Qnil);
|
|
|
108 #endif /* HAVE_POPUPS */
|
|
|
109 }
|
