annotate src/event-Xt.c @ 4976:16112448d484

Rename xfree(FOO, TYPE) -> xfree(FOO) -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-04 Ben Wing <ben@xemacs.org> * alloc.c (release_breathing_space): * alloc.c (resize_string): * alloc.c (sweep_lcrecords_1): * alloc.c (SWEEP_FIXED_TYPE_BLOCK_1): * alloc.c (ADDITIONAL_FREE_compiled_function): * alloc.c (compact_string_chars): * alloc.c (ADDITIONAL_FREE_string): * alloc.c (sweep_strings): * alloca.c (xemacs_c_alloca): * alsaplay.c (alsa_play_sound_file): * buffer.c (init_initial_directory): * buffer.h: * buffer.h (BUFFER_FREE): * console-stream.c (stream_delete_console): * console-tty.c (free_tty_console_struct): * data.c (Fnumber_to_string): * device-gtk.c (gtk_init_device): * device-gtk.c (free_gtk_device_struct): * device-gtk.c (gtk_delete_device): * device-msw.c (mswindows_delete_device): * device-msw.c (msprinter_delete_device): * device-tty.c (free_tty_device_struct): * device-tty.c (tty_delete_device): * device-x.c (x_init_device): * device-x.c (free_x_device_struct): * device-x.c (x_delete_device): * dialog-msw.c (handle_directory_dialog_box): * dialog-x.c (dbox_descriptor_to_widget_value): * dired-msw.c (Fmswindows_insert_directory): * dired.c (free_user_cache): * dired.c (user_name_completion_unwind): * doc.c (unparesseuxify_doc_string): * doc.c (Fsubstitute_command_keys): * doprnt.c (emacs_doprnt_1): * dumper.c (pdump_load_finish): * dumper.c (pdump_file_free): * dumper.c (pdump_file_unmap): * dynarr.c: * dynarr.c (Dynarr_free): * editfns.c (uncache_home_directory): * editfns.c (Fset_time_zone_rule): * elhash.c: * elhash.c (pdump_reorganize_hash_table): * elhash.c (maphash_unwind): * emacs.c (make_arg_list_1): * emacs.c (free_argc_argv): * emacs.c (sort_args): * emacs.c (Frunning_temacs_p): * emodules.c (attempt_module_delete): * eval.c (free_pointer): * event-Xt.c (unselect_filedesc): * event-Xt.c (emacs_Xt_select_process): * event-gtk.c (unselect_filedesc): * event-gtk.c (dragndrop_data_received): * event-msw.c (winsock_closer): * event-msw.c (mswindows_dde_callback): * event-msw.c (mswindows_wnd_proc): * event-stream.c (finalize_command_builder): * event-stream.c (free_command_builder): * extents.c (free_gap_array): * extents.c (free_extent_list): * extents.c (free_soe): * extents.c (extent_fragment_delete): * extents.c (extent_priority_sort_function): * file-coding.c (make_coding_system_1): * file-coding.c (coding_finalizer): * file-coding.c (set_coding_stream_coding_system): * file-coding.c (chain_finalize_coding_stream_1): * file-coding.c (chain_finalize): * file-coding.c (free_detection_state): * file-coding.c (coding_category_symbol_to_id): * fileio.c: * fileio.c (Ffile_name_directory): * fileio.c (if): * fileio.c (Ffile_symlink_p): * filelock.c (FREE_LOCK_INFO): * filelock.c (current_lock_owner): * font-mgr.c (Ffc_name_unparse): * font-mgr.c (Ffc_pattern_duplicate): * frame-gtk.c (gtk_delete_frame): * frame-msw.c (mswindows_delete_frame): * frame-msw.c (msprinter_delete_frame): * frame-x.c (x_cde_destroy_callback): * frame-x.c (Fcde_start_drag_internal): * frame-x.c (x_cde_transfer_callback): * frame-x.c (x_delete_frame): * frame.c (update_frame_title): * frame.c (Fset_frame_pointer): * gc.c (register_for_finalization): * gccache-gtk.c (free_gc_cache): * gccache-gtk.c (gc_cache_lookup): * gccache-x.c (free_gc_cache): * gccache-x.c (gc_cache_lookup): * glyphs-eimage.c: * glyphs-eimage.c (jpeg_instantiate_unwind): * glyphs-eimage.c (gif_instantiate_unwind): * glyphs-eimage.c (png_instantiate_unwind): * glyphs-eimage.c (png_instantiate): * glyphs-eimage.c (tiff_instantiate_unwind): * glyphs-gtk.c (convert_EImage_to_GDKImage): * glyphs-gtk.c (gtk_finalize_image_instance): * glyphs-gtk.c (gtk_init_image_instance_from_eimage): * glyphs-gtk.c (gtk_xpm_instantiate): * glyphs-msw.c (convert_EImage_to_DIBitmap): * glyphs-msw.c (mswindows_init_image_instance_from_eimage): * glyphs-msw.c (mswindows_initialize_image_instance_mask): * glyphs-msw.c (xpm_to_eimage): * glyphs-msw.c (mswindows_xpm_instantiate): * glyphs-msw.c (xbm_create_bitmap_from_data): * glyphs-msw.c (mswindows_finalize_image_instance): * glyphs-x.c (convert_EImage_to_XImage): * glyphs-x.c (x_finalize_image_instance): * glyphs-x.c (x_init_image_instance_from_eimage): * glyphs-x.c (x_xpm_instantiate): * gui-x.c (free_popup_widget_value_tree): * hash.c (free_hash_table): * hash.c (grow_hash_table): * hash.c (pregrow_hash_table_if_necessary): * imgproc.c (build_EImage_quantable): * insdel.c (uninit_buffer_text): * intl-win32.c (convert_multibyte_to_internal_malloc): * intl.c: * intl.c (Fset_current_locale): * keymap.c: * keymap.c (where_is_recursive_mapper): * keymap.c (where_is_internal): * lisp.h: * lisp.h (xfree): * lstream.c (Lstream_close): * lstream.c (resizing_buffer_closer): * mule-coding.c: * mule-coding.c (iso2022_finalize_detection_state): * nt.c: * nt.c (mswindows_get_long_filename): * nt.c (nt_get_resource): * nt.c (init_mswindows_environment): * nt.c (get_cached_volume_information): * nt.c (mswindows_opendir): * nt.c (mswindows_closedir): * nt.c (mswindows_readdir): * nt.c (mswindows_stat): * nt.c (mswindows_getdcwd): * nt.c (Fmswindows_long_file_name): * ntplay.c (nt_play_sound_file): * ntplay.c (play_sound_data_1): * number-gmp.c (gmp_free): * number-gmp.c (init_number_gmp): * number-mp.c (bignum_to_string): * number-mp.c (BIGNUM_TO_TYPE): * number.c (bignum_print): * number.c (bignum_convfree): * number.c (ratio_print): * number.c (bigfloat_print): * number.c (bigfloat_finalize): * objects-gtk.c (gtk_finalize_color_instance): * objects-gtk.c (gtk_finalize_font_instance): * objects-msw.c (mswindows_finalize_color_instance): * objects-msw.c (mswindows_finalize_font_instance): * objects-tty.c (tty_finalize_color_instance): * objects-tty.c (tty_finalize_font_instance): * objects-tty.c (tty_font_list): * objects-x.c (x_finalize_color_instance): * objects-x.c (x_finalize_font_instance): * process.c: * process.c (finalize_process): * realpath.c: * redisplay.c (add_propagation_runes): * regex.c: * regex.c (xfree): * regex.c (REGEX_FREE_STACK): * regex.c (FREE_STACK_RETURN): * regex.c (regex_compile): * regex.c (regexec): * regex.c (regfree): * scrollbar-gtk.c (gtk_free_scrollbar_instance): * scrollbar-gtk.c (gtk_release_scrollbar_instance): * scrollbar-msw.c (mswindows_free_scrollbar_instance): * scrollbar-msw.c (unshow_that_mofo): * scrollbar-x.c (x_free_scrollbar_instance): * scrollbar-x.c (x_release_scrollbar_instance): * select-gtk.c (emacs_gtk_selection_handle): * select-msw.c (mswindows_own_selection): * select-x.c: * select-x.c (x_handle_selection_request): * select-x.c (unexpect_property_change): * select-x.c (x_handle_property_notify): * select-x.c (receive_incremental_selection): * select-x.c (x_get_window_property_as_lisp_data): * select-x.c (Fx_get_cutbuffer_internal): * specifier.c (finalize_specifier): * syntax.c (uninit_buffer_syntax_cache): * sysdep.c (qxe_allocating_getcwd): * sysdep.c (qxe_lstat): * sysdep.c (copy_in_passwd): * sysdep.c (qxe_ctime): * sysdep.c (closedir): * sysdep.c (DIRSIZ): * termcap.c (tgetent): * termcap.c (tprint): * tests.c (Ftest_data_format_conversion): * text.c (new_dfc_convert_copy_data): * text.h (eifree): * text.h (eito_alloca): * text.h (eito_external): * toolbar-msw.c (mswindows_output_toolbar): * ui-gtk.c (CONVERT_RETVAL): * ui-gtk.c (__allocate_object_storage): * unicode.c (free_from_unicode_table): * unicode.c (free_to_unicode_table): * unicode.c (free_charset_unicode_tables): * win32.c (mswindows_read_link_1): Rename: xfree(VAL, TYPE)->xfree(VAL) Command used: gr 'xfree *\((.*),.*\);' 'xfree (\1);' *.[ch] Followed by grepping for 'xfree.*,' and fixing anything left. Rationale: Having to specify the TYPE argument is annoying and error-prone. It was originally put in to work around warnings due to strict aliasing but years and years ago I rewrote it in a way that doesn't use the TYPE argument at all and no one has complained since then. (And anyway, XEmacs is far from ever being in compliance with strict aliasing and would require far-reaching changes to get that way.)
author Ben Wing <ben@xemacs.org>
date Thu, 04 Feb 2010 07:28:14 -0600
parents 304aebb79cd3
children a7a237f818d9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* The event_stream interface for X11 with Xt, and/or tty frames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1991-5, 1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1995 Sun Microsystems, Inc.
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
4 Copyright (C) 1996, 2001, 2002, 2003 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 /* Synched up with: Not in FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 #include "blocktype.h"
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
29 #include "charset.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #include "console.h"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
31 #include "device-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
32 #include "elhash.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #include "events.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
34 #include "file-coding.h"
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
35 #include "frame-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
36 #include "glyphs.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
37 #include "lstream.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 #include "process.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include "redisplay.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
40 #include "window.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
41
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
42 #include "console-tty.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
43
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
44 #include "console-x-impl.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
45 #include "objects-x.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
46 #include "../lwlib/lwlib.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
47 #include "EmacsFrame.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
48
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
49 #include "sysproc.h" /* for MAXDESC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #include "systime.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 #include "xintrinsicp.h" /* CoreP.h needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #include <X11/CoreP.h> /* Numerous places access the fields of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 a core widget directly. We could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 use XtGetValues(), but ... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 #include <X11/ShellP.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
58 #if defined (HAVE_XIM) && defined (XIM_MOTIF)
1315
70921960b980 [xemacs-hg @ 2003-02-20 08:19:28 by ben]
ben
parents: 1292
diff changeset
59 #include "xmotif.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #ifdef HAVE_DRAGNDROP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 #include "dragdrop.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
1292
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
66 #ifdef WIN32_ANY
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
67 extern int mswindows_is_blocking;
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
68 #endif
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
69
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
70 /* For Russian C-x processing. */
3171
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
71 Lisp_Object Vx_us_keymap_description;
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
72 Fixnum Vx_us_keymap_first_keycode;
2699
96036853a107 [xemacs-hg @ 2005-03-29 02:58:56 by aidan]
aidan
parents: 2500
diff changeset
73
1094
4f4c898836ab [xemacs-hg @ 2002-11-11 15:34:11 by stephent]
stephent
parents: 1040
diff changeset
74 /* used in glyphs-x.c */
4f4c898836ab [xemacs-hg @ 2002-11-11 15:34:11 by stephent]
stephent
parents: 1040
diff changeset
75 void enqueue_focus_event (Widget wants_it, Lisp_Object frame, int in_p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 static void handle_focus_event_1 (struct frame *f, int in_p);
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
77 static void handle_focus_event_2 (Window w, struct frame *f, int in_p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 static struct event_stream *Xt_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 /* With the new event model, all events go through XtDispatchEvent()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 and are picked up by an event handler that is added to each frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 widget. (This is how it's supposed to be.) In the old method,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 Emacs sucks out events directly from XtNextEvent() and only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 dispatches the events that it doesn't need to deal with. This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 old way has lots of corresponding junk that is no longer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 necessary: lwlib extensions, synthetic XAnyEvents, unnecessary
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 magic events, etc. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 /* The one and only one application context that Emacs uses. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 XtAppContext Xt_app_con;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 /* Do we accept events sent by other clients? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 int x_allow_sendevents;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 #ifdef DEBUG_XEMACS
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 452
diff changeset
97 Fixnum debug_x_events;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 static int process_events_occurred;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 static int tty_events_occurred;
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
102 static Widget widget_with_focus;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 /* Mask of bits indicating the descriptors that we wait for input on */
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
105 extern SELECT_TYPE input_wait_mask, non_fake_input_wait_mask;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
106 extern SELECT_TYPE process_only_mask, tty_only_mask;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
4528
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
108 /* #### This should be String, but G++ 4.3 doesn't apply the const
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
109 specifier the same way for String (typedef'd to char*) and char*. */
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
110 static const char * x_fallback_resources[] =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 /* This file is automatically generated from the app-defaults file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 in ../etc/Emacs.ad. These resources are consulted only if no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 app-defaults file is found at all.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 #include <Emacs.ad.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 static Lisp_Object x_keysym_to_emacs_keysym (KeySym keysym, int simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 void emacs_Xt_mapping_action (Widget w, XEvent *event);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
122 void debug_process_finalization (Lisp_Process *p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 void emacs_Xt_event_handler (Widget wid, XtPointer closure, XEvent *event,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 Boolean *continue_to_dispatch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 static int last_quit_check_signal_tick_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 Lisp_Object Qsans_modifiers;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
130 #define THIS_IS_X
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
131 #include "event-xlike-inc.c"
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
132
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 /* keymap handling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
138 /* See comment near character_to_event(). */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
139 static void
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
140 maybe_define_x_key_as_self_inserting_character (KeySym keysym,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
141 Lisp_Object symbol)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
142 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
143 Lisp_Object character = x_keysym_to_character (keysym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
144
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
145 if (CHARP (character))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
146 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
147 extern Lisp_Object Vcurrent_global_map;
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
148 extern Lisp_Object Qcharacter_of_keysym;
971
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
149 if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
150 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
151 Fput (symbol, Qcharacter_of_keysym, character);
971
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
152 Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
8401dcd2d43a [xemacs-hg @ 2002-08-22 11:34:20 by stephent]
stephent
parents: 960
diff changeset
153 }
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
154 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
155 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
156
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
157 void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
158 x_has_keysym (KeySym keysym, Lisp_Object hash_table, int with_modifiers)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
159 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
160 KeySym upper_lower[2];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
161 int j;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
162
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
163 if (keysym < 0x80) /* Optimize for ASCII keysyms */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
164 return;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
165
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
166 /* If you execute:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
167 xmodmap -e 'keysym NN = scaron'
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
168 and then press (Shift scaron), X11 will return the different
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
169 keysym `Scaron', but `xmodmap -pke' might not even mention `Scaron'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
170 So we "register" both `scaron' and `Scaron'. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
171 #ifdef HAVE_XCONVERTCASE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
172 XConvertCase (keysym, &upper_lower[0], &upper_lower[1]);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
173 #else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
174 upper_lower[0] = upper_lower[1] = keysym;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
175 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
176
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
177 for (j = 0; j < (upper_lower[0] == upper_lower[1] ? 1 : 2); j++)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
178 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
179 Extbyte *name;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
180 keysym = upper_lower[j];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
181
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
182 name = XKeysymToString (keysym);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
183 if (name)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
184 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
185 /* X guarantees NAME to be in the Host Portable Character Encoding */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
186 Lisp_Object sym = x_keysym_to_emacs_keysym (keysym, 0);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
187 Lisp_Object new_value = with_modifiers ? Qt : Qsans_modifiers;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
188 Lisp_Object old_value = Fgethash (sym, hash_table, Qnil);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
189
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
190 if (! EQ (old_value, new_value)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
191 && ! (EQ (old_value, Qsans_modifiers) &&
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
192 EQ (new_value, Qt)))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
193 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
194 maybe_define_x_key_as_self_inserting_character (keysym, sym);
4953
304aebb79cd3 function renamings to track names of char typedefs
Ben Wing <ben@xemacs.org>
parents: 4952
diff changeset
195 Fputhash (build_extstring (name, Qbinary), new_value,
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
196 hash_table);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
197 Fputhash (sym, new_value, hash_table);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
198 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
199 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
200 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
201 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
202
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 x_reset_key_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 KeySym *keysym, *keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 Lisp_Object hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 int key_code_count, keysyms_per_code;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 if (xd->x_keysym_map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 XFree ((char *) xd->x_keysym_map);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 XDisplayKeycodes (display,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 &xd->x_keysym_map_min_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 &xd->x_keysym_map_max_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 key_code_count = xd->x_keysym_map_max_code - xd->x_keysym_map_min_code + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 xd->x_keysym_map =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219 XGetKeyboardMapping (display, xd->x_keysym_map_min_code, key_code_count,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 &xd->x_keysym_map_keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 hash_table = xd->x_keysym_map_hash_table;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 if (HASH_TABLEP (hash_table))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 Fclrhash (hash_table);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 xd->x_keysym_map_hash_table = hash_table =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 make_lisp_hash_table (128, HASH_TABLE_NON_WEAK, HASH_TABLE_EQUAL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 for (keysym = xd->x_keysym_map,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 keysyms_per_code = xd->x_keysym_map_keysyms_per_code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 keysym_end = keysym + (key_code_count * keysyms_per_code);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 keysym < keysym_end;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 keysym += keysyms_per_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 if (keysym[0] == NoSymbol)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
240 x_has_keysym (keysym[0], hash_table, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 for (j = 1; j < keysyms_per_code; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 if (keysym[j] != keysym[0] &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 keysym[j] != NoSymbol)
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
246 x_has_keysym (keysym[j], hash_table, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
251 static const Ascbyte *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 index_to_name (int indice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 switch (indice)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 case ShiftMapIndex: return "ModShift";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 case LockMapIndex: return "ModLock";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 case ControlMapIndex: return "ModControl";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 case Mod1MapIndex: return "Mod1";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 case Mod2MapIndex: return "Mod2";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 case Mod3MapIndex: return "Mod3";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 case Mod4MapIndex: return "Mod4";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 case Mod5MapIndex: return "Mod5";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
268 /* X bogusly doesn't define the interpretations of any bits besides
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
269 ModControl, ModShift, and ModLock; so the Interclient Communication
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
270 Conventions Manual says that we have to bend over backwards to figure
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
271 out what the other modifier bits mean. According to ICCCM:
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
272
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
273 - Any keycode which is assigned ModControl is a "control" key.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
274
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
275 - Any modifier bit which is assigned to a keycode which generates Meta_L
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
276 or Meta_R is the modifier bit meaning "meta". Likewise for Super, Hyper,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
277 etc.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
278
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
279 - Any keypress event which contains ModControl in its state should be
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
280 interpreted as a "control" character.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
281
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
282 - Any keypress event which contains a modifier bit in its state which is
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
283 generated by a keycode whose corresponding keysym is Meta_L or Meta_R
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
284 should be interpreted as a "meta" character. Likewise for Super, Hyper,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
285 etc.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
286
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
287 - It is illegal for a keysym to be associated with more than one modifier
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
288 bit.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
289
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
290 This means that the only thing that emacs can reasonably interpret as a
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
291 "meta" key is a key whose keysym is Meta_L or Meta_R, and which generates
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
292 one of the modifier bits Mod1-Mod5.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
293
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
294 Unfortunately, many keyboards don't have Meta keys in their default
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
295 configuration. So, if there are no Meta keys, but there are "Alt" keys,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
296 emacs will interpret Alt as Meta. If there are both Meta and Alt keys,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
297 then the Meta keys mean "Meta", and the Alt keys mean "Alt" (it used to
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
298 mean "Symbol," but that just confused the hell out of way too many people).
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
299
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
300 This works with the default configurations of the 19 keyboard-types I've
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
301 checked.
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
302
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
303 Emacs detects keyboard configurations which violate the above rules, and
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
304 gives a warning. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 x_reset_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 Display *display = DEVICE_X_DISPLAY (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 int modifier_index, modifier_key, column, mkpm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 int warned_about_overlapping_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 int warned_about_predefined_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 int warned_about_duplicate_modifiers = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 int meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 int hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 int super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 int alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 int mode_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 xd->lock_interpretation = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 if (xd->x_modifier_keymap)
3949
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
324 {
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
325 XFreeModifiermap (xd->x_modifier_keymap);
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
326 /* Set it to NULL in case we receive two MappingModifier events in a
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
327 row, and the second is processed during some CHECK_QUITs within
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
328 x_reset_key_mapping. If that happens, XFreeModifierMap will be
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
329 called twice on the same map, and we crash. */
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
330 xd->x_modifier_keymap = NULL;
33b9323388c5 [xemacs-hg @ 2007-05-12 10:59:15 by aidan]
aidan
parents: 3171
diff changeset
331 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 x_reset_key_mapping (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 xd->x_modifier_keymap = XGetModifierMapping (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 /* Boy, I really wish C had local functions...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
340 #define modwarn(name,old,other) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
341 warn_when_safe (Qkey_mapping, Qwarning, \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
342 "XEmacs: %s (0x%x) generates %s, which is generated by %s.", \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
343 name, code, index_to_name (old), other), \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 warned_about_overlapping_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
346 #define modbarf(name,other) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
347 warn_when_safe (Qkey_mapping, Qwarning, \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
348 "XEmacs: %s (0x%x) generates %s, which is nonsensical.", \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
349 name, code, other), \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
352 #define check_modifier(name,mask) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
353 if ((1<<modifier_index) != mask) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
354 warn_when_safe (Qkey_mapping, Qwarning, \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
355 "XEmacs: %s (0x%x) generates %s, which is nonsensical.", \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
356 name, code, index_to_name (modifier_index)), \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 warned_about_predefined_modifiers = 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
359 #define store_modifier(name,old) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
360 if (old && old != modifier_index) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
361 warn_when_safe (Qkey_mapping, Qwarning, \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
362 "XEmacs: %s (0x%x) generates both %s and %s, which is nonsensical.", \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
363 name, code, index_to_name (old), \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
364 index_to_name (modifier_index)), \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
365 warned_about_duplicate_modifiers = 1; \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
366 if (modifier_index == ShiftMapIndex) modbarf (name,"ModShift"); \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
367 else if (modifier_index == LockMapIndex) modbarf (name,"ModLock"); \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 else if (modifier_index == ControlMapIndex) modbarf (name,"ModControl"); \
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
369 else if (sym == XK_Mode_switch) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
370 mode_bit = modifier_index; /* Mode_switch is special, see below... */ \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
371 else if (modifier_index == meta_bit && old != meta_bit) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
372 modwarn (name, meta_bit, "Meta"); \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
373 else if (modifier_index == super_bit && old != super_bit) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
374 modwarn (name, super_bit, "Super"); \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
375 else if (modifier_index == hyper_bit && old != hyper_bit) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
376 modwarn (name, hyper_bit, "Hyper"); \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
377 else if (modifier_index == alt_bit && old != alt_bit) \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
378 modwarn (name, alt_bit, "Alt"); \
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
379 else \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 old = modifier_index;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 mkpm = xd->x_modifier_keymap->max_keypermod;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 for (modifier_index = 0; modifier_index < 8; modifier_index++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 for (modifier_key = 0; modifier_key < mkpm; modifier_key++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 KeySym last_sym = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 for (column = 0; column < 4; column += 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 KeyCode code = xd->x_modifier_keymap->modifiermap[modifier_index * mkpm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 + modifier_key];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 KeySym sym = (code ? XKeycodeToKeysym (display, code, column) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 if (sym == last_sym) continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 last_sym = sym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 switch (sym) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 case XK_Mode_switch:store_modifier ("Mode_switch", mode_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 case XK_Meta_L: store_modifier ("Meta_L", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 case XK_Meta_R: store_modifier ("Meta_R", meta_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 case XK_Super_L: store_modifier ("Super_L", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 case XK_Super_R: store_modifier ("Super_R", super_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 case XK_Hyper_L: store_modifier ("Hyper_L", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 case XK_Hyper_R: store_modifier ("Hyper_R", hyper_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 case XK_Alt_L: store_modifier ("Alt_L", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 case XK_Alt_R: store_modifier ("Alt_R", alt_bit); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 case XK_Control_L: check_modifier ("Control_L", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 case XK_Control_R: check_modifier ("Control_R", ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 case XK_Shift_L: check_modifier ("Shift_L", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 case XK_Shift_R: check_modifier ("Shift_R", ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 case XK_Shift_Lock: check_modifier ("Shift_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 xd->lock_interpretation = XK_Shift_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 case XK_Caps_Lock: check_modifier ("Caps_Lock", LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 xd->lock_interpretation = XK_Caps_Lock; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 /* It probably doesn't make any sense for a modifier bit to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 assigned to a key that is not one of the above, but OpenWindows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 assigns modifier bits to a couple of random function keys for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 no reason that I can discern, so printing a warning here would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 be annoying. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 #undef store_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 #undef check_modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 #undef modwarn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 #undef modbarf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 /* If there was no Meta key, then try using the Alt key instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 If there is both a Meta key and an Alt key, then the Alt key
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 is not disturbed and remains an Alt key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 if (! meta_bit && alt_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 meta_bit = alt_bit, alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 /* mode_bit overrides everything, since it's processed down inside of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 XLookupString() instead of by us. If Meta and Mode_switch both
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 generate the same modifier bit (which is an error), then we don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 interpret that bit as Meta, because we can't make XLookupString()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 not interpret it as Mode_switch; and interpreting it as both would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 be totally wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 if (mode_bit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
438 const Ascbyte *warn = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 if (mode_bit == meta_bit) warn = "Meta", meta_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 else if (mode_bit == hyper_bit) warn = "Hyper", hyper_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 else if (mode_bit == super_bit) warn = "Super", super_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 else if (mode_bit == alt_bit) warn = "Alt", alt_bit = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 if (warn)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 warn_when_safe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 (Qkey_mapping, Qwarning,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 "XEmacs: %s is being used for both Mode_switch and %s.",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 index_to_name (mode_bit), warn),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 warned_about_overlapping_modifiers = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 #undef index_to_name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 xd->MetaMask = (meta_bit ? (1 << meta_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 xd->HyperMask = (hyper_bit ? (1 << hyper_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 xd->SuperMask = (super_bit ? (1 << super_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 xd->AltMask = (alt_bit ? (1 << alt_bit) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 xd->ModeMask = (mode_bit ? (1 << mode_bit) : 0); /* unused */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 if (warned_about_overlapping_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 " Two distinct modifier keys (such as Meta and Hyper) cannot generate\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 " the same modifier bit, because Emacs won't be able to tell which\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 " modifier was actually held down when some other key is pressed. It\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 " won't be able to tell Meta-x and Hyper-x apart, for example. Change\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 " one of these keys to use some other modifier bit. If you intend for\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 " these keys to have the same behavior, then change them to have the\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 " same keysym as well as the same modifier bit.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 if (warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 " The semantics of the modifier bits ModShift, ModLock, and ModControl\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 " are predefined. It does not make sense to assign ModControl to any\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 " keysym other than Control_L or Control_R, or to assign any modifier\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 " bits to the \"control\" keysyms other than ModControl. You can't\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 " turn a \"control\" key into a \"meta\" key (or vice versa) by simply\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 " assigning the key a different modifier bit. You must also make that\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 " key generate an appropriate keysym (Control_L, Meta_L, etc).");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 /* No need to say anything more for warned_about_duplicate_modifiers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 if (warned_about_overlapping_modifiers || warned_about_predefined_modifiers)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 warn_when_safe (Qkey_mapping, Qwarning, "\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 " The meanings of the modifier bits Mod1 through Mod5 are determined\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 " by the keysyms used to control those bits. Mod1 does NOT always\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 " mean Meta, although some non-ICCCM-compliant programs assume that.");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 x_init_modifier_mapping (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 xd->x_keysym_map_hash_table = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 xd->x_keysym_map = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 xd->x_modifier_keymap = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 x_reset_modifier_mapping (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 x_key_is_modifier_p (KeyCode keycode, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 KeySym *syms;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 syms = &xd->x_keysym_map [(keycode - xd->x_keysym_map_min_code) *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 if (IsModifierKey (syms [i]) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 syms [i] == XK_Mode_switch) /* why doesn't IsModifierKey count this? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 /* key-handling code is always ugly. It just ends up working out
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 that way.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 Here are some pointers:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 -- DOWN_MASK indicates which modifiers should be treated as "down"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 when the corresponding upstroke happens. It gets reset for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 a particular modifier when that modifier goes up, and reset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 for all modifiers when a non-modifier key is pressed. Example:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 I press Control-A-Shift and then release Control-A-Shift.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 I want the Shift key to be sticky but not the Control key.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 -- LAST_DOWNKEY and RELEASE_TIME are used to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 auto-repeat -- see below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 -- If a modifier key is sticky, I can unstick it by pressing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 the modifier key again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 x_handle_sticky_modifiers (XEvent *ev, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 struct x_device *xd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 KeyCode keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 int type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 if (!modifier_keys_are_sticky) /* Optimize for non-sticky modifiers */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 keycode = ev->xkey.keycode;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 type = ev->type;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 if (keycode < xd->x_keysym_map_min_code ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 keycode > xd->x_keysym_map_max_code)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 if (! ((type == KeyPress || type == KeyRelease) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 x_key_is_modifier_p (keycode, d)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 { /* Not a modifier key */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 Bool key_event_p = (type == KeyPress || type == KeyRelease);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
562 if (type == ButtonPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
563 || (type == KeyPress
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
564 && ((xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
565 && ((keycode != xd->last_downkey
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
566 || ev->xkey.time != xd->release_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
567 || (INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
568 && ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
569 > (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
570 + XINT (Vmodifier_keys_sticky_time))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 }
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
575 else if (type == KeyPress && !xd->last_downkey)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
576 xd->last_downkey = keycode;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
577
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 if (type == KeyPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 if (type == KeyPress || type == ButtonPress)
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
581 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
582 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
583 xd->modifier_release_time = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
584 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 ev->xkey.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 ev->xbutton.state |= xd->need_to_add_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 if (type == KeyRelease && keycode == xd->last_downkey)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 /* If I hold press-and-release the Control key and then press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 and hold down the right arrow, I want it to auto-repeat
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 Control-Right. On the other hand, if I do the same but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 manually press the Right arrow a bunch of times, I want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 to see one Control-Right and then a bunch of Rights.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 This means that we need to distinguish between an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 auto-repeated key and a key pressed and released a bunch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 of times.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 Naturally, the designers of the X spec didn't see fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 to provide an obvious way to distinguish these cases.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 So we assume that if the release and the next press
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 occur at the same time, the key was actually auto-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 repeated. Under Open-Windows, at least, this works. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
606 xd->modifier_release_time = xd->release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
607 = key_event_p ? ev->xkey.time : ev->xbutton.time;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 else /* Modifier key pressed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 KeySym *syms = &xd->x_keysym_map [(keycode - xd->x_keysym_map_min_code) *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 xd->x_keysym_map_keysyms_per_code];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 /* If a non-modifier key was pressed in the middle of a bunch
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 of modifiers, then it unsticks all the modifiers that were
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 previously pressed. We cannot unstick the modifiers until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 now because we want to check for auto-repeat of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 non-modifier key. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 if (xd->last_downkey)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
627 if (xd->modifier_release_time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
628 && INTP (Vmodifier_keys_sticky_time)
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
629 && (ev->xkey.time
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
630 > xd->modifier_release_time + XINT (Vmodifier_keys_sticky_time)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
631 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
632 xd->need_to_add_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
633 xd->down_mask = 0;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
634 }
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
635
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 #define FROB(mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 if (type == KeyPress) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 /* If modifier key is already sticky, \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 then unstick it. Note that we do \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 not test down_mask to deal with the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 unlikely but possible case that the \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 modifier key auto-repeats. */ \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 if (xd->need_to_add_mask & mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 xd->need_to_add_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 xd->down_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 else \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 if (xd->down_mask & mask) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 xd->down_mask &= ~mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 xd->need_to_add_mask |= mask; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 } \
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
661 xd->modifier_release_time = ev->xkey.time; \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 switch (syms[i])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 case XK_Control_L: case XK_Control_R: FROB (ControlMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 case XK_Shift_L: case XK_Shift_R: FROB (ShiftMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 case XK_Meta_L: case XK_Meta_R: FROB (xd->MetaMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 case XK_Super_L: case XK_Super_R: FROB (xd->SuperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 case XK_Hyper_L: case XK_Hyper_R: FROB (xd->HyperMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 case XK_Alt_L: case XK_Alt_R: FROB (xd->AltMask); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 #undef FROB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 clear_sticky_modifiers (struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 xd->need_to_add_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 xd->last_downkey = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 xd->release_time = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 xd->down_mask = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 keysym_obeys_caps_lock_p (KeySym sym, struct device *d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 /* Eeeeevil hack. Don't apply Caps_Lock to things that aren't alphabetic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 characters, where "alphabetic" means something more than simply A-Z.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 That is, if Caps_Lock is down, typing ESC doesn't produce Shift-ESC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 But if shift-lock is down, then it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 if (xd->lock_interpretation == XK_Shift_Lock)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 ((sym >= XK_A) && (sym <= XK_Z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 ((sym >= XK_a) && (sym <= XK_z)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 ((sym >= XK_Agrave) && (sym <= XK_Odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 ((sym >= XK_agrave) && (sym <= XK_odiaeresis)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 ((sym >= XK_Ooblique) && (sym <= XK_Thorn)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 ((sym >= XK_oslash) && (sym <= XK_thorn));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 /* called from EmacsFrame.c (actually from Xt itself) when a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 MappingNotify event is received. In its infinite wisdom, Xt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 decided that Xt event handlers never get MappingNotify events.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 O'Reilly Xt Programming Manual 9.1.2 says:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 MappingNotify is automatically handled by Xt, so it isn't passed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 to event handlers and you don't need to worry about it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 Of course, we DO worry about it, so we need a special translation. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
719 emacs_Xt_mapping_action (Widget UNUSED (w), XEvent *event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 /* nyet. Now this is handled by Xt. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 XRefreshKeyboardMapping (&event->xmapping);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 /* xmodmap generates about a billion MappingKeyboard events, followed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 by a single MappingModifier event, so it might be worthwhile to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 take extra MappingKeyboard events out of the queue before requesting
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 the current keymap from the server. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 switch (event->xmapping.request)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 case MappingKeyboard: x_reset_key_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 case MappingModifier: x_reset_modifier_mapping (d); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 case MappingPointer: /* Do something here? */ break;
2500
3d8143fc88e1 [xemacs-hg @ 2005-01-24 23:33:30 by ben]
ben
parents: 2367
diff changeset
738 default: ABORT();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 /* X to Emacs event conversion */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 x_keysym_to_emacs_keysym (KeySym keysym, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
750 Extbyte *name;
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
751 DECLARE_EISTRING(einame);
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
752
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 if (keysym >= XK_exclam && keysym <= XK_asciitilde)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 /* We must assume that the X keysym numbers for the ASCII graphic
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 characters are the same as their ASCII codes. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 return make_char (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 switch (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 /* These would be handled correctly by the default case, but by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 special-casing them here we don't garbage a string or call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 intern(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 case XK_BackSpace: return QKbackspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 case XK_Tab: return QKtab;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 case XK_Linefeed: return QKlinefeed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 case XK_Return: return QKreturn;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 case XK_Escape: return QKescape;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 case XK_space: return QKspace;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 case XK_Delete: return QKdelete;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 case 0: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 if (simple_p) return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 name = XKeysymToString (keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 if (!name || !name[0])
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 /* This happens if there is a mismatch between the Xlib of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 XEmacs and the Xlib of the X server...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 Let's hard-code in some knowledge of common keysyms introduced
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 in recent X11 releases. Snarfed from X11/keysymdef.h
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 Probably we should add some stuff here for X11R6. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 switch (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 case 0xFF95: return KEYSYM ("kp-home");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 case 0xFF96: return KEYSYM ("kp-left");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 case 0xFF97: return KEYSYM ("kp-up");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 case 0xFF98: return KEYSYM ("kp-right");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 case 0xFF99: return KEYSYM ("kp-down");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 case 0xFF9A: return KEYSYM ("kp-prior");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 case 0xFF9B: return KEYSYM ("kp-next");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 case 0xFF9C: return KEYSYM ("kp-end");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 case 0xFF9D: return KEYSYM ("kp-begin");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 case 0xFF9E: return KEYSYM ("kp-insert");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 case 0xFF9F: return KEYSYM ("kp-delete");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 case 0x1005FF10: return KEYSYM ("SunF36"); /* labeled F11 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 case 0x1005FF11: return KEYSYM ("SunF37"); /* labeled F12 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
800 Ascbyte buf [64];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 sprintf (buf, "unknown-keysym-0x%X", (int) keysym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 return KEYSYM (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 }
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
805
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 /* If it's got a one-character name, that's good enough. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 if (!name[1])
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
808 return make_char ((Ichar)name[0]);
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
809
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
810 /* In theory the Host Portable Character Set is just ASCII, but
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
811 trusting X11 implementors to get that right is likely to lead to
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
812 tears. */
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
813 eicpy_ext(einame, name, Qbinary);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 /* If it's in the "Keyboard" character set, downcase it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 The case of those keysyms is too totally random for us to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 force anyone to remember them.
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
818 The case of the other character sets is significant, however. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 if ((((unsigned int) keysym) & (~0x1FF)) == ((unsigned int) 0xFE00))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 {
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
821 Ibyte *iname;
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
822 eilwr(einame);
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
823
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
824 for (iname = eidata(einame); *iname != '\0';)
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
825 {
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
826 if (*iname == '_')
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
827 {
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
828 *iname = '-';
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
829 }
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
830 INC_IBYTEPTR(iname);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 }
2837
c1ec282bb160 [xemacs-hg @ 2005-06-29 09:47:33 by crestani]
crestani
parents: 2828
diff changeset
833 return KEYSYM ((const CIbyte *) eidata (einame));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 x_to_emacs_keysym (XKeyPressedEvent *event, int simple_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 /* simple_p means don't try too hard (ASCII only) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 KeySym keysym = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 #ifdef HAVE_XIM
3072
4c038e89d563 [xemacs-hg @ 2005-11-16 07:22:37 by stephent]
stephent
parents: 2956
diff changeset
844 int len = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
845 /* Some implementations of XmbLookupString don't return
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
846 XBufferOverflow correctly, so increase the size of the xim input
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
847 buffer from 64 to the more reasonable size 513, as Emacs has done.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
848 From Kenichi Handa. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
849 char buffer[513];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 char *bufptr = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 int bufsiz = sizeof (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 XIC xic = FRAME_X_XIC (x_any_window_to_frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 (get_device_from_display (event->display),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 event->window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 /* We use XLookupString if we're not using XIM, or are using
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 XIM_XLIB but input context creation failed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 #if ! (defined (HAVE_XIM) && defined (XIM_MOTIF))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 #if defined (HAVE_XIM) && defined (XIM_XLIB)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 if (!xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 #endif /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 /* Apparently it's necessary to specify a dummy here (rather
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 than passing in 0) to avoid crashes on German IRIX */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 char dummy[256];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 XLookupString (event, dummy, 200, &keysym, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 #endif /* ! XIM_MOTIF */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 Lookup_String: /* Come-From XBufferOverflow */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 #ifdef XIM_MOTIF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 len = XmImMbLookupString (XtWindowToWidget (event->display, event->window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 event, bufptr, bufsiz, &keysym, &status);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 #else /* XIM_XLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 if (xic)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 len = XmbLookupString (xic, event, bufptr, bufsiz, &keysym, &status);
1494
210683f31426 [xemacs-hg @ 2003-05-22 06:09:03 by stephent]
stephent
parents: 1318
diff changeset
884 #endif /* XIM_MOTIF */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
887 if (debug_x_events > 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 stderr_out (" status=");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 #define print_status_when(S) if (status == S) stderr_out (#S)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 print_status_when (XLookupKeySym);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 print_status_when (XLookupBoth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 print_status_when (XLookupChars);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 print_status_when (XLookupNone);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 print_status_when (XBufferOverflow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 if (status == XLookupKeySym || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 stderr_out (" keysym=%s", XKeysymToString (keysym));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 if (status == XLookupChars || status == XLookupBoth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 {
3072
4c038e89d563 [xemacs-hg @ 2005-11-16 07:22:37 by stephent]
stephent
parents: 2956
diff changeset
901 if (len > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 stderr_out (" chars=\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 for (j=0; j<len; j++)
3142
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
906 {
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
907 if (040 <= bufptr[j] && bufptr[j] >= 0177)
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
908 {
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
909 stderr_out ("%c", bufptr[j]);
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
910 }
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
911 else
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
912 {
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
913 stderr_out ("\\%o", (unsigned)(bufptr[j]));
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
914 }
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
915 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 stderr_out ("\"");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 else if (bufptr[0] <= 32 || bufptr[0] >= 127)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 stderr_out (" char=0x%x", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 stderr_out (" char=%c", bufptr[0]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 stderr_out ("\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 switch (status)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 case XLookupKeySym:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 case XLookupBoth:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 return (IsModifierKey (keysym) || keysym == XK_Mode_switch )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 ? Qnil : x_keysym_to_emacs_keysym (keysym, simple_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 case XLookupChars:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 /* Generate multiple emacs events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 struct device *d = get_device_from_display (event->display);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
938 Ichar ch;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 Lisp_Object instream, fb_instream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 Lstream *istr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 struct gcpro gcpro1, gcpro2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
943 fb_instream = make_fixed_buffer_input_stream (bufptr, len);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
944
3142
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
945 /* [[ Use get_coding_system_for_text_file
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
946 (Vcomposed_input_coding_system, 0) ]]
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
947
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
948 Nope. If it is possible for the X libraries to have multiple IM
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
949 connections on different DISPLAYs active at once, this should be
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
950 a console-specific variable (like a TTY's coding system) but I've
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
951 seen no evidence that that is possible. Aidan Kehoe,
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
952 2005-12-17. */
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
953
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 instream =
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
955 make_coding_input_stream
3142
77f5a5135b3a [xemacs-hg @ 2005-12-17 19:46:57 by aidan]
aidan
parents: 3094
diff changeset
956 (XLSTREAM (fb_instream), Qkeyboard, CODING_DECODE, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 istr = XLSTREAM (instream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 GCPRO2 (instream, fb_instream);
867
804517e16990 [xemacs-hg @ 2002-06-05 09:54:39 by ben]
ben
parents: 863
diff changeset
961 while ((ch = Lstream_get_ichar (istr)) != EOF)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
964 Lisp_Event *ev = XEVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 ev->channel = DEVICE_CONSOLE (d);
4780
2fd201d73a92 Call character_to_event on characters received from XIM, event-Xt.c
Aidan Kehoe <kehoea@parhasard.net>
parents: 4528
diff changeset
966 XSET_EVENT_TYPE (emacs_event, key_press_event);
2fd201d73a92 Call character_to_event on characters received from XIM, event-Xt.c
Aidan Kehoe <kehoea@parhasard.net>
parents: 4528
diff changeset
967 /* Make sure space and linefeed and so on get the proper
2fd201d73a92 Call character_to_event on characters received from XIM, event-Xt.c
Aidan Kehoe <kehoea@parhasard.net>
parents: 4528
diff changeset
968 keysyms. */
2fd201d73a92 Call character_to_event on characters received from XIM, event-Xt.c
Aidan Kehoe <kehoea@parhasard.net>
parents: 4528
diff changeset
969 character_to_event (ch, ev, XCONSOLE (ev->channel),
2fd201d73a92 Call character_to_event on characters received from XIM, event-Xt.c
Aidan Kehoe <kehoea@parhasard.net>
parents: 4528
diff changeset
970 latin_1_maps_to_itself, 0);
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
971 ev->timestamp = event->time;
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
972 enqueue_dispatch_event (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 Lstream_close (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 Lstream_delete (istr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 Lstream_delete (XLSTREAM (fb_instream));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 case XLookupNone: return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 case XBufferOverflow:
2367
ecf1ebac70d8 [xemacs-hg @ 2004-11-04 23:05:23 by ben]
ben
parents: 2286
diff changeset
982 /* !!#### needs work */
851
e7ee5f8bde58 [xemacs-hg @ 2002-05-23 11:46:08 by ben]
ben
parents: 826
diff changeset
983 bufptr = (char *) ALLOCA (len+1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 bufsiz = len+1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 goto Lookup_String;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 }
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
987 return Qnil; /* not (usually) reached */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 #endif /* HAVE_XIM */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 set_last_server_timestamp (struct device *d, XEvent *x_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 Time t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 case KeyRelease: t = x_event->xkey.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000 case ButtonRelease: t = x_event->xbutton.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 case LeaveNotify: t = x_event->xcrossing.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 case MotionNotify: t = x_event->xmotion.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 case PropertyNotify: t = x_event->xproperty.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 case SelectionClear: t = x_event->xselectionclear.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 case SelectionRequest: t = x_event->xselectionrequest.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 case SelectionNotify: t = x_event->xselection.time; break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 default: return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 DEVICE_X_LAST_SERVER_TIMESTAMP (d) = t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1014 x_event_to_emacs_event (XEvent *x_event, Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 Display *display = x_event->xany.display;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 struct device *d = get_device_from_display (display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 struct x_device *xd = DEVICE_X_DATA (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 if (DEVICE_X_BEING_DELETED (d))
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1021 {
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1022 /* [[ Uh, is this 0 correct? ]]
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1023
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1024 Yup--it means emacs_Xt_event_handler, the only place that calls
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1025 this, doesn't queue the emacs_event dispatch, instead immediately
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1026 deallocating it. */
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1027 return 0;
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1028 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 set_last_server_timestamp (d, x_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 case KeyRelease:
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1035 {
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1036 x_handle_sticky_modifiers (x_event, d);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1037 return 0;
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1038 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 case ButtonPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 case ButtonRelease:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1043 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 int shift_p, lock_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 Bool key_event_p = (x_event->type == KeyPress);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 unsigned int *state =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 key_event_p ? &x_event->xkey.state : &x_event->xbutton.state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 /* If this is a synthetic KeyPress or Button event, and the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 has expressed a disinterest in this security hole, then drop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 it on the floor. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 if ((key_event_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 ? x_event->xkey.send_event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 : x_event->xbutton.send_event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 /* ben: events get sent to an ExternalShell using XSendEvent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 This is not a perfect solution. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 && !FRAME_X_EXTERNAL_WINDOW_P
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 (x_any_window_to_frame (d, x_event->xany.window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 && !x_allow_sendevents)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 DEVICE_X_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 DEVICE_X_GLOBAL_MOUSE_TIMESTAMP (d) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066 key_event_p ? x_event->xkey.time : x_event->xbutton.time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 x_handle_sticky_modifiers (x_event, d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 if (*state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 if (*state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 if (*state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1073 if (*state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1074 if (*state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1075 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1076 int numero_de_botao = -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1077
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1078 if (!key_event_p)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1079 numero_de_botao = x_event->xbutton.button;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1080
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1081 /* the button gets noted either in the button or the modifiers
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1082 field, but not both. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1083 if (numero_de_botao != 1 && (*state & Button1Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1084 modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1085 if (numero_de_botao != 2 && (*state & Button2Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1086 modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1087 if (numero_de_botao != 3 && (*state & Button3Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088 modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1089 if (numero_de_botao != 4 && (*state & Button4Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1090 modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1091 if (numero_de_botao != 5 && (*state & Button5Mask))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1092 modifiers |= XEMACS_MOD_BUTTON5;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1093 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 /* Ignore the Caps_Lock key if:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 - any other modifiers are down, so that Caps_Lock doesn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 turn C-x into C-X, which would suck.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 - the event was a mouse event. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 if (modifiers || ! key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 *state &= (~LockMask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 shift_p = *state & ShiftMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 lock_p = *state & LockMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 if (shift_p || lock_p)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1106 modifiers |= XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 if (key_event_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 Lisp_Object keysym;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 XKeyEvent *ev = &x_event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1112 /* This used to compute the frame from the given X window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 store it here, but we really don't care about the frame. */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1114 SET_EVENT_CHANNEL (emacs_event, DEVICE_CONSOLE (d));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1115 keysym = x_to_emacs_keysym (&x_event->xkey, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 /* If the emacs keysym is nil, then that means that the X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 keysym was either a Modifier or NoSymbol, which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 probably means that we're in the midst of reading a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 Multi_key sequence, or a "dead" key prefix, or XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 input. Ignore it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 if (NILP (keysym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124
3171
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1125 /* If we have the map from keycodes to the US layout for our
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1126 keyboard available, store the US layout interpretation of
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1127 that key in the event structure, in case a binding lookup
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1128 fails and we want to fall back to the US layout binding.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1129
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1130 This _might_ be possible within an XKB framework, changing
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1131 the keyboard to a US XKB layout for a moment at startup,
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1132 storing the correspondance, and changing it back. But that
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1133 won't work on non-XKB servers, it makes our already slow
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1134 startup slower, and it's not clear that it's really any
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1135 easier or more maintainable than storing a correspondence in
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1136 Lisp. */
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1137
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1138 if (!NILP(Vx_us_keymap_description) &&
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1139 VECTORP(Vx_us_keymap_description) &&
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1140 ev->keycode >= (unsigned)Vx_us_keymap_first_keycode &&
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1141 ev->keycode
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1142 < (unsigned)XVECTOR_LENGTH(Vx_us_keymap_description))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1143 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1144 Lisp_Object entr = XVECTOR_DATA(Vx_us_keymap_description)
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1145 [ev->keycode - Vx_us_keymap_first_keycode];
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1146 Ichar alternate = '\0';
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1147
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1148 if (!NILP (entr))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1149 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1150 if (CHARP(entr))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1151 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1152 alternate = XCHAR(entr);
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1153 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1154 else if (VECTORP(entr))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1155 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1156 if (modifiers & XEMACS_MOD_SHIFT
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1157 && XVECTOR_LENGTH(Vx_us_keymap_description) > 1)
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1158 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1159 entr = XVECTOR_DATA(entr)[1];
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1160 if (CHARP(entr))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1161 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1162 alternate = XCHAR(entr);
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1163 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1164 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1165 else if (XVECTOR_LENGTH(Vx_us_keymap_description)
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1166 > 0)
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1167 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1168 entr = XVECTOR_DATA(entr)[0];
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1169 if (CHARP(entr))
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1170 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1171 alternate = XCHAR(entr);
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1172 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1173 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1174 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1175 if ('\0' != alternate)
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1176 {
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1177 SET_EVENT_KEY_ALT_KEYCHARS(emacs_event, KEYCHAR_QWERTY,
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1178 alternate);
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1179 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1180 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1181 }
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1182
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 /* More Caps_Lock garbage: Caps_Lock should *only* add the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 shift modifier to two-case keys (that is, A-Z and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 related characters). So at this point (after looking up
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 the keysym) if the keysym isn't a dual-case alphabetic,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 and if the caps lock key was down but the shift key
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 wasn't, then turn off the shift modifier. Gag barf */
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1189
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 /* #### type lossage: assuming equivalence of emacs and
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1191 X keysyms
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1192
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1193 The right thing to do here is to have pass a third, pointer,
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1194 argument to x_to_emacs_keysym, where it should store the
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1195 intermediate KeySym it used to calculate the string XEmacs
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1196 keysym. Then we can call keysym_obeys_caps_lock_p with
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1197 exactly the right argument. */
3171
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1198
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1199 /* !!#### maybe fix for Mule
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1200
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1201 Hard, in the absence of a full case infrastructure for
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1202 Mule characters. When
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1203 (downcase (make-char 'cyrillic-iso8859-5 73))
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1204 works, we should revisit it. */
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 2699
diff changeset
1205
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 if (lock_p && !shift_p &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 ! (CHAR_OR_CHAR_INTP (keysym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 && keysym_obeys_caps_lock_p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 ((KeySym) XCHAR_OR_CHAR_INT (keysym), d)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1210 modifiers &= (~XEMACS_MOD_SHIFT);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 /* If this key contains two distinct keysyms, that is,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 "shift" generates a different keysym than the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 non-shifted key, then don't apply the shift modifier
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 bit: it's implicit. Otherwise, if there would be no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 other way to tell the difference between the shifted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 and unshifted version of this key, apply the shift bit.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 Non-graphics, like Backspace and F1 get the shift bit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 in the modifiers slot. Neither the characters "a",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 "A", "2", nor "@" normally have the shift bit set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221 However, "F1" normally does. */
3171
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
1222
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1223 if (modifiers & XEMACS_MOD_SHIFT)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 int Mode_switch_p = *state & xd->ModeMask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 KeySym bot = XLookupKeysym (ev, Mode_switch_p ? 2 : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 KeySym top = XLookupKeysym (ev, Mode_switch_p ? 3 : 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 if (top && bot && top != bot)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1229 modifiers &= ~XEMACS_MOD_SHIFT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 }
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1231 set_event_type (emacs_event, key_press_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1232 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1233 SET_EVENT_KEY_MODIFIERS (emacs_event, modifiers);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1234 SET_EVENT_KEY_KEYSYM (emacs_event, keysym);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 else /* Mouse press/release event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 XButtonEvent *ev = &x_event->xbutton;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 struct frame *frame = x_window_to_frame (d, ev->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 return 0; /* not for us */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1243 set_event_type (emacs_event, (x_event->type == ButtonPress) ?
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1244 button_press_event : button_release_event);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1245 SET_EVENT_CHANNEL (emacs_event, wrap_frame (frame));
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1246
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1247 SET_EVENT_BUTTON_MODIFIERS (emacs_event, modifiers);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1248 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1249 SET_EVENT_BUTTON_BUTTON (emacs_event, ev->button);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1250 SET_EVENT_BUTTON_X (emacs_event, ev->x);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1251 SET_EVENT_BUTTON_Y (emacs_event, ev->y);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 /* because we don't seem to get a FocusIn event for button clicks
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 when a widget-glyph is selected we will assume that we want the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 focus if a button gets pressed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 if (x_event->type == ButtonPress)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 handle_focus_event_1 (frame, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 case MotionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 XMotionEvent *ev = &x_event->xmotion;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 struct frame *frame = x_window_to_frame (d, ev->window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1265 int modifiers = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 XMotionEvent event2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 if (! frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 return 0; /* not for us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 /* We use MotionHintMask, so we will get only one motion event
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 until the next time we call XQueryPointer or the user
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 clicks the mouse. So call XQueryPointer now (meaning that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 the event will be in sync with the server just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 Fnext_event() returns). If the mouse is still in motion,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 then the server will immediately generate exactly one more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 motion event, which will be on the queue waiting for us
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 next time around. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 event2 = *ev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 if (XQueryPointer (event2.display, event2.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 &event2.root, &event2.subwindow,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 &event2.x_root, &event2.y_root,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 &event2.x, &event2.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 &event2.state))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 ev = &event2; /* only one structure copy */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 DEVICE_X_MOUSE_TIMESTAMP (d) = ev->time;
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1288 SET_EVENT_CHANNEL (emacs_event, wrap_frame (frame));
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1289 set_event_type (emacs_event, pointer_motion_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1290 SET_EVENT_TIMESTAMP (emacs_event, ev->time);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1291 SET_EVENT_MOTION_X (emacs_event, ev->x);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1292 SET_EVENT_MOTION_Y (emacs_event, ev->y);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1293 if (ev->state & ShiftMask) modifiers |= XEMACS_MOD_SHIFT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1294 if (ev->state & ControlMask) modifiers |= XEMACS_MOD_CONTROL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1295 if (ev->state & xd->MetaMask) modifiers |= XEMACS_MOD_META;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1296 if (ev->state & xd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1297 if (ev->state & xd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1298 if (ev->state & xd->AltMask) modifiers |= XEMACS_MOD_ALT;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1299 if (ev->state & Button1Mask) modifiers |= XEMACS_MOD_BUTTON1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1300 if (ev->state & Button2Mask) modifiers |= XEMACS_MOD_BUTTON2;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1301 if (ev->state & Button3Mask) modifiers |= XEMACS_MOD_BUTTON3;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1302 if (ev->state & Button4Mask) modifiers |= XEMACS_MOD_BUTTON4;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1303 if (ev->state & Button5Mask) modifiers |= XEMACS_MOD_BUTTON5;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 /* Currently ignores Shift_Lock but probably shouldn't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 (but it definitely should ignore Caps_Lock). */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1306 SET_EVENT_MOTION_MODIFIERS (emacs_event, modifiers);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 /* Patch bogus TAKE_FOCUS messages from MWM; CurrentTime is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 passed as the timestamp of the TAKE_FOCUS, which the ICCCM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 explicitly prohibits. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 XClientMessageEvent *ev = &x_event->xclient;
4790
bc4f2511bbea Remove support for the OffiX drag-and-drop protocol. See xemacs-patches
Jerry James <james@xemacs.org>
parents: 4780
diff changeset
1316
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 if (ev->message_type == DEVICE_XATOM_WM_PROTOCOLS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 && (Atom) (ev->data.l[0]) == DEVICE_XATOM_WM_TAKE_FOCUS (d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 && (Atom) (ev->data.l[1]) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 ev->data.l[1] = DEVICE_X_LAST_SERVER_TIMESTAMP (d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324 /* fall through */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 default: /* it's a magic event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 Window w;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1330 XEvent *x_event_copy;
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1331 SET_EVENT_TYPE (emacs_event, magic_event);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1332 x_event_copy = &EVENT_MAGIC_X_EVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 #define FROB(event_member, window_member) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 x_event_copy->event_member = x_event->event_member; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 w = x_event->event_member.window_member
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 switch (x_event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 case SelectionRequest: FROB(xselectionrequest, owner); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 case SelectionClear: FROB(xselectionclear, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 case SelectionNotify: FROB(xselection, requestor); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 case PropertyNotify: FROB(xproperty, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 case ClientMessage: FROB(xclient, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345 case ConfigureNotify: FROB(xconfigure, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 case GraphicsExpose: FROB(xexpose, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 case UnmapNotify: FROB(xmap, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351 case LeaveNotify: FROB(xcrossing, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 case FocusOut: FROB(xfocus, window); break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 case VisibilityNotify: FROB(xvisibility, window); break;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1355 case CreateNotify: FROB(xcreatewindow, window); break;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 w = x_event->xany.window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 *x_event_copy = *x_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 #undef FROB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 frame = x_any_window_to_frame (d, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 if (!frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1367 SET_EVENT_CHANNEL (emacs_event, wrap_frame (frame));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1371 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1372 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 /* magic-event handling */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 handle_focus_event_1 (struct frame *f, int in_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1383 handle_focus_event_2 (XtWindow (FRAME_X_TEXT_WIDGET (f)), f, in_p);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1384 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1385
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1386 static void
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1387 handle_focus_event_2 (Window win, struct frame *f, int in_p)
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1388 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1389 /* Although this treats focus differently for all widgets (including
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1390 the frame) it seems to work ok. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1391 Widget needs_it = XtWindowToWidget (FRAME_X_DISPLAY (f), win);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1392
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 #if XtSpecificationRelease > 5
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1394 widget_with_focus = XtGetKeyboardFocusWidget (FRAME_X_TEXT_WIDGET (f));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 XIM_focus_event (f, in_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 #endif /* HAVE_XIM */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1399
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 /* On focus change, clear all memory of sticky modifiers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 to avoid non-intuitive behavior. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 clear_sticky_modifiers (XDEVICE (FRAME_DEVICE (f)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 /* We don't want to handle the focus change now, because we might
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 be in an accept-process-output, sleep-for, or sit-for. So
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 we enqueue it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 Actually, we half handle it: we handle it as far as changing the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 box cursor for redisplay, but we don't call any hooks or do any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 select-frame stuff until after the sit-for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 Unfortunately native widgets break the model because they grab
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 the keyboard focus and nothing sets it back again. I cannot find
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 any reasonable way to do this elsewhere so we assert here that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 the keyboard focus is on the emacs text widget. Menus and dialogs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416 do this in their selection callback, but we don't want that since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 a button having focus is legitimate. An edit field having focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 is mandatory. Weirdly you get a FocusOut event when you click in
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1419 a widget-glyph but you don't get a corresponding FocusIn when you
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 click in the frame. Why is this? */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1421 if (in_p
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
1422 #if XtSpecificationRelease > 5
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1423 && needs_it != widget_with_focus
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 {
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1427 lw_set_keyboard_focus (FRAME_X_SHELL_WIDGET (f), needs_it);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 }
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1429
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1430 /* If we are focusing on a native widget then record and exit. */
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1431 if (needs_it != FRAME_X_TEXT_WIDGET (f)) {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1432 widget_with_focus = needs_it;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1433 return;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1434 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1435
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1436 /* We have the focus now. See comment in
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1437 emacs_Xt_handle_widget_losing_focus (). */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1438 if (in_p)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1439 widget_with_focus = NULL;
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1440
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 /* do the generic event-stream stuff. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 Lisp_Object frm;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 Lisp_Object conser;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1447 frm = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 conser = Fcons (frm, Fcons (FRAME_DEVICE (f), in_p ? Qt : Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 GCPRO1 (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 emacs_handle_focus_change_preliminary (conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 enqueue_magic_eval_event (emacs_handle_focus_change_final,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 conser);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1457 /* Create a synthetic X focus event. */
1111
184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben]
ben
parents: 1094
diff changeset
1458 void emacs_Xt_enqueue_focus_event (Widget wants_it, Lisp_Object frame,
184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben]
ben
parents: 1094
diff changeset
1459 int in_p);
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1460 void
1111
184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben]
ben
parents: 1094
diff changeset
1461 emacs_Xt_enqueue_focus_event (Widget wants_it, Lisp_Object frame, int in_p)
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1462 {
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1463 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1464 Lisp_Event *ev = XEVENT (emacs_event);
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1465 XEvent *x_event;
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1466
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1467 XSET_EVENT_TYPE (emacs_event, magic_event);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1468 x_event = &EVENT_MAGIC_X_EVENT (ev);
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1469
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1470 x_event->type = in_p ? FocusIn : FocusOut;
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1471 x_event->xfocus.window = XtWindow (wants_it);
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1472
960
5b372a329b97 [xemacs-hg @ 2002-08-12 08:00:01 by michaels]
michaels
parents: 943
diff changeset
1473 SET_EVENT_CHANNEL (ev, frame);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1474
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1475 enqueue_dispatch_event (emacs_event);
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1476 }
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1477
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1478 /* The idea here is that when a widget glyph gets unmapped we don't
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1479 want the focus to stay with it if it has focus - because it may
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1480 well just get deleted next and then we have lost the focus until the
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1481 user does something. So handle_focus_event_1 records the widget
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1482 with keyboard focus when FocusOut is processed, and then, when a
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1483 widget gets unmapped, it calls this function to restore focus if
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1484 appropriate. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1485 void emacs_Xt_handle_widget_losing_focus (struct frame *f, Widget losing_widget);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1486 void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1487 emacs_Xt_handle_widget_losing_focus (struct frame *f, Widget losing_widget)
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1488 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1489 if (losing_widget == widget_with_focus)
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1490 {
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1491 handle_focus_event_1 (f, 1);
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1492 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1493 }
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
1494
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 /* This is called from the external-widget code */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 void emacs_Xt_handle_focus_event (XEvent *event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 emacs_Xt_handle_focus_event (XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504 if (DEVICE_X_BEING_DELETED (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 * It's curious that we're using x_any_window_to_frame() instead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 * of x_window_to_frame(). I don't know what the impact of this is.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 f = x_any_window_to_frame (d, event->xfocus.window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 if (!f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 /* focus events are sometimes generated just before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 a frame is destroyed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 handle_focus_event_1 (f, event->type == FocusIn);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 /* both MapNotify and VisibilityNotify can cause this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 JV is_visible has the same semantics as f->visible*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522 change_frame_visibility (struct frame *f, int is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1524 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1525
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 if (!FRAME_VISIBLE_P (f) && is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 FRAME_VISIBLE_P (f) = is_visible;
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1530 /* [[ This improves the double flicker when uniconifying a frame
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1531 some. A lot of it is not showing a buffer which has changed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1532 while the frame was iconified. To fix it further requires
872
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1533 the good 'ol double redisplay structure. ]] -- comment is
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1534 invalid, obviously predates 19.12, when the double redisplay
79c6ff3eef26 [xemacs-hg @ 2002-06-20 21:18:01 by ben]
ben
parents: 867
diff changeset
1535 structure (i.e. current + desired) was put back in. --ben */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 else if (FRAME_VISIBLE_P (f) && !is_visible)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 FRAME_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 va_run_hook_with_args (Qunmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 else if (FRAME_VISIBLE_P (f) * is_visible < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1546 FRAME_VISIBLE_P(f) = - FRAME_VISIBLE_P(f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 if (FRAME_REPAINT_P(f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 va_run_hook_with_args (Qmap_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 static void
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1554 update_frame_iconify_status (struct frame *f)
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1555 {
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1556 f->iconified = (x_frame_window_state (f) == IconicState);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1557 }
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1558
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1559 static void
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 handle_map_event (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1562
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1563 /* It seems that, given the multiplicity of window managers and X
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1564 implementations, plus the fact that X was designed without
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1565 window managers or icons in mind and this was then grafted on
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1566 with about the skill of a drunk freshman med student attempting
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1567 surgery with a rusty razor blade, we cannot treat any off
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1568 MapNotify/UnmapNotify/VisibilityNotify as more than vague hints
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1569 as to the actual situation.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1570
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1571 So we should just query the actual status. Unfortunately, things
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1572 are worse because (a) there aren't obvious ways to query some
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1573 of these values (e.g. "totally visible"), and (b) there may be
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1574 race conditions (see below).
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1575
638
373ced43e288 [xemacs-hg @ 2001-07-26 21:10:44 by adrian]
adrian
parents: 593
diff changeset
1576 However, according to the ICCCM, there's a specific way to
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1577 ask the window manager whether the state is (a) visible,
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1578 (b) iconic, (c) withdrawn. It must be one of these three.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1579 We already use this call to check for the iconified state.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1580 I'd suggest we do the same for visible (i.e. NormalState),
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1581 and scrap most of the nasty code below.
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1582
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1583 --ben
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1584 */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1585
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1586 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1587
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1588 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1589 x_frame_window_state (f). */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1590
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 if (event->type == MapNotify)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 XWindowAttributes xwa;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 /* Bleagh!!!!!! Apparently some window managers (e.g. MWM)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 send synthetic MapNotify events when a window is first
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 created, EVEN IF IT'S CREATED ICONIFIED OR INVISIBLE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 Or something like that. We initially tried a different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 solution below, but that ran into a different window-
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 manager bug.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 It seems that the only reliable way is to treat a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 MapNotify event as a "hint" that the window might or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 might not be visible, and check explicitly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 XGetWindowAttributes (event->xany.display, event->xmap.window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 &xwa);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 if (xwa.map_state != IsViewable)
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1609 return;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 FRAME_X_TOTALLY_VISIBLE_P (f) = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613 /* Bleagh again!!!! We initially tried the following hack
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 around the MWM problem, but it turns out that TWM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 has a race condition when you un-iconify, where it maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 the window and then tells the server that the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 is un-iconified. Usually, XEmacs wakes up between
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 those two occurrences, and thus thinks that un-iconified
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 windows are still iconified.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 Ah, the joys of X. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 /* By Emacs definition, a frame that is iconified is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 visible. Marking a frame as visible will automatically cause
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 frame-iconified-p to return nil, regardless of whether the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 frame is actually iconified. Therefore, we have to ignore
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 MapNotify events on iconified frames. (It's not obvious
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 to me why these are being sent, but it happens at startup
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629 with frames that are initially iconified; perhaps they are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 synthetic MapNotify events coming from the window manager.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 Note that `frame-iconified-p' queries the server
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 to determine whether the frame is currently iconified,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 rather than consulting some internal (and likely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634 inaccurate) state flag. Therefore, ignoring the MapNotify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 is correct. */
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1636 if (!FRAME_VISIBLE_P (f) && NILP (Fframe_iconified_p (wrap_frame (f))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638 change_frame_visibility (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 FRAME_X_TOTALLY_VISIBLE_P (f) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643 change_frame_visibility (f, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 handle_client_message (struct frame *f, XEvent *event)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 struct device *d = XDEVICE (FRAME_DEVICE (f));
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1651 Lisp_Object frame = wrap_frame (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 (Atom) (event->xclient.data.l[0]) == DEVICE_XATOM_WM_DELETE_WINDOW (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 /* WM_DELETE_WINDOW is a misc-user event, but other ClientMessages,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 such as WM_TAKE_FOCUS, are eval events. That's because delete-window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 was probably executed with a mouse click, while the others could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 have been sent as a result of mouse motion or some other implicit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 action. (Call this a "heuristic"...) The reason for caring about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 this is so that clicking on the close-box will make emacs prompt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 using a dialog box instead of the minibuffer if there are unsaved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663 buffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 enqueue_misc_user_event (frame, Qeval,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 list3 (Qdelete_frame, frame, Qt));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 else if (event->xclient.message_type == DEVICE_XATOM_WM_PROTOCOLS (d) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 (Atom) event->xclient.data.l[0] == DEVICE_XATOM_WM_TAKE_FOCUS (d))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 handle_focus_event_1 (f, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 /* If there is a dialog box up, focus on it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 #### Actually, we're raising it too, which is wrong. We should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 #### just focus on it, but lwlib doesn't currently give us an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 #### easy way to do that. This should be fixed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679 unsigned long take_focus_timestamp = event->xclient.data.l[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 Widget widget = lw_raise_all_pop_up_widgets ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 if (widget)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 /* kludge: raise_all returns bottommost widget, but we really
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 want the topmost. So just raise it for now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 XMapRaised (XtDisplay (widget), XtWindow (widget));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 /* Grab the focus with the timestamp of the TAKE_FOCUS. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 XSetInputFocus (XtDisplay (widget), XtWindow (widget),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 RevertToParent, take_focus_timestamp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1694 /* #### I'm struggling to understand how the X event loop really works.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1695 Here is the problem:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1696
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1697 When widgets get mapped / changed etc the actual display updates
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1698 are done asynchronously via X events being processed - this
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1699 normally happens when XtAppProcessEvent() gets called. However, if
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1700 we are executing lisp code or even doing redisplay we won't
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1701 necessarily process X events for a very long time. This has the
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1702 effect of widgets only getting updated when XEmacs only goes into
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1703 idle, or some other event causes processing of the X event queue.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1704
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1705 XtAppProcessEvent can get called from the following places:
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1706
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1707 emacs_Xt_next_event () - this is normal event processing, almost
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1708 any non-X event will take precedence and this means that we
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1709 cannot rely on it to do the right thing at the right time for
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1710 widget display.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1711
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1712 emacs_Xt_drain_queue () - this happens when SIGIO gets tripped,
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1713 processing the event queue allows C-g to be checked for. It gets
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1714 called from emacs_Xt_event_pending_p (). #### Update this comment.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1715
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1716 In order to solve this I have tried introducing a list primitive -
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1717 dispatch-non-command-events - which forces processing of X events
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1718 related to display. Unfortunately this has a number of problems,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1719 one is that it is possible for event_stream_event_pending_p to
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1720 block for ever if there isn't actually an event. I guess this can
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1721 happen if we drop the synthetic event for reason. It also relies on
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1722 SIGIO processing which makes things rather fragile.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1723
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1724 People have seen behaviour whereby XEmacs blocks until you move the
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1725 mouse. This seems to indicate that dispatch-non-command-events is
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1726 blocking. It may be that in a SIGIO world forcing SIGIO processing
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1727 does the wrong thing.
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1728 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1730 emacs_Xt_force_event_pending (struct frame *f)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1731 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1732 XEvent event;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1733
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
1734 Display *dpy = DEVICE_X_DISPLAY (XDEVICE (FRAME_DEVICE (f)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1735 event.xclient.type = ClientMessage;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1736 event.xclient.display = dpy;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1737 event.xclient.message_type = XInternAtom (dpy, "BumpQueue", False);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1738 event.xclient.format = 32;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1739 event.xclient.window = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1740
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1741 /* Send the drop message */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1742 XSendEvent(dpy, XtWindow (FRAME_X_SHELL_WIDGET (f)),
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1743 True, NoEventMask, &event);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1744 /* We rely on SIGIO and friends to realise we have generated an
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 446
diff changeset
1745 event. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1746 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1747
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1748 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1749 emacs_Xt_format_magic_event (Lisp_Event *event, Lisp_Object pstream)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1750 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1751 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (event));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1752 if (CONSOLE_X_P (XCONSOLE (console)))
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
1753 write_ascstring
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1754 (pstream, x_event_name ((EVENT_MAGIC_X_EVENT (event)).type));
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1755 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1756
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1757 static int
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1758 emacs_Xt_compare_magic_event (Lisp_Event *e1, Lisp_Event *e2)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1759 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1760 if (CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e1)))) &&
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1761 CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e2)))))
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1762 return ((EVENT_MAGIC_X_EVENT (e1)).xany.serial ==
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1763 (EVENT_MAGIC_X_EVENT (e2)).xany.serial);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1764 if (CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e1)))) ||
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1765 CONSOLE_X_P (XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e2)))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1766 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1767 return 1;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1768 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1769
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1770 static Hashcode
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1771 emacs_Xt_hash_magic_event (Lisp_Event *e)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1772 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1773 Lisp_Object console = CDFW_CONSOLE (EVENT_CHANNEL (e));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1774 if (CONSOLE_X_P (XCONSOLE (console)))
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1775 return (EVENT_MAGIC_X_EVENT (e)).xany.serial;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1776 return 0;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1777 }
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1778
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
1779 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
1780 emacs_Xt_handle_magic_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 /* This function can GC */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
1783 XEvent *event = &EVENT_MAGIC_X_EVENT (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 struct frame *f = XFRAME (EVENT_CHANNEL (emacs_event));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 if (!FRAME_LIVE_P (f) || DEVICE_X_BEING_DELETED (XDEVICE (FRAME_DEVICE (f))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 case SelectionRequest:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 x_handle_selection_request (&event->xselectionrequest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1794
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 case SelectionClear:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 x_handle_selection_clear (&event->xselectionclear);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1798
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 case SelectionNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800 x_handle_selection_notify (&event->xselection);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1802
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 case PropertyNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 x_handle_property_notify (&event->xproperty);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 break;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
1806
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 case Expose:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 if (!check_for_ignored_expose (f, event->xexpose.x, event->xexpose.y,
1318
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1809 event->xexpose.width,
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1810 event->xexpose.height)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 !find_matching_subwindow (f, event->xexpose.x, event->xexpose.y,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 event->xexpose.width, event->xexpose.height))
1318
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1814 redisplay_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1815 event->xexpose.width,
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1816 event->xexpose.height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 case GraphicsExpose: /* This occurs when an XCopyArea's source area was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 obscured or not available. */
1318
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1821 redisplay_redraw_exposed_area (f, event->xexpose.x, event->xexpose.y,
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1822 event->xexpose.width,
b531bf8658e9 [xemacs-hg @ 2003-02-21 06:56:46 by ben]
ben
parents: 1315
diff changeset
1823 event->xexpose.height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 case MapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827 case UnmapNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 handle_map_event (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1834 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1835
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 /* FRAME_X_MOUSE_P (f) = 1; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 va_run_hook_with_args (Qmouse_enter_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 case LeaveNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 if (event->xcrossing.detail != NotifyInferior)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1844 Lisp_Object frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
1845
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 /* FRAME_X_MOUSE_P (f) = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 va_run_hook_with_args (Qmouse_leave_frame_hook, 1, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 #ifdef EXTERNAL_WIDGET
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 /* External widget lossage: Ben said:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 YUCK. The only way to make focus changes work properly is to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 completely ignore all FocusIn/FocusOut events and depend only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 on notifications from the ExternalClient widget. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 if (FRAME_X_EXTERNAL_WINDOW_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 #endif
863
42375619fa45 [xemacs-hg @ 2002-06-04 06:03:59 by andyp]
andyp
parents: 853
diff changeset
1862 handle_focus_event_2 (event->xfocus.window, f, event->type == FocusIn);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 handle_client_message (f, event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 case VisibilityNotify: /* window visibility has changed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 if (event->xvisibility.window == XtWindow (FRAME_X_SHELL_WIDGET (f)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 {
593
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1872 /* See comment in handle_map_event */
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1873 update_frame_iconify_status (f);
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1874
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1875 /* #### Ben suggests rewriting the code below using
5fd7ba8b56e7 [xemacs-hg @ 2001-05-31 12:45:27 by ben]
ben
parents: 563
diff changeset
1876 x_frame_window_state (f). */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 FRAME_X_TOTALLY_VISIBLE_P (f) =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 (event->xvisibility.state == VisibilityUnobscured);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 /* Note that the fvwm pager only sends VisibilityNotify when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 changing pages. Is this all we need to do ? JV */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 /* Nope. We must at least trigger a redisplay here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 Since this case seems similar to MapNotify, I've
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883 factored out some code to change_frame_visibility().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1884 This triggers the necessary redisplay and runs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 (un)map-frame-hook. - dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1886 /* Changed it again to support the tristate visibility flag */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887 change_frame_visibility (f, (event->xvisibility.state
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 != VisibilityFullyObscured) ? 1 : -1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892 case ConfigureNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893 #ifdef HAVE_XIM
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 XIM_SetGeometry (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1897
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1898 case CreateNotify:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1899 break;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1900
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1907 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1908 /* timeout events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 static int timeout_id_tick;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913 /* Xt interval id's might not fit into an int (they're pointers, as it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 happens), so we need to provide a conversion list. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 static struct Xt_timeout
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 int id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 XtIntervalId interval_id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920 struct Xt_timeout *next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 } *pending_timeouts, *completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 static struct Xt_timeout_blocktype
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 Blocktype_declare (struct Xt_timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 } *the_Xt_timeout_blocktype;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928 /* called by XtAppNextEvent() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1929 static void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
1930 Xt_timeout_callback (XtPointer closure, XtIntervalId *UNUSED (id))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1931 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932 struct Xt_timeout *timeout = (struct Xt_timeout *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933 struct Xt_timeout *t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934 /* Remove this one from the list of pending timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935 if (t2 == timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 while (t2->next && t2->next != timeout) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940 assert (t2->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 /* Add this one to the list of completed timeouts */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 timeout->next = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 completed_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 emacs_Xt_add_timeout (EMACS_TIME thyme)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951 struct Xt_timeout *timeout = Blocktype_alloc (the_Xt_timeout_blocktype);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 EMACS_TIME current_time;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 int milliseconds;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 timeout->id = timeout_id_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1956 timeout->next = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 pending_timeouts = timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958 EMACS_GET_TIME (current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959 EMACS_SUB_TIME (thyme, thyme, current_time);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960 milliseconds = EMACS_SECS (thyme) * 1000 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 EMACS_USECS (thyme) / 1000;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962 if (milliseconds < 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 milliseconds = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 timeout->interval_id = XtAppAddTimeOut (Xt_app_con, milliseconds,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 Xt_timeout_callback,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1966 (XtPointer) timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967 return timeout->id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1968 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 emacs_Xt_remove_timeout (int id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973 struct Xt_timeout *timeout, *t2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 timeout = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1977 /* Find the timeout on the list of pending ones, if it's still there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978 if (pending_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1980 if (id == pending_timeouts->id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 timeout = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 pending_timeouts = pending_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1985 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987 t2 = pending_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 if ( t2->next) /*found it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 /* if it was pending, we have removed it from the list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 XtRemoveTimeOut (timeout->interval_id);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000 /* It could be that the Xt call back was already called but we didn't convert
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2001 into an Emacs event yet */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 if (!timeout && completed_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 /* Code duplication! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 if (id == completed_timeouts->id)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 timeout = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 completed_timeouts = completed_timeouts->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012 t2 = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 while (t2->next && t2->next->id != id) t2 = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 if ( t2->next) /*found it */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 timeout = t2->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 t2->next = t2->next->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2019 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2022 /* If we found the thing on the lists of timeouts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2023 and removed it, deallocate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2024 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 if (timeout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2030 Xt_timeout_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 struct Xt_timeout *timeout = completed_timeouts;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 assert (timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 completed_timeouts = completed_timeouts->next;
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2035 /* timeout events have nil as channel */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2036 set_event_type (emacs_event, timeout_event);
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2037 SET_EVENT_TIMESTAMP_ZERO (emacs_event); /* #### wrong!! */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2038 SET_EVENT_TIMEOUT_INTERVAL_ID (emacs_event, timeout->id);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2039 SET_EVENT_TIMEOUT_FUNCTION (emacs_event, Qnil);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2040 SET_EVENT_TIMEOUT_OBJECT (emacs_event, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 Blocktype_free (the_Xt_timeout_blocktype, timeout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 /* process and tty events */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 struct what_is_ready_closure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 int fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052 Lisp_Object what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 XtInputId id;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 static Lisp_Object *filedesc_with_input;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 static struct what_is_ready_closure **filedesc_to_what_closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 init_what_input_once (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 filedesc_with_input = xnew_array (Lisp_Object, MAXDESC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 filedesc_to_what_closure =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 xnew_array (struct what_is_ready_closure *, MAXDESC);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 filedesc_to_what_closure[i] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 filedesc_with_input[i] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 process_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 tty_events_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 mark_what_as_being_ready (struct what_is_ready_closure *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 if (NILP (filedesc_with_input[closure->fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 SELECT_TYPE temp_mask;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 FD_ZERO (&temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 FD_SET (closure->fd, &temp_mask);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 /* Check to make sure there's *really* input available.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 Sometimes things seem to get confused and this gets called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 for the tty fd when there's really only input available
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 on some process's fd. (It will subsequently get called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 for that process's fd, so returning without setting any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091 flags will take care of it.) To see the problem, uncomment
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 the stderr_out below, turn NORMAL_QUIT_CHECK_TIMEOUT_MSECS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2093 down to 25, do sh -c 'xemacs -nw -q -f shell 2>/tmp/log'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094 and press return repeatedly. (Seen under AIX & Linux.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 -dkindred@cs.cmu.edu */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 if (!poll_fds_for_input (temp_mask))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 stderr_out ("mark_what_as_being_ready: no input available (fd=%d)\n",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 closure->fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104 filedesc_with_input[closure->fd] = closure->what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2106 /* Don't increment this if the current process is already marked
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107 * as having input. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 process_events_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110 tty_events_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 static void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2115 Xt_what_callback (void *closure, int *UNUSED (source), XtInputId *UNUSED (id))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 /* If closure is 0, then we got a fake event from a signal handler.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 The only purpose of this is to make XtAppProcessEvent() stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 blocking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 if (closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 mark_what_as_being_ready ((struct what_is_ready_closure *) closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 fake_event_occurred++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 drain_signal_event_pipe ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 select_filedesc (int fd, Lisp_Object what)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 struct what_is_ready_closure *closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 /* If somebody is trying to select something that's already selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 for, then something went wrong. The generic routines ought to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 detect this and error before here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 assert (!filedesc_to_what_closure[fd]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 closure = xnew (struct what_is_ready_closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 closure->fd = fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 closure->what = what;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 closure->id =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 XtAppAddInput (Xt_app_con, fd,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 Xt_what_callback, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 filedesc_to_what_closure[fd] = closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 unselect_filedesc (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152 struct what_is_ready_closure *closure = filedesc_to_what_closure[fd];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 assert (closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 if (!NILP (filedesc_with_input[fd]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 /* We are unselecting this process before we have drained the rest of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 the input from it, probably from status_notify() in the command loop.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 This can happen like so:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 - We are waiting in XtAppNextEvent()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162 - Process generates output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 - Process is marked as being ready
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 - Process dies, SIGCHLD gets generated before we return (!?)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 It could happen I guess.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 - sigchld_handler() marks process as dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 - Somehow we end up getting a new KeyPress event on the queue
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 at the same time (I'm really so sure how that happens but I'm
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 not sure it can't either so let's assume it can...).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 - Key events have priority so we return that instead of the proc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 - Before dispatching the lisp key event we call status_notify()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 - Which deselects the process that SIGCHLD marked as dead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 Thus we never remove it from _with_input and turn it into a lisp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 event, so we need to do it here. But this does not mean that we're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 throwing away the last block of output - status_notify() has already
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 taken care of running the proc filter or whatever.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 filedesc_with_input[fd] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2180 if (PROCESSP (closure->what))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182 assert (process_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2183 process_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 tty_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 XtRemoveInput (closure->id);
4976
16112448d484 Rename xfree(FOO, TYPE) -> xfree(FOO)
Ben Wing <ben@xemacs.org>
parents: 4953
diff changeset
2192 xfree (closure);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193 filedesc_to_what_closure[fd] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2197 emacs_Xt_select_process (Lisp_Process *process, int doin, int doerr)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2199 Lisp_Object proc;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2200 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2201
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2202 event_stream_unixoid_select_process (process, doin, doerr, &infd, &errfd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2203
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2204 proc = wrap_process (process);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2205 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2206 select_filedesc (infd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2207 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2208 select_filedesc (errfd, proc);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2209 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2210
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2211 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2212 emacs_Xt_unselect_process (Lisp_Process *process, int doin, int doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2213 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2214 int infd, errfd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2215
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2216 event_stream_unixoid_unselect_process (process, doin, doerr, &infd, &errfd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2217
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2218 if (doin)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2219 unselect_filedesc (infd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2220 if (doerr)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2221 unselect_filedesc (errfd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2225 emacs_Xt_create_io_streams (void *inhandle, void *outhandle,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2226 void *errhandle, Lisp_Object *instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2227 Lisp_Object *outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2228 Lisp_Object *errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2229 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2230 USID *err_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2231 int flags)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2233 event_stream_unixoid_create_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2234 (inhandle, outhandle, errhandle, instream, outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2235 errstream, in_usid, err_usid, flags);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2236 if (*in_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2237 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2238 if (*err_usid != USID_ERROR)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2239 *err_usid = USID_DONTHASH;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2242 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2243 emacs_Xt_delete_io_streams (Lisp_Object instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2244 Lisp_Object outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2245 Lisp_Object errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2246 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2247 USID *err_usid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2248 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2249 event_stream_unixoid_delete_io_streams
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2250 (instream, outstream, errstream, in_usid, err_usid);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2251 *in_usid = USID_DONTHASH;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2252 *err_usid = USID_DONTHASH;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255 /* This is called from GC when a process object is about to be freed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 If we've still got pointers to it in this file, we're gonna lose hard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2259 debug_process_finalization (Lisp_Process *UNUSED (p))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 #if 0 /* #### */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 int i;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2263 Lisp_Object instr, outstr, errstr;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2264
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2265 get_process_streams (p, &instr, &outstr, &errstr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 /* if it still has fds, then it hasn't been killed yet. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 assert (NILP(instr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 assert (NILP(outstr));
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2269 assert (NILP(errstr));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 /* Better not still be in the "with input" table; we know it's got no fds. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 Lisp_Object process = filedesc_fds_with_input [i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 assert (!PROCESSP (process) || XPROCESS (process) != p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2280 Xt_process_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284 assert (process_events_occurred > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2285
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2288 Lisp_Object process = filedesc_with_input[i];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289 if (PROCESSP (process))
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2290 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2291 filedesc_with_input[i] = Qnil;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2292 process_events_occurred--;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2293 /* process events have nil as channel */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2294 set_event_type (emacs_event, process_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2295 SET_EVENT_TIMESTAMP_ZERO (emacs_event); /* #### */
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2296 SET_EVENT_PROCESS_PROCESS (emacs_event, process);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2297 return;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 428
diff changeset
2298 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 }
2500
3d8143fc88e1 [xemacs-hg @ 2005-01-24 23:33:30 by ben]
ben
parents: 2367
diff changeset
2300 ABORT ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2301 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304 emacs_Xt_select_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 Lisp_Object console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 infd = event_stream_unixoid_select_console (con);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2313 console = wrap_console (con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314 select_filedesc (infd, console);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 emacs_Xt_unselect_console (struct console *con)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 int infd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 if (CONSOLE_X_P (con))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 return; /* X consoles are automatically selected for when we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 initialize them in Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 infd = event_stream_unixoid_unselect_console (con);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 unselect_filedesc (infd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 /* read an event from a tty, if one is available. Returns non-zero
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330 if an event was available. Note that when this function is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 called, there should always be a tty marked as ready for input.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 However, the input condition might actually be EOF, so there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 may not really be any input available. (In this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 read_event_from_tty_or_stream_desc() will arrange for the TTY device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 to be deleted.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2338 Xt_tty_to_emacs_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 for (i = 0; i < MAXDESC; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 Lisp_Object console = filedesc_with_input[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 if (CONSOLEP (console))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 assert (tty_events_occurred > 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 tty_events_occurred--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350 filedesc_with_input[i] = Qnil;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2351 if (read_event_from_tty_or_stream_desc (emacs_event,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 665
diff changeset
2352 XCONSOLE (console)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362 /* debugging functions to decipher an event */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 #include "xintrinsicp.h" /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 #include <X11/Xproto.h> /* only describe_event() needs this */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2370 describe_event_window (Window window, Display *display, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2373 Widget w;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2374 write_fmt_string (pstream, " window: 0x%lx", (unsigned long) window);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375 w = XtWindowToWidget (display, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 if (w)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2377 write_fmt_string (pstream, " %s",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2378 w->core.widget_class->core_class.class_name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2379 f = x_any_window_to_frame (get_device_from_display (display), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380 if (f)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2381 write_fmt_string_lisp (pstream, " \"%s\"", 1, f->name);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2382 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2385 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2386 XEvent_mode_to_string (int mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 switch (mode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2389 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390 case NotifyNormal: return "Normal";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 case NotifyGrab: return "Grab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392 case NotifyUngrab: return "Ungrab";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 case NotifyWhileGrabbed: return "WhileGrabbed";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2398 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2399 XEvent_detail_to_string (int detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401 switch (detail)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403 case NotifyAncestor: return "Ancestor";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 case NotifyInferior: return "Inferior";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 case NotifyNonlinear: return "Nonlinear";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 case NotifyNonlinearVirtual: return "NonlinearVirtual";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 case NotifyPointer: return "Pointer";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 case NotifyPointerRoot: return "PointerRoot";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 case NotifyDetailNone: return "DetailNone";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2414 static const char *
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2415 XEvent_visibility_to_string (int state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 switch (state)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 case VisibilityFullyObscured: return "FullyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 case VisibilityPartiallyObscured: return "PartiallyObscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 case VisibilityUnobscured: return "Unobscured";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 default: return "???";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 static void
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2427 describe_event (XEvent *event, Lisp_Object pstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 {
4952
19a72041c5ed Mule-izing, various fixes related to char * arguments
Ben Wing <ben@xemacs.org>
parents: 4790
diff changeset
2429 Ascbyte buf[100];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430 struct device *d = get_device_from_display (event->xany.display);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 sprintf (buf, "%s%s", x_event_name (event->type),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433 event->xany.send_event ? " (send)" : "");
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2434 write_fmt_string (pstream, "%-30s", buf);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435 switch (event->type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 case FocusIn:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438 case FocusOut:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440 XFocusChangeEvent *ev = &event->xfocus;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2441 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2442 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2443 XEvent_mode_to_string (ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2444 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2445 XEvent_detail_to_string (ev->detail));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 case KeyPress:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 XKeyEvent *ev = &event->xkey;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452 unsigned int state = ev->state;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2454 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2455 write_fmt_string (pstream, " subwindow: %ld\n", ev->subwindow);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2456 write_fmt_string (pstream, " state: ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2457 /* Complete list of modifier key masks */
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2458 if (state & ShiftMask) write_fmt_string (pstream, "Shift ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2459 if (state & LockMask) write_fmt_string (pstream, "Lock ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2460 if (state & ControlMask) write_fmt_string (pstream, "Control ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2461 if (state & Mod1Mask) write_fmt_string (pstream, "Mod1 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2462 if (state & Mod2Mask) write_fmt_string (pstream, "Mod2 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2463 if (state & Mod3Mask) write_fmt_string (pstream, "Mod3 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2464 if (state & Mod4Mask) write_fmt_string (pstream, "Mod4 ");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2465 if (state & Mod5Mask) write_fmt_string (pstream, "Mod5 ");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467 if (! state)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2468 write_fmt_string (pstream, "vanilla\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2470 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 if (x_key_is_modifier_p (ev->keycode, d))
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2472 write_fmt_string (pstream, " Modifier key");
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2473 write_fmt_string (pstream, " keycode: 0x%x\n", ev->keycode);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2477 case Expose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2478 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2480 XExposeEvent *ev = &event->xexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2481 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2482 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2483 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 ev->x, ev->y, ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2485 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2488 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 case GraphicsExpose:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2492 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 XGraphicsExposeEvent *ev = &event->xgraphicsexpose;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2495 describe_event_window (ev->drawable, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2496 write_fmt_string (pstream, " major: %s\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 (ev ->major_code == X_CopyArea ? "CopyArea" :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498 (ev->major_code == X_CopyPlane ? "CopyPlane" : "?")));
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2499 write_fmt_string (pstream,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2500 " region: x=%d y=%d width=%d height=%d\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 ev->x, ev->y, ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2502 write_fmt_string (pstream, " count: %d\n", ev->count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2504 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2505 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508 case EnterNotify:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 case LeaveNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2510 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2511 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2512 XCrossingEvent *ev = &event->xcrossing;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2513 describe_event_window (ev->window, ev->display, pstream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2515 write_fmt_string (pstream, " subwindow: 0x%x\n", ev->subwindow);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2516 write_fmt_string (pstream, " pos: %d %d\n", ev->x, ev->y);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2517 write_fmt_string (pstream, " root pos: %d %d\n", ev->x_root,
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2518 ev->y_root);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 #endif
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2520 write_fmt_string (pstream, " mode: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2521 XEvent_mode_to_string(ev->mode));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2522 write_fmt_string (pstream, " detail: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2523 XEvent_detail_to_string(ev->detail));
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2524 write_fmt_string (pstream, " focus: %d\n", ev->focus);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 #if 0
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2526 write_fmt_string (pstream, " state: 0x%x\n", ev->state);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2527 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2529 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2530 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2533 case ConfigureNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2534 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2535 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 XConfigureEvent *ev = &event->xconfigure;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2537 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2538 write_fmt_string (pstream, " above: 0x%lx\n", ev->above);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2539 write_fmt_string (pstream, " size: %d %d %d %d\n", ev->x, ev->y,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 ev->width, ev->height);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2541 write_fmt_string (pstream, " redirect: %d\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2542 ev->override_redirect);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2545 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2548 case VisibilityNotify:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2549 if (debug_x_events > 1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2550 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 XVisibilityEvent *ev = &event->xvisibility;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2552 describe_event_window (ev->window, ev->display, pstream);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2553 write_fmt_string (pstream, " state: %s\n",
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2554 XEvent_visibility_to_string (ev->state));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 else
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2557 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2559
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2560 case ClientMessage:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 XClientMessageEvent *ev = &event->xclient;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563 char *name = XGetAtomName (ev->display, ev->message_type);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2564 write_fmt_string (pstream, "%s", name);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2565 if (!strcmp (name, "WM_PROTOCOLS"))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2566 {
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2567 char *protname = XGetAtomName (ev->display, ev->data.l[0]);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2568 write_fmt_string (pstream, "(%s)", protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2569 XFree (protname);
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2570 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571 XFree (name);
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2572 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2576 default:
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2577 write_fmt_string (pstream, "\n");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 fflush (stdout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 #endif /* include describe_event definition */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2585
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2587 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588 /* get the next event from Xt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2589 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 /* This business exists because menu events "happen" when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592 menubar_selection_callback() is called from somewhere deep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2593 within XtAppProcessEvent in emacs_Xt_next_event(). The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2594 callback needs to terminate the modal loop in that function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2595 or else it will continue waiting until another event is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596 received.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 Same business applies to scrollbar events. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 signal_special_Xt_user_event (Lisp_Object channel, Lisp_Object function,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602 Lisp_Object object)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 Lisp_Object event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2606 XSET_EVENT_TYPE (event, misc_user_event);
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2607 XSET_EVENT_CHANNEL (event, channel);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2608 XSET_EVENT_MISC_USER_FUNCTION (event, function);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2609 XSET_EVENT_MISC_USER_OBJECT (event, object);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2610 enqueue_dispatch_event (event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2613 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2614 emacs_Xt_next_event (Lisp_Event *emacs_event)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 we_didnt_get_an_event:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618 while (NILP (dispatch_event_queue) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 !completed_timeouts &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 !fake_event_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 !process_events_occurred &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 !tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2624 if (in_modal_loop)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2625 {
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2626 /* in_modal_loop gets set when we are in the process of
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2627 dispatching an event (more specifically, when we are inside of
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2628 a menu callback -- if we get here, it means we called a filter
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2629 and the filter did something that tried to fetch an event,
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2630 e.g. sit-for). In such a case, we cannot safely dispatch any
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2631 more events. This is because those dispatching those events
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2632 could cause lwlib to be entered reentranty, specifically if
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2633 they are menu events. lwlib is not designed for this and will
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2634 crash. We used to see this crash constantly as a result of
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2635 QUIT checking, but QUIT will not now function in a modal loop.
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2636 However, we can't just not process any events at all, because
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2637 that will make sit-for etc. hang. So we go ahead and process
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2638 the non-X kinds of events. */
1292
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2639 #ifdef WIN32_ANY
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2640 mswindows_is_blocking = 1;
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2641 #endif
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2642 XtAppProcessEvent (Xt_app_con, XtIMTimer | XtIMAlternateInput);
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2643 #ifdef WIN32_ANY
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2644 mswindows_is_blocking = 0;
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2645 #endif
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2646 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2647 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2649 /* Stupid logic in XtAppProcessEvent() dictates that, if process
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2650 events and X events are both available, the process event gets
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2651 taken first. This will cause an infinite loop if we're being
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2652 called from Fdiscard_input().
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2653 */
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2654
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2655 if (XtAppPending (Xt_app_con) & XtIMXEvent)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2656 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2657 else
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2659 Lisp_Object devcons, concons;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2660
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2661 /* We're about to block. Xt has a bug in it (big surprise,
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2662 there) in that it blocks using select() and doesn't
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2663 flush the Xlib output buffers (XNextEvent() does this
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2664 automatically before blocking). So it's necessary
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2665 for us to do this ourselves. If we don't do it, then
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2666 display output may not be seen until the next time
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2667 an X event is received. (This happens esp. with
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2668 subprocess output that gets sent to a visible buffer.)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2669
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2670 #### The above comment may not have any validity. */
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2671
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2672 DEVICE_LOOP_NO_BREAK (devcons, concons)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2673 {
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2674 struct device *d;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2675 d = XDEVICE (XCAR (devcons));
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2676
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2677 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2678 /* emacs may be exiting */
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2679 XFlush (DEVICE_X_DISPLAY (d));
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2680 }
1292
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2681 #ifdef WIN32_ANY
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2682 mswindows_is_blocking = 1;
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2683 #endif
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2684 XtAppProcessEvent (Xt_app_con, XtIMAll);
1292
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2685 #ifdef WIN32_ANY
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2686 mswindows_is_blocking = 0;
f3437b56874d [xemacs-hg @ 2003-02-13 09:57:04 by ben]
ben
parents: 1268
diff changeset
2687 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2689 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2690 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2691
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2692 if (!NILP (dispatch_event_queue))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2694 Lisp_Object event, event2;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 788
diff changeset
2695 event2 = wrap_event (emacs_event);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2696 event = dequeue_dispatch_event ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697 Fcopy_event (event, event2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 Fdeallocate_event (event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 else if (tty_events_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 if (!Xt_tty_to_emacs_event (emacs_event))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 goto we_didnt_get_an_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705 else if (completed_timeouts)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706 Xt_timeout_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 else if (fake_event_occurred)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2709 /* A dummy event, so that a cycle of the command loop will occur. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710 fake_event_occurred = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 /* eval events have nil as channel */
934
c925bacdda60 [xemacs-hg @ 2002-07-29 09:21:12 by michaels]
michaels
parents: 872
diff changeset
2712 set_event_type (emacs_event, eval_event);
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2713 SET_EVENT_EVAL_FUNCTION (emacs_event, Qidentity);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2714 SET_EVENT_EVAL_OBJECT (emacs_event, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 else /* if (process_events_occurred) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717 Xt_process_to_emacs_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2719 /* No need to call XFilterEvent; Xt does it for us */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2720 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2722 void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2723 emacs_Xt_event_handler (Widget UNUSED (wid),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2724 XtPointer UNUSED (closure),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725 XEvent *event,
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2726 Boolean *UNUSED (continue_to_dispatch))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2727 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2728 Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2729
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2730 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2731 if (debug_x_events > 0)
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
2732 describe_event (event, Qexternal_debugging_output);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2733 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 if (x_event_to_emacs_event (event, XEVENT (emacs_event)))
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2735 enqueue_dispatch_event (emacs_event);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2736 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2737 Fdeallocate_event (emacs_event);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2738 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2739
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741 /************************************************************************/
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2742 /* input pending */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2743 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2745 static void
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2746 emacs_Xt_drain_queue (void)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2747 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2748 Lisp_Object devcons, concons;
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2749 if (!in_modal_loop)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2750 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2751 CONSOLE_LOOP (concons)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2753 struct console *con = XCONSOLE (XCAR (concons));
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2754 if (!con->input_enabled)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2755 continue;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2756
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2757 CONSOLE_DEVICE_LOOP (devcons, con)
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2758 {
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2759 struct device *d;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2760 Display *display;
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2761 d = XDEVICE (XCAR (devcons));
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2762 if (DEVICE_X_P (d) && DEVICE_X_DISPLAY (d))
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2763 {
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2764 display = DEVICE_X_DISPLAY (d);
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2765 while (XEventsQueued (display, QueuedAfterReading))
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2766 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2767 }
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2768 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 }
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2770 /*
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2771 while (XtAppPending (Xt_app_con) & XtIMXEvent)
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2772 XtAppProcessEvent (Xt_app_con, XtIMXEvent);
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2773 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 }
1268
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2775
fffe735e63ee [xemacs-hg @ 2003-02-07 11:50:50 by ben]
ben
parents: 1204
diff changeset
2776 #ifdef HAVE_TTY
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2777 drain_tty_devices ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2781 int
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2782 check_if_pending_expose_event (struct device *dev)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2783 {
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2784 Display *d = DEVICE_X_DISPLAY (dev);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2785 Lisp_Object event;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2786
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2787 emacs_Xt_drain_queue ();
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2788
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2789 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2790 if (XEVENT_TYPE (event) == magic_event)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2791 {
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2792 XEvent *xev = &XEVENT_MAGIC_X_EVENT (event);
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2793 if (xev->type == Expose &&
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2794 xev->xexpose.display == d)
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2795 return 1;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2796 }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2797
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2798 return 0;
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2799 }
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
2800
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2801 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2802 emacs_Xt_current_event_timestamp (struct console *c)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2803 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2804 /* semi-yuck. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2805 Lisp_Object devs = CONSOLE_DEVICE_LIST (c);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2806
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2807 if (NILP (devs))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2808 return 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2809 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2810 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2811 struct device *d = XDEVICE (XCAR (devs));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2812 return DEVICE_X_LAST_SERVER_TIMESTAMP (d);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2813 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2814 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2815
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 /* replacement for standard string-to-pixel converter */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 /* This was constructed by ripping off the standard string-to-pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 converter from Converters.c in the Xt source code and modifying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 appropriately. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 /* This is exported by the Xt library (at least by mine). If this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 isn't the case somewhere, rename this appropriately and remove
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 the '#if 0'. Note, however, that I got "unknown structure"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830 errors when I tried this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 XtConvertArgRec Const colorConvertArgs[] = {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2832 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.screen),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2833 sizeof (Screen *) },
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2834 { XtWidgetBaseOffset, (XtPointer)XtOffsetOf(WidgetRec, core.colormap),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2835 sizeof (Colormap) }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 #define done(type, value) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 if (toVal->addr != NULL) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 if (toVal->size < sizeof(type)) { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 return False; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 *(type*)(toVal->addr) = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 } else { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 static type static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 static_val = (value); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 toVal->addr = (XPointer)&static_val; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851 } \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 toVal->size = sizeof(type); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 return True /* Caller supplies `;' */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 /* JH: We use this because I think there's a possibility this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 is called before the device is properly set up, in which case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857 I don't want to abort. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858 extern struct device *get_device_from_display_1 (Display *dpy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 static
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 Boolean EmacsXtCvtStringToPixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2862 Display *dpy,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2863 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864 Cardinal *num_args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 XrmValuePtr fromVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2866 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 XtPointer *closure_ret)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 String str = (String)fromVal->addr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 XColor screenColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871 XColor exactColor;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872 Screen *screen;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 Colormap colormap;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 Visual *visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2876 Status status;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877 String params[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878 Cardinal num_params = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 XtAppContext the_app_con = XtDisplayToApplicationContext (dpy);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2881 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 XtAppWarningMsg(the_app_con, "wrongParameters", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 "String to pixel conversion needs screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2885 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2886 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890 colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 /* The original uses the private function CompareISOLatin1().
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 Use XmuCompareISOLatin1() if you want, but I don't think it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 makes any difference here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895 if (strcmp(str, XtDefaultBackground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 /* This refers to the display's "*reverseVideo" resource.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898 These display resources aren't documented anywhere that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 I can find, so I'm going to ignore this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2900 /* if (pd->rv) done(Pixel, BlackPixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901 done(Pixel, WhitePixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 if (strcmp(str, XtDefaultForeground) == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 /* if (pd->rv) done(Pixel, WhitePixelOfScreen(screen)) else */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 done(Pixel, BlackPixelOfScreen(screen));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 /* Originally called XAllocNamedColor() here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 if ((d = get_device_from_display_1(dpy))) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911 visual = DEVICE_X_VISUAL(d);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912 if (colormap != DEVICE_X_COLORMAP(d)) {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2913 XtAppWarningMsg(the_app_con, "weirdColormap", "cvtStringToPixel",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 "XtToolkitWarning",
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2915 "The colormap passed to cvtStringToPixel doesn't match the one registered to the device.\n",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 NULL, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 status = XParseColor (dpy, colormap, (char*)str, &screenColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2920 if (status) {
3094
ad2f4ae9895b [xemacs-hg @ 2005-11-26 11:45:47 by stephent]
stephent
parents: 3072
diff changeset
2921 status = x_allocate_nearest_color (dpy, colormap, visual, &screenColor);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2924 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2925 /* We haven't set up this device totally yet, so just punt */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2926 status = XAllocNamedColor(dpy, colormap, (char*)str, &screenColor, &exactColor);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2927 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2928 if (status == 0) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 params[0] = str;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2930 /* Server returns a specific error code but Xlib discards it. Ugh */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2931 if (XLookupColor(DisplayOfScreen(screen), colormap, (char*) str,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2932 &exactColor, &screenColor)) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933 XtAppWarningMsg(the_app_con, "noColormap", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2934 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2935 "Cannot allocate colormap entry for \"%s\"",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936 params, &num_params);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2939 XtAppWarningMsg(the_app_con, "badValue", "cvtStringToPixel",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940 "XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2941 "Color name \"%s\" is not defined", params, &num_params);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2942 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2944 *closure_ret = False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 return False;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946 } else {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947 *closure_ret = (char*)True;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2948 done(Pixel, screenColor.pixel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2949 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 /* ARGSUSED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2953 static void EmacsFreePixel (
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 XtAppContext app,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2955 XrmValuePtr toVal,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2956 XtPointer closure,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2957 XrmValuePtr args,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2958 Cardinal *num_args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 if (*num_args != 2) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 XtAppWarningMsg(app, "wrongParameters","freePixel","XtToolkitError",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 "Freeing a pixel requires screen and colormap arguments",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 (String *)NULL, (Cardinal *)NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2966
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 if (closure) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 Screen *screen = *((Screen **) args[0].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2969 Colormap colormap = *((Colormap *) args[1].addr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2970 XFreeColors(DisplayOfScreen(screen), colormap,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 (unsigned long*)toVal->addr, 1, (unsigned long)0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976 /************************************************************************/
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2977 /* handle focus changes for native widgets */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2978 /************************************************************************/
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2979 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2980 emacs_Xt_event_widget_focus_in (Widget w,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2981 XEvent *event,
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2982 String *UNUSED (params),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2983 Cardinal *UNUSED (num_params))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2984 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
2985 struct frame *f =
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2986 x_any_widget_or_parent_to_frame (get_device_from_display (event->xany.display), w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2987
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2988 XtSetKeyboardFocus (FRAME_X_SHELL_WIDGET (f), w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2989 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2990
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2991 static void
2286
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2992 emacs_Xt_event_widget_focus_out (Widget UNUSED (w),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2993 XEvent *UNUSED (event),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2994 String *UNUSED (params),
04bc9d2f42c7 [xemacs-hg @ 2004-09-20 19:18:55 by james]
james
parents: 2237
diff changeset
2995 Cardinal *UNUSED (num_params))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2996 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2997 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2998
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2999 static XtActionsRec widgetActionsList[] =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3000 {
4528
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
3001 { (String) "widget-focus-in", emacs_Xt_event_widget_focus_in },
726060ee587c First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents: 4522
diff changeset
3002 { (String) "widget-focus-out", emacs_Xt_event_widget_focus_out },
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3003 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3004
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3005 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3006 emacs_Xt_event_add_widget_actions (XtAppContext ctx)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3007 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3008 XtAppAddActions (ctx, widgetActionsList, 2);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3009 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3010
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3011
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3012 /************************************************************************/
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3015
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3016 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3017 syms_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3018 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3019 DEFSYMBOL (Qsans_modifiers);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 502
diff changeset
3020 DEFSYMBOL (Qself_insert_command);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3023 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3024 reinit_vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3025 {
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
3026 Xt_event_stream = xnew_and_zero (struct event_stream);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027 Xt_event_stream->event_pending_p = emacs_Xt_event_pending_p;
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
3028 Xt_event_stream->force_event_pending_cb= emacs_Xt_force_event_pending;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3029 Xt_event_stream->next_event_cb = emacs_Xt_next_event;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3030 Xt_event_stream->handle_magic_event_cb = emacs_Xt_handle_magic_event;
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3031 Xt_event_stream->format_magic_event_cb = emacs_Xt_format_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3032 Xt_event_stream->compare_magic_event_cb= emacs_Xt_compare_magic_event;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 771
diff changeset
3033 Xt_event_stream->hash_magic_event_cb = emacs_Xt_hash_magic_event;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3034 Xt_event_stream->add_timeout_cb = emacs_Xt_add_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3035 Xt_event_stream->remove_timeout_cb = emacs_Xt_remove_timeout;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3036 Xt_event_stream->select_console_cb = emacs_Xt_select_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3037 Xt_event_stream->unselect_console_cb = emacs_Xt_unselect_console;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3038 Xt_event_stream->select_process_cb = emacs_Xt_select_process;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039 Xt_event_stream->unselect_process_cb = emacs_Xt_unselect_process;
1204
e22b0213b713 [xemacs-hg @ 2003-01-12 11:07:58 by michaels]
michaels
parents: 1111
diff changeset
3040 Xt_event_stream->drain_queue_cb = emacs_Xt_drain_queue;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3041 Xt_event_stream->create_io_streams_cb = emacs_Xt_create_io_streams;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 851
diff changeset
3042 Xt_event_stream->delete_io_streams_cb = emacs_Xt_delete_io_streams;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3043 Xt_event_stream->current_event_timestamp_cb =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3044 emacs_Xt_current_event_timestamp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 the_Xt_timeout_blocktype = Blocktype_new (struct Xt_timeout_blocktype);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 last_quit_check_signal_tick_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 /* this function only makes safe calls */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 init_what_input_once ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055 vars_of_event_Xt (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 DEFVAR_BOOL ("x-allow-sendevents", &x_allow_sendevents /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 *Non-nil means to allow synthetic events. Nil means they are ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059 Beware: allowing emacs to process SendEvents opens a big security hole.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 x_allow_sendevents = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 #ifdef DEBUG_XEMACS
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3064 DEFVAR_INT ("debug-x-events", &debug_x_events /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 If non-zero, display debug information about X events that XEmacs sees.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 Information is displayed on stderr. Currently defined values are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 1 == non-verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 2 == verbose output
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 */ );
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3071 debug_x_events = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 #endif
3171
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3073 DEFVAR_LISP ("x-us-keymap-description", &Vx_us_keymap_description /*
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3074 X11-specific vector describing the current keyboard hardware, and how to map
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3075 from its keycodes to those alphanumeric and punctuation characters that
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3076 would be produced by it if a US layout were configured in software.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3077
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3078 We use this to make possible the usage of standard key bindings on keyboards
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3079 where the keys that those bindings assume are not available; for example, on
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3080 a Russian keyboard, one can type C-Cyrillic_che C-Cyrillic_a and have XEmacs
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3081 use the binding for C-x C-f, rather than give an error message that
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3082 C-Cyrillic_che C-Cyrillic_a is not bound.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3083
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3084 Entries are either nil, which means the corresponding key code does not map
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3085 to a non-function key in the US layout, a single character, meaning it maps to
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3086 that character, or a vector of two characters, the first indicating the
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3087 unshifted mapping, the second the shifted mapping for the US layout.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3088
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3089 `x-us-keymap-first-keycode' tells XEmacs the keycode of the first entry in
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3090 this vector.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3091 */ );
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3092 Vx_us_keymap_description = Qnil;
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3093
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3094 DEFVAR_INT ("x-us-keymap-first-keycode", &Vx_us_keymap_first_keycode /*
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3095 The X11 keycode that the first entry in `x-us-keymap-description'
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3096 corresponds to. See the documentation for that variable.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3097
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3098 The X11 documentation for XDisplayKeycodes says this can never be less than
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3099 8, but XEmacs doesn't enforce any limitation on what you set it to.
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3100 */ );
4cad7ff4a200 [xemacs-hg @ 2005-12-24 19:53:53 by aidan]
aidan
parents: 3142
diff changeset
3101 Vx_us_keymap_first_keycode = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3102 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3104 /* This mess is a hack that patches the shell widget to treat visual inheritance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3105 the same as colormap and depth inheritance */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107 static XtInitProc orig_shell_init_proc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108
2956
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben]
ben
parents: 2842
diff changeset
3109 static void ShellVisualPatch(Widget wanted, Widget new_,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3110 ArgList args, Cardinal *num_args)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3112 Widget p;
2956
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben]
ben
parents: 2842
diff changeset
3113 ShellWidget w = (ShellWidget) new_;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3115 /* first, call the original setup */
2956
ee35a8fdcfcd [xemacs-hg @ 2005-09-27 05:29:41 by ben]
ben
parents: 2842
diff changeset
3116 (*orig_shell_init_proc)(wanted, new_, args, num_args);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3118 /* if the visual isn't explicitly set, grab it from the nearest shell ancestor */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3119 if (w->shell.visual == CopyFromParent) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3120 p = XtParent(w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3121 while (p && !XtIsShell(p)) p = XtParent(p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3122 if (p) w->shell.visual = ((ShellWidget)p)->shell.visual;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3123 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3124 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127 init_event_Xt_late (void) /* called when already initialized */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3128 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 timeout_id_tick = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3130 pending_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3131 completed_timeouts = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133 event_stream = Xt_event_stream;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 XtToolkitInitialize ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3136 Xt_app_con = XtCreateApplicationContext ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3137 XtAppSetFallbackResources (Xt_app_con, (String *) x_fallback_resources);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3139 /* In select-x.c */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3140 x_selection_timeout = (XtAppGetSelectionTimeout (Xt_app_con) / 1000);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3141 XSetErrorHandler (x_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3142 XSetIOErrorHandler (x_IO_error_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3143
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3144 #ifndef WIN32_NATIVE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145 XtAppAddInput (Xt_app_con, signal_event_pipe[0],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3146 (XtPointer) (XtInputReadMask /* | XtInputExceptMask */),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3147 Xt_what_callback, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3148 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3150 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3151 EmacsXtCvtStringToPixel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3152 (XtConvertArgList) colorConvertArgs,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3153 2, XtCacheByDisplay, EmacsFreePixel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3155 #ifdef XIM_XLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3156 XtAppSetTypeConverter (Xt_app_con, XtRString, XtRXimStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3157 EmacsXtCvtStringToXIMStyles,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3158 NULL, 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3159 XtCacheByDisplay, EmacsFreeXIMStyles);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3160 #endif /* XIM_XLIB */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3161 /* Add extra actions to native widgets to handle focus and friends. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3162 emacs_Xt_event_add_widget_actions (Xt_app_con);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3164 /* insert the visual inheritance patch/hack described above */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 orig_shell_init_proc = shellClassRec.core_class.initialize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 shellClassRec.core_class.initialize = ShellVisualPatch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 }