• Martin Rudalics's avatar
    Add new frame parameters and associated functions · 3fdd3bb5
    Martin Rudalics authored
    Add new frame parameters `undecorated', `override-redirect',
    `parent-frame', `skip-taskbar', `no-focus-on-map',
    `no-accept-focus', `z-group', `delete-before', `no-other-frame',
    `mouse-wheel-frame', `min-width', `min-height'.  Add new
    functions `frame-restack' and `frame-list-z-order'.
    * lisp/cus-start.el (focus-follows-mouse): Adapt customization
    * lisp/frame.el (handle-delete-frame): Handle child and
    `delete-before' frames.
    (other-frame): Stop looking for other frame after one round.
    (frame-list-z-order, frame-restack): New functions.
    (delete-other-frames): Handle child frames.
    * lisp/frameset.el (frameset-persistent-filter-alist)
    (frameset--record-relationships): Handle `delete-before',
    `parent-frame' and `mouse-wheel-frame' parameters.  Rename
    latter from `frameset--record-minibuffer-relationships'.
    (frameset--restore-frame): Handle ‘parent-frame’ parameter
    (frameset-restore): Handle `delete-before', `parent-frame' and
    `mouse-wheel-frame' parameters.
    * lisp/mwheel.el (mwheel-scroll): Handle `mouse-wheel-frame'
    * lisp/window.el (window--min-size-ignore-p): Fix doc-string.
    (mouse-autoselect-window-select, handle-select-window): Major
    rewrite.  Try to not ignore errors.  Handle auto-selection of
    child frames and different values of `focus-follows-mouse'.
    * src/frame.c (frame_windows_min_size): Handle new `min-width'
    and `min-height' frame parameters.
    (make_frame): Initialize new frame structure members.
    (do_switch_frame): Don't reset internal_last_event_frame for
    descendant frames.
    (Fframe_parent, frame_ancestor_p, Fframe_ancestor_p): New
    (candidate_frame): Don't return `no-other-frame' frame.
    (other_frames): New function replacing other_visible_frames.
    (delete_frame): Rewrite.  Handle child and `delete-before' frames.
    (Fmake_frame_invisible): Call other_frames.
    (store_frame_param): Check `delete-before' and `parent-frame'
    parameters for circular dependencies.
    (frame_parms, syms_of_frame): Add entries for and define new
    frame parameters.
    (focus_follows_mouse): New meaningful value `auto-raise'.
    * src/frame.h (z_group): New enumeration type.
    (frame): New slots parent_frame, undecorated, override_redirect,
    skip_taskbar, no_focus_on_map, no_accept_focus, z_group.
    (fset_parent_frame): New inlined function.
    (FRAME_Z_GROUP_BELOW): New macros.
    (frame_ancestor_p): Add declaration.
    * src/gtkutil.c (xg_create_frame_widgets): Handle
    `undecorated' and `override-redirect' frame parameters.
    (x_wm_set_size_hint): None for child frames.
    (xg_set_undecorated, xg_frame_restack, xg_set_skip_taskbar)
    (xg_set_no_focus_on_map, xg_set_no_accept_focus)
    (xg_set_override_redirect): New functions.
    (xg_update_scrollbar_pos, xg_update_horizontal_scrollbar_pos):
    Don't let scrollbars obscure child frames.
    * src/gtkutil.h: (xg_set_undecorated, xg_frame_restack)
    (xg_set_skip_taskbar, xg_set_no_focus_on_map)
    (xg_set_no_accept_focus, xg_set_override_redirect): Add extern
    * src/nsfns.m (ns_frame_parm_handlers): Add entries for new
    frame parameters.
    (Fx_create_frame): Install `min-width' and `min-height' frame
    * src/nsterm.m (mouseMoved:): Handle focus_follows_mouse change.
    * src/w32fns.c (WS_EX_NOACTIVATE): Define if necessary.
    (x_real_positions): Handle child frames.
    (x_set_menu_bar_lines): Don't for child frames.
    (x_set_undecorated, x_set_parent_frame, x_set_skip_taskbar)
    (x_set_no_focus_on_map, x_set_no_accept_focus)
    (x_set_z_group): New functions.
    (w32_createvscrollbar, w32_createhscrollbar): Don't draw
    scroll bars over child frames.
    (w32_createwindow): Handle new frame parameters and child frames.
    (w32_wnd_proc): Let mouse clicks into a child frame activate
    the frame.  Try to handle the `no-accept-focus' parameter.  Do
    SetFocus when our window is brought to top or becomes the
    foreground window.
    (w32_window): Don't initialize menu bar for child frames.
    (Fx_create_frame): Handle new frame parameters.
    (x_create_tip_frame): Set explicit_parent slot.
    (w32_dialog_in_progress): New function.
    (Fx_file_dialog): Handle `z-group-above' frames.
    (w32_frame_list_z_order, Fw32_frame_list_z_order)
    (w32_frame_restack, Fw32_frame_restack): New functions.
    (w32_frame_parm_handlers): Add entries for new frame
    * src/w32font.c (Fx_select_font): Handle `z-group-above'
    frames during font selection dialogue.
    * src/w32term.c (construct_mouse_wheel): Construct mouse wheel
    event from F's w32 window.
    (w32_mouse_position): Handle child frames.
    (w32_set_vertical_scroll_bar, w32_set_horizontal_scroll_bar):
    Don't draw scroll bars over child frames.
    (w32_read_socket): Always erase background of child frames.
    When generating SELECT_WINDOW_EVENTs handle new value of
    `focus-follows-mouse' and handle `no-accept-focus' parameter.
    Handle `mouse-wheel-frame' parameter.
    (x_calc_absolute_position, x_set_offset, x_set_window_size):
    Handle child frames.
    (x_make_frame_visible): Handle child frames specially.  Handle
    `no-focus-on-map' parameter.
    * src/w32term.h (w32_dialog_in_progress): Add external
    * src/xdisp.c (x_consider_frame_title, prepare_menu_bars): Not
    for child frames.
    * src/xfns.c (Xm/MwmUtil.h): Include for WM hints.
    (PropMotifWmHints, PROP_MOTIF_WM_HINTS_ELEMENTS): Define for
    non-Motif, non-GTK case.
    (x_real_pos_and_offsets): Handle child frames.
    (x_set_undecorated, x_set_parent_frame)
    (x_set_no_focus_on_map, x_set_no_accept_focus)
    (x_set_override_redirect): New functions.
    (x_set_menu_bar_lines): Not for child frames.
    (x_window): Handle `undecorated' and `override_redirect' cases.
    (Fx_create_frame): Handle new frame parameters.
    (frame_geometry): Handle child frames and outer border.
    (x_frame_list_z_order, Fx_frame_list_z_order)
    (x_frame_restack, Fx_frame_restack): New functions.
    (Fx_file_dialog, Fx_select_font): Set x_menu_set_in_use.
    (x_frame_parm_handlers): Add entries for new frame parameters.
    * src/xmenu.c (x_menu_set_in_use): Handle `z-group-above'
    * src/xterm.c (x_set_frame_alpha): Don't set alpha of parent
    for child frames.
    (XTmouse_position): Handle child frames.
    (x_scroll_bar_create, x_scroll_bar_expose): Don't let scroll
    bars obscure child frames.
    (handle_one_xevent): Handle child frame positions.  If necessary
    set `skip-taskbar' and reassign proper `z-group' when we are
    mapped.  When generating SELECT_WINDOW_EVENTs handle new value
    of `focus-follows-mouse'.  Handle `mouse-wheel-frame' parameter.
    Let mouse clicks into a child frame activate the frame.
    (x_calc_absolute_position, x_set_offset): Handle child frames
    (x_set_skip_taskbar, x_set_z_group): New functions.
    (x_make_frame_visible): Handle child frames.
    (ATOM_REFS_INIT): Add entries for
    Xatom_net_wm_state_skip_taskbar, Xatom_net_wm_state_above,
    * src/xterm.h (top-level): Declare Xatom_net_wm_state_above,
    Xatom_net_wm_state_below and Xatom_net_wm_state_skip_taskbar.
    (x_set_skip_taskbar, x_set_z_group): Add extern declarations.
w32term.c 207 KB