Mercurial > hg > xemacs-beta
annotate src/gui-gtk.c @ 800:a5954632b187
[xemacs-hg @ 2002-03-31 08:27:14 by ben]
more fixes, first crack at finishing behavior implementation
TODO.ben-mule-21-5: Update.
configure.in: Fix for new error-checking types.
make-mswin-unicode.pl: Don't be fucked up by CRLF. Output code
to force errors when nonintercepted Windows calls issued.
behavior.el, dumped-lisp.el, menubar-items.el: Add support for saving using custom. Load into a dumped XEmacs.
Correct :title to :short-doc in accordance with behavior-defs.el.
Add a submenu under Options for turning on/off behaviors.
cl-macs.el: Properly document `loop'. Fix a minor bug in keymap iteration and
add support for bit-vector iteration.
lisp-mode.el: Rearrange and add items for macro expanding.
menubar-items.el: Document connection between these two functions.
window.el: Port stuff from GNU 21.1.
config.inc.samp, xemacs.mak: Separate out and add new variable for controlling error-checking.
s/windowsnt.h: Use new ERROR_CHECK_ALL; not related to DEBUG_XEMACS.
alloc.c, backtrace.h, buffer.c, buffer.h, bytecode.c, callproc.c, casetab.c, charset.h, chartab.c, cmdloop.c, config.h.in, console-msw.c, console-stream.c, console-tty.c, console.c, console.h, data.c, device-msw.c, device.c, device.h, dired-msw.c, dired.c, dumper.c, editfns.c, eldap.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, file-coding.h, fileio.c, frame-msw.c, frame.c, frame.h, glyphs-gtk.c, glyphs-msw.c, glyphs-shared.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, insdel.c, intl-auto-encap-win32.c, intl-auto-encap-win32.h, intl-encap-win32.c, intl-win32.c, keymap.c, lisp-union.h, lisp.h, lread.c, lrecord.h, lstream.c, lstream.h, macros.c, marker.c, md5.c, menubar-x.c, menubar.c, mule-coding.c, ntproc.c, objects-gtk.c, objects-msw.c, objects-x.c, objects.c, opaque.c, print.c, process-nt.c, process-unix.c, process.c, rangetab.c, redisplay-msw.c, redisplay-output.c, redisplay.c, regex.c, scrollbar-msw.c, select-msw.c, signal.c, specifier.c, specifier.h, symbols.c, sysdep.c, syswindows.h, text.c, text.h, toolbar-msw.c, tooltalk.c, ui-gtk.c, unicode.c, window.c: Redo error-checking macros: ERROR_CHECK_TYPECHECK ->
ERROR_CHECK_TYPES, ERROR_CHECK_CHARBPOS -> ERROR_CHECK_TEXT, add
ERROR_CHECK_DISPLAY, ERROR_CHECK_STRUCTURES. Document these in
config.h.in. Fix code to follow docs. Fix *_checking_assert()
in accordance with new names.
Attempt to fix periodic redisplay crash freeing display line
structures. Add first implementation of sledgehammer redisplay
check.
Redo print_*() to use write_fmt_string(), write_fmt_string_lisp().
Fix bug in md5 handling.
Rename character-to-unicode to char-to-unicode; same for
unicode-to-char{acter}.
Move chartab documentation to `make-char-table'.
Some header cleanup.
Clean up remaining places where nonintercepted Windows calls are
being used.
automated/mule-tests.el: Fix for new Unicode support.
author | ben |
---|---|
date | Sun, 31 Mar 2002 08:30:17 +0000 |
parents | 183866b06e0b |
children | 79c6ff3eef26 |
rev | line source |
---|---|
462 | 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 | |
563 | 85 DEFSYMBOL (Qmenu_no_selection_hook); |
462 | 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 } |