1994-01-18 23:47:41 +00:00
|
|
|
/* Defines some widget utility functions.
|
2011-02-10 05:03:29 +00:00
|
|
|
|
2007-02-27 03:08:59 +00:00
|
|
|
Copyright (C) 1992 Lucid, Inc.
|
2016-01-01 09:16:19 +00:00
|
|
|
Copyright (C) 1994, 2001-2016 Free Software Foundation, Inc.
|
1994-01-18 23:47:41 +00:00
|
|
|
|
|
|
|
This file is part of the Lucid Widget Library.
|
|
|
|
|
2003-02-04 14:56:31 +00:00
|
|
|
The Lucid Widget Library is free software; you can redistribute it and/or
|
1994-01-18 23:47:41 +00:00
|
|
|
modify it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 1, or (at your option)
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
The Lucid Widget Library is distributed in the hope that it will be useful,
|
2003-02-04 14:56:31 +00:00
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
1994-01-18 23:47:41 +00:00
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
2012-12-31 15:34:32 +00:00
|
|
|
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
1994-01-18 23:47:41 +00:00
|
|
|
|
1995-04-10 08:05:13 +00:00
|
|
|
#include <config.h>
|
|
|
|
|
2009-10-19 04:27:09 +00:00
|
|
|
#include <setjmp.h>
|
2011-02-10 05:03:29 +00:00
|
|
|
#include <lisp.h>
|
2001-12-02 05:00:27 +00:00
|
|
|
|
1994-01-18 23:47:41 +00:00
|
|
|
#include <X11/Xatom.h>
|
|
|
|
#include <X11/IntrinsicP.h>
|
|
|
|
#include <X11/ObjectP.h>
|
|
|
|
#include "lwlib-utils.h"
|
2000-06-23 13:57:34 +00:00
|
|
|
#include "lwlib.h"
|
1994-01-18 23:47:41 +00:00
|
|
|
|
|
|
|
/* Redisplay the contents of the widget, without first clearing it. */
|
|
|
|
void
|
2010-07-04 05:47:55 +00:00
|
|
|
XtNoClearRefreshWidget (Widget widget)
|
1994-01-18 23:47:41 +00:00
|
|
|
{
|
|
|
|
XEvent event;
|
|
|
|
|
|
|
|
event.type = Expose;
|
|
|
|
event.xexpose.serial = 0;
|
|
|
|
event.xexpose.send_event = 0;
|
|
|
|
event.xexpose.display = XtDisplay (widget);
|
|
|
|
event.xexpose.window = XtWindow (widget);
|
|
|
|
event.xexpose.x = 0;
|
|
|
|
event.xexpose.y = 0;
|
|
|
|
event.xexpose.width = widget->core.width;
|
|
|
|
event.xexpose.height = widget->core.height;
|
|
|
|
event.xexpose.count = 0;
|
|
|
|
|
|
|
|
(*widget->core.widget_class->core_class.expose)
|
|
|
|
(widget, &event, (Region)NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2003-02-04 14:56:31 +00:00
|
|
|
/*
|
1994-01-18 23:47:41 +00:00
|
|
|
* Apply a function to all the subwidgets of a given widget recursively.
|
|
|
|
*/
|
|
|
|
void
|
2010-07-04 05:47:55 +00:00
|
|
|
XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
|
1994-01-18 23:47:41 +00:00
|
|
|
{
|
|
|
|
if (XtIsComposite (w))
|
|
|
|
{
|
|
|
|
CompositeWidget cw = (CompositeWidget) w;
|
|
|
|
/* We have to copy the children list before mapping over it, because
|
|
|
|
the procedure might add/delete elements, which would lose badly.
|
|
|
|
*/
|
|
|
|
int nkids = cw->composite.num_children;
|
2011-01-31 06:44:05 +00:00
|
|
|
Widget *kids = (Widget *) xmalloc (sizeof (Widget) * nkids);
|
1994-01-18 23:47:41 +00:00
|
|
|
int i;
|
Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
* alloc.c (overrun_check_malloc, overrun_check_realloc)
(overrun_check_free, xstrdup, allocate_string)
(allocate_string_data, compact_small_strings, Fmake_string)
(make_unibyte_string, make_multibyte_string)
(make_string_from_bytes, make_specified_string, make_float)
(Fcons, allocate_terminal, allocate_frame, make_pure_string)
(Fgarbage_collect): Replace bcopy, safe_bcopy, bzero, bcmp by
memcpy, memmove, memset, memcmp.
* atimer.c (start_atimer, set_alarm): Likewise.
* buffer.c (clone_per_buffer_values, report_overlay_modification)
(mmap_realloc, init_buffer_once): Likewise.
* callint.c (Fcall_interactively): Likewise.
* callproc.c (Fcall_process, Fcall_process_region, child_setup)
(getenv_internal_1): Likewise.
* casefiddle.c (casify_object): Likewise.
* ccl.c (ccl_driver): Likewise.
* character.c (str_as_multibyte, str_to_multibyte): Likewise.
* charset.c (load_charset_map_from_file)
(load_charset_map_from_file, load_charset_map_from_vector)
(Fdefine_charset_internal): Likewise.
* cm.c (Wcm_clear): Likewise.
* coding.c (decode_eol, decode_coding_object)
(Fset_coding_system_priority, make_subsidiaries): Likewise.
* data.c (Faset): Likewise.
* dired.c (directory_files_internal, file_name_completion_stat):
Likewise.
* dispnew.c (new_glyph_matrix, adjust_glyph_matrix)
(clear_glyph_row, copy_row_except_pointers)
(copy_glyph_row_contents, new_glyph_pool, realloc_glyph_pool)
(save_current_matrix, restore_current_matrix)
(build_frame_matrix_from_leaf_window, mirrored_line_dance)
(mirror_line_dance, scrolling_window): Likewise.
* doc.c (Fsnarf_documentation, Fsubstitute_command_keys):
Likewise.
* doprnt.c (doprnt): Likewise.
* editfns.c (Fuser_full_name, make_buffer_string_both)
(Fmessage_box, Fformat, Ftranspose_regions): Likewise.
* emacs.c (sort_args): Likewise.
* eval.c (Fapply, Ffuncall): Likewise.
* fileio.c (Ffile_name_directory, make_temp_name)
(Fexpand_file_name, search_embedded_absfilename)
(Fsubstitute_in_file_name, Ffile_symlink_p, Finsert_file_contents)
(auto_save_error): Likewise.
* fns.c (Fstring_equal, Fcopy_sequence, concat)
(string_to_multibyte, Fstring_as_unibyte, Fstring_as_multibyte)
(internal_equal, Fclear_string, larger_vector, copy_hash_table)
(Fmake_hash_table): Likewise.
* fringe.c (Fdefine_fringe_bitmap): Likewise.
* ftfont.c (ftfont_text_extents): Likewise.
* getloadavg.c (getloadavg): Likewise.
* image.c (define_image_type, make_image, make_image_cache)
(x_create_x_image_and_pixmap, xbm_image_p)
(w32_create_pixmap_from_bitmap_data, xbm_load, xpm_lookup_color)
(xpm_image_p, x_create_bitmap_from_xpm_data, xpm_load)
(init_color_table, x_build_heuristic_mask, pbm_image_p, pbm_load)
(png_image_p, png_read_from_memory, png_load, jpeg_image_p)
(tiff_image_p, tiff_read_from_memory, gif_image_p)
(gif_read_from_memory, gif_load, svg_image_p, gs_image_p):
Likewise.
* indent.c (scan_for_column, compute_motion): Likewise.
* insdel.c (gap_left, gap_right, make_gap_smaller, copy_text)
(insert_1_both, insert_from_gap, replace_range_2): Likewise.
* intervals.c (reproduce_tree, reproduce_tree_obj): Likewise.
* keyboard.c (echo_char, save_getcjmp, restore_getcjmp)
(kbd_buffer_store_event_hold, apply_modifiers_uncached)
(store_user_signal_events, menu_bar_items, tool_bar_items)
(process_tool_bar_item, append_tool_bar_item)
(read_char_minibuf_menu_prompt, read_key_sequence)
(Fread_key_sequence, Fread_key_sequence_vector, Frecent_keys):
Likewise.
* keymap.c (current_minor_maps, Fdescribe_buffer_bindings):
Likewise.
* lisp.h (STRING_COPYIN): Likewise.
* lread.c (Fload, read1, oblookup): Likewise.
* msdos.c (Frecent_doskeys): Likewise.
* nsfns.m (Fx_create_frame): Likewise.
* nsfont.m (nsfont_open, nsfont_text_extents, ns_glyph_metrics):
Likewise.
* nsimage.m (EmacsImage-initFromSkipXBM:width:height:)
(EmacsImage-initForXPMWithDepth:width:height:flip:length:):
Likewise.
* nsmenu.m (ns_update_menubar): Likewise.
* nsterm.m (ns_draw_fringe_bitmap, ns_term_init): Likewise.
* print.c (print_unwind, printchar, strout, print_string)
(print_error_message): Likewise.
* process.c (conv_lisp_to_sockaddr, set_socket_option)
(Fmake_network_process, Fnetwork_interface_list)
(Fnetwork_interface_info, read_process_output, Fprocess_send_eof)
(init_process): Likewise.
* ralloc.c (resize_bloc, r_alloc_sbrk, r_alloc_init): Likewise.
* regex.c (init_syntax_once, regex_compile, re_compile_fastmap):
Likewise.
* scroll.c (do_scrolling, do_direct_scrolling)
(scrolling_max_lines_saved): Likewise.
* search.c (search_buffer, wordify, Freplace_match): Likewise.
* sound.c (wav_init, au_init, Fplay_sound_internal): Likewise.
* syntax.c (skip_chars, skip_syntaxes): Likewise.
* sysdep.c (child_setup_tty, sys_subshell, emacs_get_tty)
(emacs_set_tty): Likewise.
* term.c (encode_terminal_code, calculate_costs)
(produce_special_glyphs, create_tty_output, init_tty, delete_tty):
Likewise.
* termcap.c (tgetst1, gobble_line): Likewise.
* termhooks.h (EVENT_INIT): Likewise.
* tparam.c (tparam1): Likewise.
* unexalpha.c (unexec): Likewise.
* unexec.c (write_segment): Likewise.
* unexmacosx.c (unexec_write_zero): Likewise.
* w32fns.c (w32_wnd_proc, Fx_create_frame, x_create_tip_frame)
(Fx_file_dialog, Fsystem_move_file_to_trash): Likewise.
* w32font.c (w32font_list_family, w32font_text_extents)
(w32font_list_internal, w32font_match_internal)
(w32font_open_internal, compute_metrics, Fx_select_font):
Likewise.
* w32menu.c (set_frame_menubar, add_menu_item)
(w32_menu_display_help, w32_free_submenu_strings): Likewise.
* w32term.c (XCreateGC, w32_initialize_display_info): Likewise.
* w32uniscribe.c (uniscribe_list_family): Likewise.
* w32xfns.c (get_next_msg, post_msg, prepend_msg): Likewise.
* window.c (make_window, replace_window, set_window_buffer)
(Fsplit_window): Likewise.
* xdisp.c (init_iterator, RECORD_OVERLAY_STRING, reseat_to_string)
(add_to_log, message3, x_consider_frame_title)
(append_space_for_newline, extend_face_to_end_of_line)
(decode_mode_spec_coding, init_glyph_string): Likewise.
* xfaces.c (x_create_gc, get_lface_attributes_no_remap)
(Finternal_copy_lisp_face, Finternal_merge_in_global_face)
(face_attr_equal_p, make_realized_face, make_face_cache)
(free_realized_faces, lookup_named_face, smaller_face)
(face_with_height, lookup_derived_face)
(x_supports_face_attributes_p, Finternal_set_font_selection_order)
(Finternal_set_font_selection_order, realize_default_face)
(compute_char_face, face_at_buffer_position)
(face_for_overlay_string, face_at_string_position, merge_faces):
Likewise.
* xfns.c (xic_create_fontsetname, Fx_create_frame)
(Fx_window_property, x_create_tip_frame)
(Fx_backspace_delete_keys_p): Likewise.
* xfont.c (xfont_list, xfont_match, xfont_list_family)
(xfont_text_extents): Likewise.
* xmenu.c (set_frame_menubar, xmenu_show): Likewise.
* xrdb.c (magic_file_p, x_get_resource): Likewise.
* xselect.c (x_queue_event, x_get_window_property)
(receive_incremental_selection): Likewise.
* xsmfns.c (x_session_check_input): Likewise.
* xterm.c (x_send_scroll_bar_event, SET_SAVED_MENU_EVENT)
(handle_one_xevent, x_check_errors, xim_initialize, x_term_init):
Likewise.
* character.h (BCOPY_SHORT): Removed.
* config.in: Regenerate.
* dispnew.c (safe_bcopy): Only define as dummy if PROFILING.
* emacs.c (main) [PROFILING]: Don't declare
dump_opcode_frequencies.
* lisp.h (safe_bcopy): Remove declaration.
(memset) [!HAVE_MEMSET]: Declare.
(memcpy) [!HAVE_MEMCPY]: Likewise.
(memmove) [!HAVE_MEMMOVE]: Likewise.
(memcmp) [!HAVE_MEMCMP]: Likewise.
* s/ms-w32.h (bzero, bcopy, bcmp, GAP_USE_BCOPY)
(BCOPY_UPWARD_SAFE, BCOPY_DOWNWARD_SAFE, HAVE_BCOPY, HAVE_BCMP):
Don't define.
(HAVE_MEMCMP, HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET): Define.
* s/msdos.h (GAP_USE_BCOPY, BCOPY_UPWARD_SAFE)
(BCOPY_DOWNWARD_SAFE): Don't define.
* sysdep.c (memset) [!HAVE_MEMSET]: Define.
(memcpy) [!HAVE_MEMCPY]: Define.
(memmove) [!HAVE_MEMMOVE]: Define.
(memcmp) [!HAVE_MEMCMP]: Define.
* config.nt (HAVE_BCOPY, HAVE_BCMP): Remove undefs.
(HAVE_MEMCPY, HAVE_MEMMOVE, HAVE_MEMSET, HAVE_MEMCMP): Add undefs.
* sed2v2.inp (HAVE_MEMCPY, HAVE_MEMSET): Edit to 1.
(HAVE_BZERO): Don't edit.
* lwlib.c (lwlib_memset, lwlib_bcopy): Remove.
(malloc_widget_value, free_widget_info, allocate_widget_instance)
(lw_separator_p): Replace lwlib_memset, lwlib_bcopy, bzero, bcmp by
memset, memcpy, memcmp.
* lwlib-utils.c (XtApplyToWidgets): Likewise.
* xlwmenu.c (XlwMenuInitialize): Likewise.
* lwlib.h (lwlib_bcopy): Remove declaration.
* ebrowse.c (add_sym, make_namespace): Replace bcopy, bzero by
memcpy, memmove, memset.
* pop.c (pop_retrieve, socket_connection, pop_getline): Likewise.
* CPP-DEFINES (BCOPY_DOWNWARD_SAFE, BCOPY_UPWARD_SAFE)
(GAP_USE_BCOPY, HAVE_BCMP, HAVE_BCOPY, bcmp, bcopy, bzero):
Remove.
* configure.in: Don't check for bcopy, bcmp, bzero. Don't include
<strings.h> and don't define bcopy, bzero, BCMP in config.h.
2010-07-07 22:18:28 +00:00
|
|
|
memcpy ((char *) kids, (char *) cw->composite.children,
|
|
|
|
sizeof (Widget) * nkids);
|
1994-01-18 23:47:41 +00:00
|
|
|
for (i = 0; i < nkids; i++)
|
|
|
|
/* This prevent us from using gadgets, why is it here? */
|
|
|
|
/* if (XtIsWidget (kids [i])) */
|
|
|
|
{
|
|
|
|
/* do the kiddies first in case we're destroying */
|
|
|
|
XtApplyToWidgets (kids [i], proc, arg);
|
|
|
|
proc (kids [i], arg);
|
|
|
|
}
|
2011-10-13 14:55:46 +00:00
|
|
|
xfree (kids);
|
1994-01-18 23:47:41 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Apply a function to all the subwidgets of a given widget recursively.
|
|
|
|
* Stop as soon as the function returns non NULL and returns this as a value.
|
|
|
|
*/
|
|
|
|
void *
|
2010-07-04 05:47:55 +00:00
|
|
|
XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
|
1994-01-18 23:47:41 +00:00
|
|
|
{
|
|
|
|
void* result;
|
|
|
|
if (XtIsComposite (w))
|
|
|
|
{
|
|
|
|
CompositeWidget cw = (CompositeWidget)w;
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < cw->composite.num_children; i++)
|
|
|
|
if (XtIsWidget (cw->composite.children [i])){
|
|
|
|
result = proc (cw->composite.children [i], arg);
|
|
|
|
if (result)
|
|
|
|
return result;
|
|
|
|
result = XtApplyUntilToWidgets (cw->composite.children [i], proc,
|
|
|
|
arg);
|
|
|
|
if (result)
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Returns a copy of the list of all children of a composite widget
|
|
|
|
*/
|
|
|
|
Widget *
|
2010-07-04 05:47:55 +00:00
|
|
|
XtCompositeChildren (Widget widget, unsigned int *number)
|
1994-01-18 23:47:41 +00:00
|
|
|
{
|
|
|
|
CompositeWidget cw = (CompositeWidget)widget;
|
|
|
|
Widget* result;
|
|
|
|
int n;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (!XtIsComposite (widget))
|
|
|
|
{
|
|
|
|
*number = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
n = cw->composite.num_children;
|
2011-04-16 21:23:30 +00:00
|
|
|
result = (Widget*)(void*)XtMalloc (n * sizeof (Widget));
|
1994-01-18 23:47:41 +00:00
|
|
|
*number = n;
|
|
|
|
for (i = 0; i < n; i++)
|
|
|
|
result [i] = cw->composite.children [i];
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
Boolean
|
2010-07-04 05:47:55 +00:00
|
|
|
XtWidgetBeingDestroyedP (Widget widget)
|
1994-01-18 23:47:41 +00:00
|
|
|
{
|
|
|
|
return widget->core.being_destroyed;
|
|
|
|
}
|