Mercurial > hg > xemacs-beta
annotate src/device-gtk.c @ 1204:e22b0213b713
[xemacs-hg @ 2003-01-12 11:07:58 by michaels]
modules/ChangeLog:
2002-12-16 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c:
remove ifdef USE_KKCC.
src/ChangeLog:
2003-01-08 Mike Sperber <mike@xemacs.org>
* console.h (CDFW_CONSOLE): Don't lead to a crash if we're dealing
with a dead window/frame/device/console.
2002-12-20 Mike Sperber <mike@xemacs.org>
* ui-gtk.c: Fix typo from Ben's patch: emacs_ffi_data is a
typedef, not a struct. emacs_gtk_object_data is a typedef, not a
struct.
* gtk-glue.c (gdk_event_to_emacs_event): Fix typos from Ben's
patch: le -> emacs_event + rearrange the code.
* event-gtk.c (gtk_event_to_emacs_event): Fix typos from Ben's
patch: ..._UNDERLYING_GDK_EVENT -> ..._GDK_EVENT, ev -> key_event.
* device-gtk.c: Fix typo from Ben's patch: x_keysym_map_hash_table
-> x_keysym_map_hashtable.
2002-12-19 Mike Sperber <mike@xemacs.org>
* menubar-x.c (set_frame_menubar): Initialize protect_me field of
popup_data.
2002-12-16 Ben Wing <ben@xemacs.org>
Major cleanup of KKCC, etc.
KKCC, pdump-related:
-- descriptions are written for all objects. this required some
changes in the format of some objects, e.g. extents, popup-data,
coding system, lstream, lcrecord-list.
-- KKCC now handles weakness in markers, hash tables, elsewhere
correctly (formerly, you'd eventually get a stack overflow due
to endlessly expanding markers).
-- textual changes: lrecord_description -> memory_description,
struct_description -> sized_memory_description.
-- extensive comment describing descriptions and pdump.
-- redo XD_UNION so it works inline and change its format to provide
sufficient info for pdump. implement XD_UNION in pdump. also add
XD_UNION_DYNAMIC_SIZE, which works like XD_UNION except for when
auto-computing structure sizes.
-- add support for XD_INDIRECT in description offsets (used by
extents).
-- add support for "description maps", allowing for indirect
descriptions that are retrieved from an object at run-time. this
generalizes XD_CODING_SYSTEM_END, XD_SPECIFIER_END, etc., which
have now been eliminated.
-- add a fifth field "flags" to memory_description, to support flags
that can be specified for this particular line. Currently defined
flags are XD_FLAG_NO_KKCC (KKCC should ignore this entry; useful
for the weakness above in markers, etc.), XD_FLAG_NO_PDUMP (pdump
should ignore this entry), XD_FLAG_UNION_DEFAULT_ENTRY (in
union maps, this specifies a "default" entry for all remaining
values), and XD_FLAG_FREE_LISP_OBJECT (for use with lcrecord-lists).
-- clean up the kkcc-itis in events, so that the differences
between event data as separate objects and as a union are now
minimized to a small number of places. with the new XD_UNION, we
no longer need event data as separate objects, so this code is no
longer ifdef USE_KKCC, but instead ifdef EVENT_DATA_AS_OBJECTS,
not used by default. make sure that we explicitly free the
separate event data objects when no longer in use, to maintain the
invariant the event processing causes no consing.
-- also remove other USE_KKCC ifdefs when not necessary.
-- allow for KKCC compilation under MS Windows.
-- fix README.kkcc.
-- dump_add_root_object -> dump_add_root_lisp_object.
-- implement dump_add_root_block and use this to handle
dump_add_opaque.
-- factor out some code duplicated in kkcc and pdump.
Other allocation/object-related:
-- change various *slots.h so MARKED_SLOT() call no longer
includes semicolon.
-- free_marker() takes a Lisp_Object not a direct pointer.
-- make bit vectors lcrecords, like vectors, and eliminate code
that essentially duplicated the lcrecord handling.
-- additional asserts in FREE_FIXED_TYPE, formerly duplicated in
the various callers of this.
-- all lcrecord allocation functions now zero out the returned
lcrecords. unnecessary calls to zero_lcrecord removed. add long
comment describing these functions.
-- extract out process and coding system slots, like for buffers,
frames, etc.
-- lcrecords now set the type of items sitting on the free list to
lcrecord_type_free.
-- changes to the way that gap arrays are allocated, for kkcc's
benefit -- now, one single memory block with a stretchy array on
the end, instead of a separate block holding the array.
Error-checking-related:
-- now can compile with C++ under MS Windows. clean up compile errors
discovered that way. (a few were real problems)
-- add C++ error-checking code to verify problems with mismatched
GCPRO/UNGCPRO. (there were a few in the kkcc code.) add long
comment about how to catch insufficient GCPRO (yes, it's possible
using C++).
-- add debug_p4(), a simple object printer, when debug_print()
doesn't work.
-- add dp() and db() as short synonyms of debug_print(),
debug_backtrace().
-- `print' tries EXTREMELY hard to avoid core dumping when printing
when crashing or from debug_print(), and tries as hard as it
reasonably can in other situations.
-- Correct the message output upon crashing to be more up-to-date.
Event-related:
-- document event-matches-key-specifier-p better.
-- generalize the dispatch queues formerly duplicated in the
various event implementations. add event methods to drain pending
events. generalize and clean up QUIT handling, removing
event-specific quit processing. allow arbitrary keystrokes, not
just ASCII, to be the QUIT char. among other things, this should
fix some longstanding bugs in X quit handling. long comment
describing the various event queues.
-- implement delaying of XFlush() if there are pending expose events.
SOMEONE PLEASE TRY THIS OUT.
-- Fix `xemacs -batch -l dunnet' under Cygwin. Try to fix under
MS Windows but not quite there yet.
Other:
-- class -> class_ and no more C++ games with this item.
new -> new_ in the lwlib code, so far not elsewhere.
-- use `struct htentry' not `struct hentry' in elhash.c to avoid
debugger confusion with hash.c.
-- new macros ALIST_LOOP_3, ALIST_LOOP_4.
* README.kkcc:
* alloc.c:
* alloc.c (deadbeef_memory):
* alloc.c (allocate_lisp_storage):
* alloc.c (copy_lisp_object):
* alloc.c (ALLOCATE_FIXED_TYPE_1):
* alloc.c (FREE_FIXED_TYPE):
* alloc.c (make_vector_internal):
* alloc.c (make_bit_vector_internal):
* alloc.c (make_key_data):
* alloc.c (make_button_data):
* alloc.c (make_motion_data):
* alloc.c (make_process_data):
* alloc.c (make_timeout_data):
* alloc.c (make_magic_data):
* alloc.c (make_magic_eval_data):
* alloc.c (make_eval_data):
* alloc.c (make_misc_user_data):
* alloc.c (struct string_chars_block):
* alloc.c (mark_lcrecord_list):
* alloc.c (make_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (alloc_automanaged_lcrecord):
* alloc.c (staticpro_1):
* alloc.c (staticpro):
* alloc.c (lispdesc_indirect_count_1):
* alloc.c (lispdesc_indirect_description_1):
* alloc.c (lispdesc_one_description_line_size):
* alloc.c (lispdesc_structure_size):
* alloc.c (mark_object_maybe_checking_free):
* alloc.c (mark_with_description):
* alloc.c (mark_struct_contents):
* alloc.c (mark_object):
* alloc.c (tick_lcrecord_stats):
* alloc.c (free_cons):
* alloc.c (free_key_data):
* alloc.c (free_button_data):
* alloc.c (free_motion_data):
* alloc.c (free_process_data):
* alloc.c (free_timeout_data):
* alloc.c (free_magic_data):
* alloc.c (free_magic_eval_data):
* alloc.c (free_eval_data):
* alloc.c (free_misc_user_data):
* alloc.c (free_marker):
* alloc.c (compact_string_chars):
* alloc.c (gc_sweep):
* alloc.c (garbage_collect_1):
* alloc.c (Fgarbage_collect):
* alloc.c (common_init_alloc_early):
* alloc.c (init_alloc_early):
* alloc.c (init_alloc_once_early):
* buffer.c:
* buffer.c (mark_buffer):
* buffer.c (MARKED_SLOT):
* buffer.c (cleanup_buffer_undo_lists):
* buffer.c (Fget_file_buffer):
* buffer.h (MARKED_SLOT):
* bufslots.h:
* bytecode.c:
* callint.c:
* casetab.c:
* chartab.c:
* chartab.c (symbol_to_char_table_type):
* cmdloop.c:
* cmdloop.c (Fcommand_loop_1):
* config.h.in (new):
* conslots.h:
* console-gtk-impl.h (struct gtk_frame):
* console-impl.h:
* console-impl.h (struct console):
* console-impl.h (MARKED_SLOT):
* console-impl.h (CONSOLE_QUIT_EVENT):
* console-msw-impl.h (XM_BUMPQUEUE):
* console-msw.c (write_string_to_mswindows_debugging_output):
* console-msw.h:
* console-stream-impl.h:
* console-stream-impl.h (struct stream_console):
* console-stream.c:
* console-stream.c (stream_init_console):
* console-stream.h:
* console-tty.c:
* console-tty.h:
* console-x.h:
* console.c:
* console.c (mark_console):
* console.c (MARKED_SLOT):
* console.c (allocate_console):
* console.c (get_console_variant):
* console.c (create_console):
* console.c (delete_console_internal):
* console.c (Fset_input_mode):
* console.c (Fcurrent_input_mode):
* console.c (common_init_complex_vars_of_console):
* console.h:
* console.h (console_variant):
* console.h (device_metrics):
* data.c:
* data.c (Faref):
* data.c (Faset):
* data.c (decode_weak_list_type):
* database.c:
* debug.c (xemacs_debug_loop):
* debug.c (FROB):
* debug.c (Fadd_debug_class_to_check):
* debug.c (Fdelete_debug_class_to_check):
* debug.c (Fset_debug_classes_to_check):
* debug.c (Fset_debug_class_types_to_check):
* debug.c (Fdebug_types_being_checked):
* debug.h (DASSERT):
* device-gtk.c:
* device-impl.h (struct device):
* device-impl.h (MARKED_SLOT):
* device-msw.c:
* device-x.c:
* device-x.c (x_init_device_class):
* device-x.c (x_comp_visual_info):
* device-x.c (x_try_best_visual_class):
* device-x.c (x_init_device):
* device-x.c (construct_name_list):
* device-x.c (x_get_resource_prefix):
* device-x.c (Fx_get_resource):
* device-x.c (Fx_display_visual_class):
* device.c:
* device.c (MARKED_SLOT):
* device.c (allocate_device):
* device.c (Fmake_device):
* device.c (delete_device_internal):
* device.c (Fset_device_class):
* device.h:
* devslots.h:
* devslots.h (MARKED_SLOT):
* dialog-msw.c:
* dired-msw.c (mswindows_ls_sort_fcn):
* dired-msw.c (mswindows_get_files):
* dired-msw.c (mswindows_format_file):
* doprnt.c (parse_doprnt_spec):
* dumper.c:
* dumper.c (struct):
* dumper.c (dump_add_root_block):
* dumper.c (dump_add_root_struct_ptr):
* dumper.c (dump_add_root_lisp_object):
* dumper.c (pdump_struct_list_elt):
* dumper.c (pdump_get_entry_list):
* dumper.c (pdump_backtrace):
* dumper.c (pdump_bump_depth):
* dumper.c (pdump_register_sub):
* dumper.c (pdump_register_object):
* dumper.c (pdump_register_struct_contents):
* dumper.c (pdump_register_struct):
* dumper.c (pdump_store_new_pointer_offsets):
* dumper.c (pdump_dump_data):
* dumper.c (pdump_reloc_one):
* dumper.c (pdump_allocate_offset):
* dumper.c (pdump_scan_by_alignment):
* dumper.c (pdump_dump_root_blocks):
* dumper.c (pdump_dump_rtables):
* dumper.c (pdump_dump_root_lisp_objects):
* dumper.c (pdump):
* dumper.c (pdump_load_finish):
* dumper.c (pdump_file_get):
* dumper.c (pdump_resource_get):
* dumper.c (pdump_load):
* editfns.c (save_excursion_restore):
* editfns.c (user_login_name):
* editfns.c (save_restriction_restore):
* elhash.c:
* elhash.c (htentry):
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (HTENTRY_CLEAR_P):
* elhash.c (LINEAR_PROBING_LOOP):
* elhash.c (check_hash_table_invariants):
* elhash.c (mark_hash_table):
* elhash.c (hash_table_equal):
* elhash.c (print_hash_table_data):
* elhash.c (free_hentries):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (decode_hash_table_weakness):
* elhash.c (decode_hash_table_test):
* elhash.c (Fcopy_hash_table):
* elhash.c (resize_hash_table):
* elhash.c (pdump_reorganize_hash_table):
* elhash.c (find_htentry):
* elhash.c (Fgethash):
* elhash.c (Fputhash):
* elhash.c (remhash_1):
* elhash.c (Fremhash):
* elhash.c (Fclrhash):
* elhash.c (copy_compress_hentries):
* elhash.c (elisp_maphash_unsafe):
* elhash.c (finish_marking_weak_hash_tables):
* elhash.c (prune_weak_hash_tables):
* elhash.h:
* emacs.c:
* emacs.c (main_1):
* emacs.c (main):
* emacs.c (shut_down_emacs):
* emodules.h (dump_add_root_lisp_object):
* eval.c:
* eval.c (unwind_to_catch):
* eval.c (maybe_signal_error_1):
* eval.c (maybe_signal_continuable_error_1):
* eval.c (maybe_signal_error):
* eval.c (maybe_signal_continuable_error):
* eval.c (maybe_signal_error_2):
* eval.c (maybe_signal_continuable_error_2):
* eval.c (maybe_signal_ferror):
* eval.c (maybe_signal_continuable_ferror):
* eval.c (maybe_signal_ferror_with_frob):
* eval.c (maybe_signal_continuable_ferror_with_frob):
* eval.c (maybe_syntax_error):
* eval.c (maybe_sferror):
* eval.c (maybe_invalid_argument):
* eval.c (maybe_invalid_constant):
* eval.c (maybe_invalid_operation):
* eval.c (maybe_invalid_change):
* eval.c (maybe_invalid_state):
* eval.c (Feval):
* eval.c (call_trapping_problems):
* eval.c (call_with_suspended_errors):
* eval.c (warn_when_safe_lispobj):
* eval.c (warn_when_safe):
* eval.c (vars_of_eval):
* event-Xt.c:
* event-Xt.c (maybe_define_x_key_as_self_inserting_character):
* event-Xt.c (x_to_emacs_keysym):
* event-Xt.c (x_event_to_emacs_event):
* event-Xt.c (emacs_Xt_enqueue_focus_event):
* event-Xt.c (emacs_Xt_format_magic_event):
* event-Xt.c (emacs_Xt_compare_magic_event):
* event-Xt.c (emacs_Xt_hash_magic_event):
* event-Xt.c (emacs_Xt_handle_magic_event):
* event-Xt.c (Xt_timeout_to_emacs_event):
* event-Xt.c (Xt_process_to_emacs_event):
* event-Xt.c (signal_special_Xt_user_event):
* event-Xt.c (emacs_Xt_next_event):
* event-Xt.c (emacs_Xt_event_handler):
* event-Xt.c (emacs_Xt_drain_queue):
* event-Xt.c (emacs_Xt_event_pending_p):
* event-Xt.c (check_if_pending_expose_event):
* event-Xt.c (reinit_vars_of_event_Xt):
* event-Xt.c (vars_of_event_Xt):
* event-gtk.c:
* event-gtk.c (IS_MODIFIER_KEY):
* event-gtk.c (emacs_gtk_format_magic_event):
* event-gtk.c (emacs_gtk_compare_magic_event):
* event-gtk.c (emacs_gtk_hash_magic_event):
* event-gtk.c (emacs_gtk_handle_magic_event):
* event-gtk.c (gtk_to_emacs_keysym):
* event-gtk.c (gtk_timeout_to_emacs_event):
* event-gtk.c (gtk_process_to_emacs_event):
* event-gtk.c (dragndrop_data_received):
* event-gtk.c (signal_special_gtk_user_event):
* event-gtk.c (emacs_gtk_next_event):
* event-gtk.c (gtk_event_to_emacs_event):
* event-gtk.c (generic_event_handler):
* event-gtk.c (emacs_shell_event_handler):
* event-gtk.c (emacs_gtk_drain_queue):
* event-gtk.c (emacs_gtk_event_pending_p):
* event-gtk.c (reinit_vars_of_event_gtk):
* event-gtk.c (vars_of_event_gtk):
* event-msw.c:
* event-msw.c (struct winsock_stream):
* event-msw.c (winsock_reader):
* event-msw.c (winsock_writer):
* event-msw.c (mswindows_enqueue_dispatch_event):
* event-msw.c (mswindows_enqueue_misc_user_event):
* event-msw.c (mswindows_enqueue_magic_event):
* event-msw.c (mswindows_enqueue_process_event):
* event-msw.c (mswindows_enqueue_mouse_button_event):
* event-msw.c (mswindows_enqueue_keypress_event):
* event-msw.c (mswindows_dequeue_dispatch_event):
* event-msw.c (emacs_mswindows_drain_queue):
* event-msw.c (mswindows_need_event_in_modal_loop):
* event-msw.c (mswindows_need_event):
* event-msw.c (mswindows_wm_timer_callback):
* event-msw.c (dde_eval_string):
* event-msw.c (Fdde_alloc_advise_item):
* event-msw.c (mswindows_dde_callback):
* event-msw.c (mswindows_wnd_proc):
* event-msw.c (remove_timeout_mapper):
* event-msw.c (emacs_mswindows_remove_timeout):
* event-msw.c (emacs_mswindows_event_pending_p):
* event-msw.c (emacs_mswindows_format_magic_event):
* event-msw.c (emacs_mswindows_compare_magic_event):
* event-msw.c (emacs_mswindows_hash_magic_event):
* event-msw.c (emacs_mswindows_handle_magic_event):
* event-msw.c (emacs_mswindows_select_console):
* event-msw.c (emacs_mswindows_unselect_console):
* event-msw.c (reinit_vars_of_event_mswindows):
* event-msw.c (vars_of_event_mswindows):
* event-stream.c:
* event-stream.c (mark_command_builder):
* event-stream.c (reset_command_builder_event_chain):
* event-stream.c (allocate_command_builder):
* event-stream.c (copy_command_builder):
* event-stream.c (command_builder_append_event):
* event-stream.c (event_stream_event_pending_p):
* event-stream.c (event_stream_force_event_pending):
* event-stream.c (maybe_read_quit_event):
* event-stream.c (event_stream_drain_queue):
* event-stream.c (remove_quit_p_event):
* event-stream.c (event_stream_quit_p):
* event-stream.c (echo_key_event):
* event-stream.c (maybe_kbd_translate):
* event-stream.c (execute_help_form):
* event-stream.c (event_stream_generate_wakeup):
* event-stream.c (enqueue_dispatch_event):
* event-stream.c (enqueue_magic_eval_event):
* event-stream.c (Fenqueue_eval_event):
* event-stream.c (enqueue_misc_user_event):
* event-stream.c (enqueue_misc_user_event_pos):
* event-stream.c (next_event_internal):
* event-stream.c (Fnext_event):
* event-stream.c (Faccept_process_output):
* event-stream.c (execute_internal_event):
* event-stream.c (munge_keymap_translate):
* event-stream.c (command_builder_find_leaf_no_mule_processing):
* event-stream.c (command_builder_find_leaf):
* event-stream.c (lookup_command_event):
* event-stream.c (is_scrollbar_event):
* event-stream.c (execute_command_event):
* event-stream.c (Fdispatch_event):
* event-stream.c (Fread_key_sequence):
* event-stream.c (dribble_out_event):
* event-stream.c (vars_of_event_stream):
* event-tty.c (tty_timeout_to_emacs_event):
* event-tty.c (emacs_tty_next_event):
* event-tty.c (emacs_tty_drain_queue):
* event-tty.c (reinit_vars_of_event_tty):
* event-unixoid.c:
* event-unixoid.c (find_tty_or_stream_console_from_fd):
* event-unixoid.c (read_event_from_tty_or_stream_desc):
* event-unixoid.c (drain_tty_devices):
* event-unixoid.c (poll_fds_for_input):
* events.c:
* events.c (deinitialize_event):
* events.c (zero_event):
* events.c (mark_event):
* events.c (print_event_1):
* events.c (print_event):
* events.c (event_equal):
* events.c (event_hash):
* events.c (Fmake_event):
* events.c (Fdeallocate_event):
* events.c (Fcopy_event):
* events.c (map_event_chain_remove):
* events.c (character_to_event):
* events.c (event_to_character):
* events.c (Fevent_to_character):
* events.c (format_event_object):
* events.c (upshift_event):
* events.c (downshift_event):
* events.c (event_upshifted_p):
* events.c (Fevent_live_p):
* events.c (Fevent_type):
* events.c (Fevent_timestamp):
* events.c (CHECK_EVENT_TYPE):
* events.c (CHECK_EVENT_TYPE2):
* events.c (CHECK_EVENT_TYPE3):
* events.c (Fevent_key):
* events.c (Fevent_button):
* events.c (Fevent_modifier_bits):
* events.c (event_x_y_pixel_internal):
* events.c (event_pixel_translation):
* events.c (Fevent_process):
* events.c (Fevent_function):
* events.c (Fevent_object):
* events.c (Fevent_properties):
* events.c (syms_of_events):
* events.c (vars_of_events):
* events.h:
* events.h (struct event_stream):
* events.h (struct Lisp_Key_Data):
* events.h (KEY_DATA_KEYSYM):
* events.h (EVENT_KEY_KEYSYM):
* events.h (struct Lisp_Button_Data):
* events.h (EVENT_BUTTON_BUTTON):
* events.h (struct Lisp_Motion_Data):
* events.h (EVENT_MOTION_X):
* events.h (struct Lisp_Process_Data):
* events.h (EVENT_PROCESS_PROCESS):
* events.h (struct Lisp_Timeout_Data):
* events.h (EVENT_TIMEOUT_INTERVAL_ID):
* events.h (struct Lisp_Eval_Data):
* events.h (EVENT_EVAL_FUNCTION):
* events.h (struct Lisp_Misc_User_Data):
* events.h (EVENT_MISC_USER_FUNCTION):
* events.h (struct Lisp_Magic_Eval_Data):
* events.h (EVENT_MAGIC_EVAL_INTERNAL_FUNCTION):
* events.h (struct Lisp_Magic_Data):
* events.h (EVENT_MAGIC_UNDERLYING):
* events.h (EVENT_MAGIC_GDK_EVENT):
* events.h (struct Lisp_Event):
* events.h (XEVENT_CHANNEL):
* events.h (SET_EVENT_TIMESTAMP_ZERO):
* events.h (SET_EVENT_CHANNEL):
* events.h (SET_EVENT_NEXT):
* events.h (XSET_EVENT_TYPE):
* events.h (struct command_builder):
* extents.c:
* extents.c (gap_array_adjust_markers):
* extents.c (gap_array_recompute_derived_values):
* extents.c (gap_array_move_gap):
* extents.c (gap_array_make_gap):
* extents.c (gap_array_insert_els):
* extents.c (gap_array_delete_els):
* extents.c (gap_array_make_marker):
* extents.c (gap_array_delete_marker):
* extents.c (gap_array_move_marker):
* extents.c (make_gap_array):
* extents.c (free_gap_array):
* extents.c (extent_list_num_els):
* extents.c (extent_list_insert):
* extents.c (mark_extent_auxiliary):
* extents.c (allocate_extent_auxiliary):
* extents.c (decode_extent_at_flag):
* extents.c (verify_extent_mapper):
* extents.c (symbol_to_glyph_layout):
* extents.c (syms_of_extents):
* faces.c:
* file-coding.c:
* file-coding.c (struct_detector_category_description =):
* file-coding.c (detector_category_dynarr_description_1):
* file-coding.c (struct_detector_description =):
* file-coding.c (detector_dynarr_description_1):
* file-coding.c (MARKED_SLOT):
* file-coding.c (mark_coding_system):
* file-coding.c (coding_system_extra_description_map):
* file-coding.c (coding_system_description):
* file-coding.c (allocate_coding_system):
* file-coding.c (symbol_to_eol_type):
* file-coding.c (Fcoding_system_aliasee):
* file-coding.c (set_coding_stream_coding_system):
* file-coding.c (struct convert_eol_coding_system):
* file-coding.c (struct undecided_coding_system):
* file-coding.c (undecided_mark_coding_stream):
* file-coding.c (coding_category_symbol_to_id):
* file-coding.c (struct gzip_coding_system):
* file-coding.c (coding_system_type_create):
* file-coding.h:
* file-coding.h (struct Lisp_Coding_System):
* file-coding.h (CODING_SYSTEM_SLOT_DECLARATION):
* file-coding.h (coding_system_variant):
* file-coding.h (struct coding_system_methods):
* file-coding.h (DEFINE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (INITIALIZE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (struct coding_stream):
* fileio.c (Fsubstitute_in_file_name):
* floatfns.c:
* fns.c:
* fns.c (base64_encode_1):
* frame-gtk.c:
* frame-gtk.c (Fgtk_start_drag_internal):
* frame-impl.h (struct frame):
* frame-impl.h (MARKED_SLOT):
* frame-msw.c:
* frame-x.c:
* frame-x.c (Fcde_start_drag_internal):
* frame-x.c (Foffix_start_drag_internal):
* frame.c:
* frame.c (MARKED_SLOT):
* frame.c (allocate_frame_core):
* frame.c (delete_frame_internal):
* frame.c (Fmouse_position_as_motion_event):
* frameslots.h:
* frameslots.h (MARKED_SLOT_ARRAY):
* free-hook.c:
* glyphs-msw.c (mswindows_widget_instantiate):
* glyphs-x.c:
* glyphs-x.c (convert_EImage_to_XImage):
* glyphs.c:
* glyphs.c (process_image_string_instantiator):
* glyphs.c (mark_image_instance):
* glyphs.c (allocate_image_instance):
* glyphs.c (unmap_subwindow):
* glyphs.c (map_subwindow):
* glyphs.c (syms_of_glyphs):
* glyphs.c (specifier_type_create_image):
* glyphs.h:
* glyphs.h (struct text_image_instance):
* glyphs.h (struct Lisp_Image_Instance):
* gmalloc.c:
* gmalloc.c ("C"):
* gpmevent.c (Freceive_gpm_event):
* gpmevent.c (gpm_next_event_cb):
* gpmevent.c (vars_of_gpmevent):
* gtk-glue.c (gdk_event_to_emacs_event):
* gtk-xemacs.c (gtk_xemacs_class_init):
* gui-msw.c:
* gui-msw.c (mswindows_handle_gui_wm_command):
* gui-msw.c (mswindows_translate_menu_or_dialog_item):
* gui-x.c:
* gui-x.c (mark_popup_data):
* gui-x.c (snarf_widget_value_mapper):
* gui-x.c (gcpro_popup_callbacks):
* gui-x.c (ungcpro_popup_callbacks):
* gui-x.c (free_popup_widget_value_tree):
* gui-x.c (popup_selection_callback):
* gui-x.h:
* gui-x.h (struct popup_data):
* gui.c:
* gui.c (allocate_gui_item):
* gutter.c (decode_gutter_position):
* hash.c (NULL_ENTRY):
* indent.c (vmotion_1):
* indent.c (vmotion_pixels):
* input-method-motif.c (res):
* input-method-xlib.c (IMInstantiateCallback):
* input-method-xlib.c (XIM_init_device):
* input-method-xlib.c (res):
* intl-encap-win32.c:
* intl-encap-win32.c (qxeSHGetDataFromIDList):
* intl-win32.c:
* intl-win32.c (mswindows_multibyte_cp_type):
* intl-win32.c (struct mswindows_multibyte_coding_system):
* keymap.c:
* keymap.c (make_key_description):
* keymap.c (keymap_store):
* keymap.c (get_keyelt):
* keymap.c (keymap_lookup_1):
* keymap.c (define_key_parser):
* keymap.c (key_desc_list_to_event):
* keymap.c (event_matches_key_specifier_p):
* keymap.c (meta_prefix_char_p):
* keymap.c (ensure_meta_prefix_char_keymapp):
* keymap.c (Fdefine_key):
* keymap.c (struct raw_lookup_key_mapper_closure):
* keymap.c (raw_lookup_key):
* keymap.c (raw_lookup_key_mapper):
* keymap.c (lookup_keys):
* keymap.c (lookup_events):
* keymap.c (Flookup_key):
* keymap.c (struct map_keymap_unsorted_closure):
* keymap.c (map_keymap_unsorted_mapper):
* keymap.c (map_keymap_sorted):
* keymap.c (map_keymap_mapper):
* keymap.c (map_keymap):
* keymap.c (accessible_keymaps_mapper_1):
* keymap.c (Faccessible_keymaps):
* keymap.c (Fsingle_key_description):
* keymap.c (raw_keys_to_keys):
* keymap.c (format_raw_keys):
* keymap.c (where_is_recursive_mapper):
* keymap.c (where_is_internal):
* keymap.c (describe_map_mapper_shadow_search):
* keymap.c (keymap_lookup_inherited_mapper):
* keymap.c (describe_map_mapper):
* keymap.h (event_matches_key_specifier_p):
* lisp.h:
* lisp.h (this):
* lisp.h (RETURN_NOT_REACHED):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (UNGCPRO_1):
* lisp.h (NUNGCPRO):
* lisp.h (NNUNGCPRO):
* lisp.h (DECLARE_INLINE_HEADER):
* lrecord.h:
* lrecord.h (struct lrecord_header):
* lrecord.h (struct lcrecord_header):
* lrecord.h (lrecord_type):
* lrecord.h (struct lrecord_implementation):
* lrecord.h (RECORD_DUMPABLE):
* lrecord.h (memory_description_type):
* lrecord.h (data_description_entry_flags):
* lrecord.h (struct memory_description):
* lrecord.h (struct sized_memory_description):
* lrecord.h (XD_INDIRECT):
* lrecord.h (XD_IS_INDIRECT):
* lrecord.h (XD_DYNARR_DESC):
* lrecord.h (DEFINE_BASIC_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_EXTERNAL_LRECORD_IMPLEMENTATION):
* lrecord.h (alloc_lcrecord_type):
* lstream.c:
* lstream.c (Lstream_new):
* lstream.c (lisp_buffer_marker):
* lstream.h:
* lstream.h (lstream_implementation):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION_WITH_DATA):
* marker.c:
* marker.c (copy_marker_1):
* mem-limits.h:
* menubar-gtk.c:
* menubar-gtk.c (gtk_popup_menu):
* menubar-msw.c:
* menubar-msw.c (mswindows_popup_menu):
* menubar-x.c (make_dummy_xbutton_event):
* menubar-x.c (command_builder_operate_menu_accelerator):
* menubar-x.c (menu_accelerator_safe_compare):
* menubar-x.c (menu_accelerator_safe_mod_compare):
* mule-charset.c:
* mule-charset.c (make_charset):
* mule-charset.c (Fcharset_property):
* mule-coding.c:
* mule-coding.c (ccs_description_1):
* mule-coding.c (ccs_description =):
* mule-coding.c (ccsd_description_1):
* mule-coding.c (ccsd_description =):
* nt.c (getpwnam):
* nt.c (init_mswindows_environment):
* nt.c (get_cached_volume_information):
* nt.c (mswindows_is_executable):
* nt.c (read_unc_volume):
* nt.c (mswindows_access):
* nt.c (mswindows_link):
* nt.c (mswindows_fstat):
* nt.c (mswindows_stat):
* nt.c (mswindows_executable_type):
* nt.c (Fmswindows_short_file_name):
* nt.c (Fmswindows_long_file_name):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects-tty.c:
* objects-x.c (allocate_nearest_color):
* objects.c:
* objects.c (Fmake_color_instance):
* objects.c (Fmake_font_instance):
* objects.c (font_instantiate):
* opaque.c:
* opaque.c (make_opaque):
* opaque.c (make_opaque_ptr):
* opaque.c (reinit_opaque_early):
* opaque.c (init_opaque_once_early):
* print.c:
* print.c (printing_badness):
* print.c (printing_major_badness):
* print.c (print_internal):
* print.c (debug_p4):
* print.c (dp):
* print.c (debug_backtrace):
* process-nt.c (nt_create_process):
* process-nt.c (get_internet_address):
* process-unix.c:
* process-unix.c (struct unix_process_data):
* process-unix.c (get_internet_address):
* process-unix.c (unix_alloc_process_data):
* process-unix.c (unix_create_process):
* process-unix.c (try_to_initialize_subtty):
* process-unix.c (unix_kill_child_process):
* process-unix.c (process_type_create_unix):
* process.c:
* process.c (mark_process):
* process.c (MARKED_SLOT):
* process.c (make_process_internal):
* process.c (Fprocess_tty_name):
* process.c (decode_signal):
* process.h:
* procimpl.h:
* procimpl.h (struct process_methods):
* procimpl.h (struct Lisp_Process):
* rangetab.c:
* realpath.c (readlink_and_correct_case):
* redisplay-x.c (x_window_output_end):
* redisplay-x.c (x_redraw_exposed_area):
* redisplay-x.c (x_clear_frame):
* redisplay.c:
* redisplay.h:
* redisplay.h (struct rune_dglyph):
* redisplay.h (struct rune):
* scrollbar.c:
* scrollbar.c (create_scrollbar_instance):
* specifier.c:
* specifier.c (specifier_empty_extra_description_1):
* specifier.c (make_specifier_internal):
* specifier.c (decode_locale_type):
* specifier.c (decode_how_to_add_specification):
* specifier.h:
* specifier.h (struct specifier_methods):
* specifier.h (DEFINE_SPECIFIER_TYPE_WITH_DATA):
* specifier.h (INITIALIZE_SPECIFIER_TYPE_WITH_DATA):
* symbols.c:
* symbols.c (Fsetplist):
* symbols.c (default_value):
* symbols.c (decode_magic_handler_type):
* symbols.c (handler_type_from_function_symbol):
* symbols.c (Fdefvaralias):
* symbols.c (init_symbols_once_early):
* symbols.c (reinit_symbols_early):
* symsinit.h:
* sysdep.c (sys_subshell):
* sysdep.c (tty_init_sys_modes_on_device):
* syswindows.h:
* text.c (dfc_convert_to_external_format):
* text.c (dfc_convert_to_internal_format):
* text.c (reinit_eistring_early):
* text.c (init_eistring_once_early):
* text.c (reinit_vars_of_text):
* text.h:
* text.h (INC_IBYTEPTR_FMT):
* text.h (DEC_IBYTEPTR_FMT):
* toolbar.c:
* toolbar.c (decode_toolbar_position):
* tooltalk.c:
* ui-gtk.c:
* unexnt.c:
* unexnt.c (_start):
* unexnt.c (unexec):
* unexnt.c (get_section_info):
* unicode.c:
* unicode.c (vars_of_unicode):
* window.c:
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (update_mirror_internal):
* winslots.h:
| author | michaels |
|---|---|
| date | Sun, 12 Jan 2003 11:08:22 +0000 |
| parents | 79c6ff3eef26 |
| children | a8d8f419b459 |
| rev | line source |
|---|---|
| 462 | 1 /* Device functions for X windows. |
| 2 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois. | |
| 3 Copyright (C) 1994, 1995 Free Software Foundation, Inc. | |
| 872 | 4 Copyright (C) 2002 Ben Wing. |
| 462 | 5 |
| 6 This file is part of XEmacs. | |
| 7 | |
| 8 XEmacs is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 10 Free Software Foundation; either version 2, or (at your option) any | |
| 11 later version. | |
| 12 | |
| 13 XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 19 along with XEmacs; see the file COPYING. If not, write to | |
| 20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 21 Boston, MA 02111-1307, USA. */ | |
| 22 | |
| 23 /* Synched up with: Not in FSF. */ | |
| 24 | |
| 25 /* Original authors: Jamie Zawinski and the FSF */ | |
| 26 /* Rewritten by Ben Wing and Chuck Thompson. */ | |
| 27 /* Gtk flavor written by William Perry */ | |
| 28 | |
| 29 #include <config.h> | |
| 30 #include "lisp.h" | |
| 31 | |
| 872 | 32 #include "buffer.h" |
| 33 #include "device-impl.h" | |
| 34 #include "elhash.h" | |
| 35 #include "events.h" | |
| 36 #include "faces.h" | |
| 37 #include "frame-impl.h" | |
| 38 #include "redisplay.h" | |
| 39 #include "sysdep.h" | |
| 40 #include "window.h" | |
| 41 | |
| 42 #include "console-gtk-impl.h" | |
| 462 | 43 #include "gccache-gtk.h" |
| 44 #include "glyphs-gtk.h" | |
| 45 #include "objects-gtk.h" | |
| 46 #include "gtk-xemacs.h" | |
| 47 | |
| 48 #include "sysfile.h" | |
| 49 #include "systime.h" | |
| 50 | |
| 51 #ifdef HAVE_GNOME | |
| 52 #include <libgnomeui/libgnomeui.h> | |
| 53 #endif | |
| 54 | |
| 55 #ifdef HAVE_BONOBO | |
| 56 #include <bonobo.h> | |
| 57 #endif | |
| 58 | |
| 59 /* Qdisplay in general.c */ | |
| 60 Lisp_Object Qinit_pre_gtk_win, Qinit_post_gtk_win; | |
| 61 | |
| 62 /* The application class of Emacs. */ | |
| 63 Lisp_Object Vgtk_emacs_application_class; | |
| 64 | |
| 65 Lisp_Object Vgtk_initial_argv_list; /* #### ugh! */ | |
| 66 Lisp_Object Vgtk_initial_geometry; | |
| 67 | |
| 68 static void gtk_device_init_x_specific_cruft (struct device *d); | |
| 69 | |
| 1204 | 70 static const struct memory_description gtk_device_data_description_1 [] = { |
| 71 { XD_LISP_OBJECT, offsetof (struct gtk_device, x_keysym_map_hashtable) }, | |
| 72 { XD_LISP_OBJECT, offsetof (struct gtk_device, WM_COMMAND_frame) }, | |
| 73 { XD_END } | |
| 74 }; | |
| 75 | |
| 76 extern const struct sized_memory_description gtk_device_data_description; | |
| 77 | |
| 78 const struct sized_memory_description gtk_device_data_description = { | |
| 79 sizeof (struct gtk_device), gtk_device_data_description_1 | |
| 80 }; | |
| 81 | |
| 462 | 82 |
| 83 /************************************************************************/ | |
| 84 /* helper functions */ | |
| 85 /************************************************************************/ | |
| 86 | |
| 87 struct device * | |
| 88 decode_gtk_device (Lisp_Object device) | |
| 89 { | |
| 793 | 90 device = wrap_device (decode_device (device)); |
| 462 | 91 CHECK_GTK_DEVICE (device); |
| 92 return XDEVICE (device); | |
| 93 } | |
| 94 | |
| 95 | |
| 96 /************************************************************************/ | |
| 97 /* initializing a GTK connection */ | |
| 98 /************************************************************************/ | |
| 99 extern Lisp_Object | |
| 100 xemacs_gtk_convert_color(GdkColor *c, GtkWidget *w); | |
| 101 | |
| 102 extern Lisp_Object __get_gtk_font_truename (GdkFont *gdk_font, int expandp); | |
| 103 | |
| 104 #define convert_font(f) __get_gtk_font_truename (f, 0) | |
| 105 | |
| 106 static void | |
| 107 allocate_gtk_device_struct (struct device *d) | |
| 108 { | |
| 109 d->device_data = xnew_and_zero (struct gtk_device); | |
| 110 DEVICE_GTK_DATA (d)->x_keysym_map_hashtable = Qnil; | |
| 111 } | |
| 112 | |
| 113 static void | |
| 114 gtk_init_device_class (struct device *d) | |
| 115 { | |
| 116 if (DEVICE_GTK_DEPTH(d) > 2) | |
| 117 { | |
| 118 switch (DEVICE_GTK_VISUAL(d)->type) | |
| 119 { | |
| 120 case GDK_VISUAL_STATIC_GRAY: | |
| 121 case GDK_VISUAL_GRAYSCALE: | |
| 122 DEVICE_CLASS (d) = Qgrayscale; | |
| 123 break; | |
| 124 default: | |
| 125 DEVICE_CLASS (d) = Qcolor; | |
| 126 } | |
| 127 } | |
| 128 else | |
| 129 DEVICE_CLASS (d) = Qmono; | |
| 130 } | |
| 131 | |
| 132 #ifdef HAVE_GDK_IMLIB_INIT | |
| 133 extern void gdk_imlib_init(void); | |
| 134 #endif | |
| 135 | |
| 863 | 136 extern void emacs_gtk_selection_handle (GtkWidget *, |
| 137 GtkSelectionData *selection_data, | |
| 138 guint info, | |
| 139 guint time_stamp, | |
| 140 gpointer data); | |
| 141 extern void emacs_gtk_selection_clear_event_handle (GtkWidget *widget, | |
| 142 GdkEventSelection *event, | |
| 143 gpointer data); | |
| 144 extern void emacs_gtk_selection_received (GtkWidget *widget, | |
| 145 GtkSelectionData *selection_data, | |
| 146 gpointer user_data); | |
| 147 | |
| 462 | 148 #ifdef HAVE_BONOBO |
| 149 static CORBA_ORB orb; | |
| 150 #endif | |
| 151 | |
| 152 DEFUN ("gtk-init", Fgtk_init, 1, 1, 0, /* | |
| 153 Initialize the GTK subsystem. | |
| 154 ARGS is a standard list of command-line arguments. | |
| 155 | |
| 156 No effect if called more than once. Called automatically when | |
| 157 creating the first GTK device. Must be called manually from batch | |
| 158 mode. | |
| 159 */ | |
| 160 (args)) | |
| 161 { | |
| 162 int argc; | |
| 163 char **argv; | |
| 164 static int done; | |
| 165 | |
| 166 if (done) | |
| 167 { | |
| 168 return (Qt); | |
| 169 } | |
| 170 | |
| 171 make_argc_argv (args, &argc, &argv); | |
| 172 | |
| 173 slow_down_interrupts (); | |
| 174 #ifdef HAVE_GNOME | |
| 175 #ifdef INFODOCK | |
| 176 gnome_init ("InfoDock", EMACS_VERSION, argc, argv); | |
| 177 #else | |
| 178 gnome_init ("XEmacs", EMACS_VERSION, argc, argv); | |
| 179 #endif /* INFODOCK */ | |
| 180 #else | |
| 181 gtk_init (&argc, &argv); | |
| 182 #endif | |
| 183 | |
| 184 #ifdef HAVE_BONOBO | |
| 185 orb = oaf_init (argc, argv); | |
| 186 | |
| 187 if (bonobo_init (orb, NULL, NULL) == FALSE) | |
| 188 { | |
| 189 g_warning ("Could not initialize bonobo..."); | |
| 190 } | |
| 191 | |
| 192 bonobo_activate (); | |
| 193 #endif | |
| 194 | |
| 195 speed_up_interrupts (); | |
| 196 | |
| 197 free_argc_argv (argv); | |
| 198 return (Qt); | |
| 199 } | |
| 200 | |
| 201 static void | |
| 202 gtk_init_device (struct device *d, Lisp_Object props) | |
| 203 { | |
| 204 Lisp_Object device; | |
| 205 Lisp_Object display; | |
| 206 GtkWidget *app_shell = NULL; | |
| 207 GdkVisual *visual = NULL; | |
| 208 GdkColormap *cmap = NULL; | |
| 209 | |
| 793 | 210 device = wrap_device (d); |
| 462 | 211 |
| 212 /* gtk_init() and even gtk_check_init() are so brain dead that | |
| 213 getting an empty argv array causes them to abort. */ | |
| 214 if (NILP (Vgtk_initial_argv_list)) | |
| 215 { | |
| 563 | 216 invalid_operation ("gtk-initial-argv-list must be set before creating Gtk devices", Vgtk_initial_argv_list); |
| 462 | 217 return; |
| 218 } | |
| 219 | |
| 220 allocate_gtk_device_struct (d); | |
| 221 display = DEVICE_CONNECTION (d); | |
| 222 | |
| 223 /* Attempt to load a site-specific gtkrc */ | |
| 224 { | |
| 225 Lisp_Object gtkrc = Fexpand_file_name (build_string ("gtkrc"), Vdata_directory); | |
| 226 gchar **default_files = gtk_rc_get_default_files (); | |
| 227 gint num_files; | |
| 228 | |
| 229 if (STRINGP (gtkrc)) | |
| 230 { | |
| 231 /* Found one, load it up! */ | |
| 232 gchar **new_rc_files = NULL; | |
| 233 int ctr; | |
| 234 | |
| 235 for (num_files = 0; default_files[num_files]; num_files++); | |
| 236 | |
| 237 new_rc_files = xnew_array_and_zero (gchar *, num_files + 3); | |
| 238 | |
| 239 new_rc_files[0] = XSTRING_DATA (gtkrc); | |
| 240 for (ctr = 1; default_files[ctr-1]; ctr++) | |
| 241 new_rc_files[ctr] = g_strdup (default_files[ctr-1]); | |
| 242 | |
| 243 gtk_rc_set_default_files (new_rc_files); | |
| 244 | |
| 245 for (ctr = 1; new_rc_files[ctr]; ctr++) | |
| 246 free(new_rc_files[ctr]); | |
| 247 | |
| 248 xfree (new_rc_files); | |
| 249 } | |
| 250 } | |
| 251 | |
| 252 Fgtk_init (Vgtk_initial_argv_list); | |
| 253 | |
| 254 #ifdef __FreeBSD__ | |
| 255 gdk_set_use_xshm (FALSE); | |
| 256 #endif | |
| 257 | |
| 258 /* We attempt to load this file so that the user can set | |
| 259 ** gtk-initial-geometry and not need GNOME & session management to | |
| 260 ** set their default frame size. It also avoids the flicker | |
| 261 ** associated with setting the frame size in your .emacs file. | |
| 262 */ | |
| 263 call4 (Qload, build_string ("~/.xemacs/gtk-options.el"), Qt, Qt, Qt); | |
| 264 | |
| 265 #ifdef HAVE_GDK_IMLIB_INIT | |
| 266 /* Some themes in Gtk are so lame (most notably the Pixmap theme) | |
| 267 that they rely on gdk_imlib, but don't call its initialization | |
| 268 routines. This makes them USELESS for non-gnome applications. | |
| 269 So we bend over backwards to try and make them work. Losers. */ | |
| 270 gdk_imlib_init (); | |
| 271 #endif | |
| 272 | |
| 273 if (NILP (DEVICE_NAME (d))) | |
| 274 DEVICE_NAME (d) = display; | |
| 275 | |
| 276 /* Always search for the best visual */ | |
| 277 visual = gdk_visual_get_best(); | |
| 278 cmap = gdk_colormap_new (visual, TRUE); | |
| 279 | |
| 280 DEVICE_GTK_VISUAL (d) = visual; | |
| 281 DEVICE_GTK_COLORMAP (d) = cmap; | |
| 282 DEVICE_GTK_DEPTH (d) = visual->depth; | |
| 283 | |
| 284 { | |
| 285 GtkWidget *w = gtk_window_new (GTK_WINDOW_TOPLEVEL); | |
| 286 | |
| 287 app_shell = gtk_xemacs_new (NULL); | |
| 288 gtk_container_add (GTK_CONTAINER (w), app_shell); | |
| 289 | |
| 290 gtk_widget_realize (w); | |
| 291 } | |
| 292 | |
| 293 DEVICE_GTK_APP_SHELL (d) = app_shell; | |
| 294 | |
| 295 /* Realize the app_shell so that its window exists for GC creation | |
| 296 purposes */ | |
| 297 gtk_widget_realize (GTK_WIDGET (app_shell)); | |
| 298 | |
| 299 /* Need to set up some selection handlers */ | |
| 300 gtk_selection_add_target (GTK_WIDGET (app_shell), GDK_SELECTION_PRIMARY, | |
| 301 GDK_SELECTION_TYPE_STRING, 0); | |
| 746 | 302 gtk_selection_add_target (GTK_WIDGET (app_shell), |
| 303 gdk_atom_intern("CLIPBOARD", FALSE), | |
| 304 GDK_SELECTION_TYPE_STRING, 0); | |
| 462 | 305 |
| 306 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_get", | |
| 307 GTK_SIGNAL_FUNC (emacs_gtk_selection_handle), NULL); | |
| 746 | 308 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_clear_event", |
| 309 GTK_SIGNAL_FUNC (emacs_gtk_selection_clear_event_handle), | |
| 310 NULL); | |
| 462 | 311 gtk_signal_connect (GTK_OBJECT (app_shell), "selection_received", |
| 312 GTK_SIGNAL_FUNC (emacs_gtk_selection_received), NULL); | |
| 313 | |
| 314 DEVICE_GTK_WM_COMMAND_FRAME (d) = Qnil; | |
| 315 | |
| 316 gtk_init_modifier_mapping (d); | |
| 317 | |
| 318 gtk_device_init_x_specific_cruft (d); | |
| 319 | |
| 320 init_baud_rate (d); | |
| 321 init_one_device (d); | |
| 322 | |
| 323 DEVICE_GTK_GC_CACHE (d) = make_gc_cache (GTK_WIDGET (app_shell)); | |
| 324 DEVICE_GTK_GRAY_PIXMAP (d) = NULL; | |
| 325 | |
| 326 gtk_init_device_class (d); | |
| 327 | |
| 328 /* Run the elisp side of the X device initialization. */ | |
| 329 call0 (Qinit_pre_gtk_win); | |
| 330 } | |
| 331 | |
| 332 static void | |
| 333 gtk_finish_init_device (struct device *d, Lisp_Object props) | |
| 334 { | |
| 335 call0 (Qinit_post_gtk_win); | |
| 336 } | |
| 337 | |
| 338 static void | |
| 339 gtk_mark_device (struct device *d) | |
| 340 { | |
| 341 mark_object (DEVICE_GTK_WM_COMMAND_FRAME (d)); | |
| 342 mark_object (DEVICE_GTK_DATA (d)->x_keysym_map_hashtable); | |
| 343 } | |
| 344 | |
| 345 | |
| 346 /************************************************************************/ | |
| 347 /* closing an X connection */ | |
| 348 /************************************************************************/ | |
| 349 | |
| 350 static void | |
| 351 free_gtk_device_struct (struct device *d) | |
| 352 { | |
| 353 xfree (d->device_data); | |
| 354 } | |
| 355 | |
| 356 static void | |
| 357 gtk_delete_device (struct device *d) | |
| 358 { | |
| 359 Lisp_Object device; | |
| 360 | |
| 361 #ifdef FREE_CHECKING | |
| 362 extern void (*__free_hook)(); | |
| 363 int checking_free; | |
| 364 #endif | |
| 365 | |
| 793 | 366 device = wrap_device (d); |
| 462 | 367 if (1) |
| 368 { | |
| 369 #ifdef FREE_CHECKING | |
| 370 checking_free = (__free_hook != 0); | |
| 371 | |
| 372 /* Disable strict free checking, to avoid bug in X library */ | |
| 373 if (checking_free) | |
| 374 disable_strict_free_check (); | |
| 375 #endif | |
| 376 | |
| 377 free_gc_cache (DEVICE_GTK_GC_CACHE (d)); | |
| 378 | |
| 379 #ifdef FREE_CHECKING | |
| 380 if (checking_free) | |
| 381 enable_strict_free_check (); | |
| 382 #endif | |
| 383 } | |
| 384 | |
| 385 free_gtk_device_struct (d); | |
| 386 } | |
| 387 | |
| 388 | |
| 389 /************************************************************************/ | |
| 390 /* handle X errors */ | |
| 391 /************************************************************************/ | |
| 392 | |
| 393 const char * | |
| 394 gtk_event_name (GdkEventType event_type) | |
| 395 { | |
| 396 GtkEnumValue *vals = gtk_type_enum_get_values (GTK_TYPE_GDK_EVENT_TYPE); | |
| 397 | |
| 778 | 398 while (vals && ((GdkEventType)(vals->value) != event_type)) vals++; |
| 462 | 399 |
| 400 if (vals) | |
| 401 return (vals->value_nick); | |
| 402 | |
| 403 return (NULL); | |
| 404 } | |
| 405 | |
| 406 | |
| 407 /************************************************************************/ | |
| 408 /* display information functions */ | |
| 409 /************************************************************************/ | |
| 410 | |
| 411 DEFUN ("gtk-display-visual-class", Fgtk_display_visual_class, 0, 1, 0, /* | |
| 412 Return the visual class of the GTK display DEVICE is using. | |
| 413 The returned value will be one of the symbols `static-gray', `gray-scale', | |
| 414 `static-color', `pseudo-color', `true-color', or `direct-color'. | |
| 415 */ | |
| 416 (device)) | |
| 417 { | |
| 418 GdkVisual *vis = DEVICE_GTK_VISUAL (decode_gtk_device (device)); | |
| 419 switch (vis->type) | |
| 420 { | |
| 421 case GDK_VISUAL_STATIC_GRAY: return intern ("static-gray"); | |
| 422 case GDK_VISUAL_GRAYSCALE: return intern ("gray-scale"); | |
| 423 case GDK_VISUAL_STATIC_COLOR: return intern ("static-color"); | |
| 424 case GDK_VISUAL_PSEUDO_COLOR: return intern ("pseudo-color"); | |
| 425 case GDK_VISUAL_TRUE_COLOR: return intern ("true-color"); | |
| 426 case GDK_VISUAL_DIRECT_COLOR: return intern ("direct-color"); | |
| 427 default: | |
| 563 | 428 invalid_state ("display has an unknown visual class", Qunbound); |
| 462 | 429 return Qnil; /* suppress compiler warning */ |
| 430 } | |
| 431 } | |
| 432 | |
| 433 DEFUN ("gtk-display-visual-depth", Fgtk_display_visual_depth, 0, 1, 0, /* | |
| 434 Return the bitplane depth of the visual the GTK display DEVICE is using. | |
| 435 */ | |
| 436 (device)) | |
| 437 { | |
| 438 return make_int (DEVICE_GTK_DEPTH (decode_gtk_device (device))); | |
| 439 } | |
| 440 | |
| 441 static Lisp_Object | |
| 442 gtk_device_system_metrics (struct device *d, | |
| 443 enum device_metrics m) | |
| 444 { | |
| 445 #if 0 | |
| 446 GtkStyle *style = gtk_widget_get_style (GTK_WIDGET (DEVICE_GTK_APP_SHELL (d))); | |
| 447 | |
| 448 style = gtk_style_attach (style, w); | |
| 449 #endif | |
| 450 | |
| 451 switch (m) | |
| 452 { | |
| 453 case DM_size_device: | |
| 454 return Fcons (make_int (gdk_screen_width ()), | |
| 455 make_int (gdk_screen_height ())); | |
| 456 case DM_size_device_mm: | |
| 457 return Fcons (make_int (gdk_screen_width_mm ()), | |
| 458 make_int (gdk_screen_height_mm ())); | |
| 459 case DM_num_color_cells: | |
| 460 return make_int (gdk_colormap_get_system_size ()); | |
| 461 case DM_num_bit_planes: | |
| 462 return make_int (DEVICE_GTK_DEPTH (d)); | |
| 463 | |
| 464 #if 0 | |
| 465 case DM_color_default: | |
| 466 case DM_color_select: | |
| 467 case DM_color_balloon: | |
| 468 case DM_color_3d_face: | |
| 469 case DM_color_3d_light: | |
| 470 case DM_color_3d_dark: | |
| 471 case DM_color_menu: | |
| 472 case DM_color_menu_highlight: | |
| 473 case DM_color_menu_button: | |
| 474 case DM_color_menu_disabled: | |
| 475 case DM_color_toolbar: | |
| 476 case DM_color_scrollbar: | |
| 477 case DM_color_desktop: | |
| 478 case DM_color_workspace: | |
| 479 case DM_font_default: | |
| 480 case DM_font_menubar: | |
| 481 case DM_font_dialog: | |
| 482 case DM_size_cursor: | |
| 483 case DM_size_scrollbar: | |
| 484 case DM_size_menu: | |
| 485 case DM_size_toolbar: | |
| 486 case DM_size_toolbar_button: | |
| 487 case DM_size_toolbar_border: | |
| 488 case DM_size_icon: | |
| 489 case DM_size_icon_small: | |
| 490 case DM_size_workspace: | |
| 491 case DM_device_dpi: | |
| 492 case DM_mouse_buttons: | |
| 493 case DM_swap_buttons: | |
| 494 case DM_show_sounds: | |
| 495 case DM_slow_device: | |
| 496 case DM_security: | |
| 497 #endif | |
| 498 default: /* No such device metric property for GTK devices */ | |
| 499 return Qunbound; | |
| 500 } | |
| 501 } | |
| 502 | |
| 503 DEFUN ("gtk-keysym-on-keyboard-p", Fgtk_keysym_on_keyboard_p, 1, 2, 0, /* | |
| 504 Return true if KEYSYM names a key on the keyboard of DEVICE. | |
| 505 More precisely, return true if some keystroke (possibly including modifiers) | |
| 506 on the keyboard of DEVICE keys generates KEYSYM. | |
| 507 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in | |
| 508 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system. | |
| 509 The keysym name can be provided in two forms: | |
| 510 - if keysym is a string, it must be the name as known to X windows. | |
| 511 - if keysym is a symbol, it must be the name as known to XEmacs. | |
| 512 The two names differ in capitalization and underscoring. | |
| 513 */ | |
| 514 (keysym, device)) | |
| 515 { | |
| 516 struct device *d = decode_device (device); | |
| 517 | |
| 518 if (!DEVICE_GTK_P (d)) | |
| 563 | 519 gui_error ("Not a GTK device", device); |
| 462 | 520 |
| 521 return (NILP (Fgethash (keysym, DEVICE_GTK_DATA (d)->x_keysym_map_hashtable, Qnil)) ? | |
| 522 Qnil : Qt); | |
| 523 } | |
| 524 | |
| 525 | |
| 526 /************************************************************************/ | |
| 527 /* grabs and ungrabs */ | |
| 528 /************************************************************************/ | |
| 529 | |
| 530 DEFUN ("gtk-grab-pointer", Fgtk_grab_pointer, 0, 3, 0, /* | |
| 531 Grab the pointer and restrict it to its current window. | |
| 532 If optional DEVICE argument is nil, the default device will be used. | |
| 533 If optional CURSOR argument is non-nil, change the pointer shape to that | |
| 534 until `gtk-ungrab-pointer' is called (it should be an object returned by the | |
| 535 `make-cursor-glyph' function). | |
| 536 If the second optional argument IGNORE-KEYBOARD is non-nil, ignore all | |
| 537 keyboard events during the grab. | |
| 538 Returns t if the grab is successful, nil otherwise. | |
| 539 */ | |
| 540 (device, cursor, ignore_keyboard)) | |
| 541 { | |
| 542 GdkWindow *w; | |
| 543 int result; | |
| 544 struct device *d = decode_gtk_device (device); | |
| 545 | |
| 546 if (!NILP (cursor)) | |
| 547 { | |
| 548 CHECK_POINTER_GLYPH (cursor); | |
| 549 cursor = glyph_image_instance (cursor, device, ERROR_ME, 0); | |
| 550 } | |
| 551 | |
| 552 /* We should call gdk_pointer_grab() and (possibly) gdk_keyboard_grab() here instead */ | |
| 553 w = GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (device_selected_frame (d))); | |
| 554 | |
| 555 result = gdk_pointer_grab (w, FALSE, | |
| 556 GDK_POINTER_MOTION_MASK | | |
| 557 GDK_POINTER_MOTION_HINT_MASK | | |
| 558 GDK_BUTTON1_MOTION_MASK | | |
| 559 GDK_BUTTON2_MOTION_MASK | | |
| 560 GDK_BUTTON3_MOTION_MASK | | |
| 561 GDK_BUTTON_PRESS_MASK | | |
| 562 GDK_BUTTON_RELEASE_MASK, | |
| 563 w, | |
| 564 NULL, /* #### BILL!!! Need to create a GdkCursor * as necessary! */ | |
| 565 GDK_CURRENT_TIME); | |
| 566 | |
| 567 return (result == 0) ? Qt : Qnil; | |
| 568 } | |
| 569 | |
| 570 DEFUN ("gtk-ungrab-pointer", Fgtk_ungrab_pointer, 0, 1, 0, /* | |
| 571 Release a pointer grab made with `gtk-grab-pointer'. | |
| 572 If optional first arg DEVICE is nil the default device is used. | |
| 573 If it is t the pointer will be released on all GTK devices. | |
| 574 */ | |
| 575 (device)) | |
| 576 { | |
| 577 if (!EQ (device, Qt)) | |
| 578 { | |
| 579 gdk_pointer_ungrab (GDK_CURRENT_TIME); | |
| 580 } | |
| 581 else | |
| 582 { | |
| 583 Lisp_Object devcons, concons; | |
| 584 | |
| 585 DEVICE_LOOP_NO_BREAK (devcons, concons) | |
| 586 { | |
| 587 struct device *d = XDEVICE (XCAR (devcons)); | |
| 588 | |
| 589 if (DEVICE_GTK_P (d)) | |
| 590 gdk_pointer_ungrab (GDK_CURRENT_TIME); | |
| 591 } | |
| 592 } | |
| 593 return Qnil; | |
| 594 } | |
| 595 | |
| 596 DEFUN ("gtk-grab-keyboard", Fgtk_grab_keyboard, 0, 1, 0, /* | |
| 597 Grab the keyboard on the given device (defaulting to the selected one). | |
| 598 So long as the keyboard is grabbed, all keyboard events will be delivered | |
| 599 to emacs -- it is not possible for other clients to eavesdrop on them. | |
| 600 Ungrab the keyboard with `gtk-ungrab-keyboard' (use an unwind-protect). | |
| 601 Returns t if the grab is successful, nil otherwise. | |
| 602 */ | |
| 603 (device)) | |
| 604 { | |
| 605 struct device *d = decode_gtk_device (device); | |
| 606 GdkWindow *w = GET_GTK_WIDGET_WINDOW (FRAME_GTK_TEXT_WIDGET (device_selected_frame (d))); | |
| 607 | |
| 608 gdk_keyboard_grab (w, FALSE, GDK_CURRENT_TIME ); | |
| 609 | |
| 610 return Qt; | |
| 611 } | |
| 612 | |
| 613 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /* | |
| 614 Release a keyboard grab made with `gtk-grab-keyboard'. | |
| 615 */ | |
| 616 (device)) | |
| 617 { | |
| 618 gdk_keyboard_ungrab (GDK_CURRENT_TIME); | |
| 619 return Qnil; | |
| 620 } | |
| 621 | |
| 622 | |
| 623 /************************************************************************/ | |
| 624 /* Style Info */ | |
| 625 /************************************************************************/ | |
| 626 DEFUN ("gtk-style-info", Fgtk_style_info, 0, 1, 0, /* | |
| 627 Get the style information for a Gtk device. | |
| 628 */ | |
| 629 (device)) | |
| 630 { | |
| 631 struct device *d = decode_device (device); | |
| 632 GtkStyle *style = NULL; | |
| 633 Lisp_Object result = Qnil; | |
| 634 GtkWidget *app_shell = GTK_WIDGET (DEVICE_GTK_APP_SHELL (d)); | |
| 635 GdkWindow *w = GET_GTK_WIDGET_WINDOW (app_shell); | |
| 636 | |
| 637 if (!DEVICE_GTK_P (d)) | |
| 638 return (Qnil); | |
| 639 | |
| 640 style = gtk_widget_get_style (app_shell); | |
| 641 style = gtk_style_attach (style, w); | |
| 642 | |
| 643 if (!style) return (Qnil); | |
| 644 | |
| 645 #define FROB_COLOR(slot, name) \ | |
| 646 result = nconc2 (result, \ | |
| 647 list2 (intern (name), \ | |
| 648 list5 (xemacs_gtk_convert_color (&style->slot[GTK_STATE_NORMAL], app_shell),\ | |
| 649 xemacs_gtk_convert_color (&style->slot[GTK_STATE_ACTIVE], app_shell),\ | |
| 650 xemacs_gtk_convert_color (&style->slot[GTK_STATE_PRELIGHT], app_shell),\ | |
| 651 xemacs_gtk_convert_color (&style->slot[GTK_STATE_SELECTED], app_shell),\ | |
| 652 xemacs_gtk_convert_color (&style->slot[GTK_STATE_INSENSITIVE], app_shell)))) | |
| 653 | |
| 654 FROB_COLOR (fg, "foreground"); | |
| 655 FROB_COLOR (bg, "background"); | |
| 656 FROB_COLOR (light, "light"); | |
| 657 FROB_COLOR (dark, "dark"); | |
| 658 FROB_COLOR (mid, "mid"); | |
| 659 FROB_COLOR (text, "text"); | |
| 660 FROB_COLOR (base, "base"); | |
| 661 #undef FROB_COLOR | |
| 662 | |
| 663 result = nconc2 (result, list2 (Qfont, convert_font (style->font))); | |
| 664 | |
| 665 #define FROB_PIXMAP(state) (style->rc_style->bg_pixmap_name[state] ? build_string (style->rc_style->bg_pixmap_name[state]) : Qnil) | |
| 666 | |
| 667 if (style->rc_style) | |
| 668 result = nconc2 (result, list2 (Qbackground, | |
| 669 list5 ( FROB_PIXMAP (GTK_STATE_NORMAL), | |
| 670 FROB_PIXMAP (GTK_STATE_ACTIVE), | |
| 671 FROB_PIXMAP (GTK_STATE_PRELIGHT), | |
| 672 FROB_PIXMAP (GTK_STATE_SELECTED), | |
| 673 FROB_PIXMAP (GTK_STATE_INSENSITIVE)))); | |
| 674 #undef FROB_PIXMAP | |
| 675 | |
| 676 return (result); | |
| 677 } | |
| 678 | |
| 679 | |
| 680 /************************************************************************/ | |
| 681 /* initialization */ | |
| 682 /************************************************************************/ | |
| 683 | |
| 684 void | |
| 685 syms_of_device_gtk (void) | |
| 686 { | |
| 687 DEFSUBR (Fgtk_keysym_on_keyboard_p); | |
| 688 DEFSUBR (Fgtk_display_visual_class); | |
| 689 DEFSUBR (Fgtk_display_visual_depth); | |
| 690 DEFSUBR (Fgtk_style_info); | |
| 691 DEFSUBR (Fgtk_grab_pointer); | |
| 692 DEFSUBR (Fgtk_ungrab_pointer); | |
| 693 DEFSUBR (Fgtk_grab_keyboard); | |
| 694 DEFSUBR (Fgtk_ungrab_keyboard); | |
| 695 DEFSUBR (Fgtk_init); | |
| 696 | |
| 563 | 697 DEFSYMBOL (Qinit_pre_gtk_win); |
| 698 DEFSYMBOL (Qinit_post_gtk_win); | |
| 462 | 699 } |
| 700 | |
| 701 void | |
| 702 console_type_create_device_gtk (void) | |
| 703 { | |
| 704 CONSOLE_HAS_METHOD (gtk, init_device); | |
| 705 CONSOLE_HAS_METHOD (gtk, finish_init_device); | |
| 706 CONSOLE_HAS_METHOD (gtk, mark_device); | |
| 707 CONSOLE_HAS_METHOD (gtk, delete_device); | |
| 708 CONSOLE_HAS_METHOD (gtk, device_system_metrics); | |
| 545 | 709 /* CONSOLE_IMPLEMENTATION_FLAGS (gtk, XDEVIMPF_PIXEL_GEOMETRY); */ |
| 710 /* I inserted the above commented out statement, as the original | |
| 711 implementation of gtk_device_implementation_flags(), which I | |
| 712 deleted, contained commented out XDEVIMPF_PIXEL_GEOMETRY - kkm*/ | |
| 462 | 713 } |
| 714 | |
| 715 void | |
| 716 vars_of_device_gtk (void) | |
| 717 { | |
| 718 Fprovide (Qgtk); | |
| 719 | |
| 720 DEFVAR_LISP ("gtk-initial-argv-list", &Vgtk_initial_argv_list /* | |
| 721 You don't want to know. | |
| 722 This is used during startup to communicate the remaining arguments in | |
| 723 `command-line-args-left' to the C code, which passes the args to | |
| 724 the GTK initialization code, which removes some args, and then the | |
| 725 args are placed back into `gtk-initial-arg-list' and thence into | |
| 726 `command-line-args-left'. Perhaps `command-line-args-left' should | |
| 727 just reside in C. | |
| 728 */ ); | |
| 729 | |
| 730 DEFVAR_LISP ("gtk-initial-geometry", &Vgtk_initial_geometry /* | |
| 731 You don't want to know. | |
| 732 This is used during startup to communicate the default geometry to GTK. | |
| 733 */ ); | |
| 734 | |
| 735 Vgtk_initial_geometry = Qnil; | |
| 736 Vgtk_initial_argv_list = Qnil; | |
| 737 } | |
| 738 | |
| 739 #include <gdk/gdkx.h> | |
| 740 static void | |
| 741 gtk_device_init_x_specific_cruft (struct device *d) | |
| 742 { | |
| 743 DEVICE_INFD (d) = DEVICE_OUTFD (d) = ConnectionNumber (GDK_DISPLAY ()); | |
| 744 } |