diff options
| author | Po Lu | 2022-04-15 16:43:15 +0800 |
|---|---|---|
| committer | Po Lu | 2022-04-15 16:44:18 +0800 |
| commit | 504779f744ccc33c2177dafa34e21d83f6c640a0 (patch) | |
| tree | 91aa0b9fcaf02692e314e301993fc2e58bcfa51c /src/pgtkmenu.c | |
| parent | bdceac0d5a413d89aae4785c884eab1f446ae3ad (diff) | |
| download | emacs-504779f744ccc33c2177dafa34e21d83f6c640a0.tar.gz emacs-504779f744ccc33c2177dafa34e21d83f6c640a0.zip | |
More PGTK related cleanup
* src/pgtkfns.c (x_set_foreground_color, x_set_background_color)
(x_set_border_color, x_set_cursor_color, x_set_title)
(x_set_menu_bar_lines, x_set_tab_bar_lines, x_set_tool_bar_lines)
(x_set_child_frame_border_width, x_set_internal_border_width)
(x_set_icon_type, x_set_icon_name, x_set_cursor_type)
(x_set_mouse_color, x_set_undecorated, x_set_skip_taskbar)
(x_set_override_redirect, pgtk_frame_parm_handlers)
(Fx_create_frame): Rename most `x_' functions to `pgtk_' ones.
All callers changed.
* src/pgtkmenu.c (Fx_menu_bar_open_internal): Remove duplicate
doc string definition.
* src/pgtkterm.c (x_set_offset, pgtk_iconify_frame)
(x_set_parent_frame, x_set_no_focus_on_map, x_set_no_accept_focus)
(x_set_z_group, x_set_cursor_gc, x_set_mouse_face_gc)
(x_set_mode_line_face_gc, x_set_glyph_string_gc)
(x_set_glyph_string_clipping, x_set_glyph_string_clipping_exactly)
(x_setup_relief_color, x_setup_relief_colors)
(x_set_clip_rectangles, x_draw_relief_rect, x_draw_box_rect)
(x_draw_glyph_string_box, x_draw_image_relief)
(x_draw_image_foreground, x_draw_stretch_glyph_string)
(pgtk_draw_glyph_string, x_set_toolkit_scroll_bar_thumb)
(x_set_toolkit_horizontal_scroll_bar_thumb)
(pgtk_set_vertical_scroll_bar, pgtk_set_horizontal_scroll_bar)
(x_set_frame_alpha, frame_highlight, frame_unhighlight)
(pgtk_create_terminal, map_event): Rename most `x_' functions to
`pgtk_' ones. All callers changed.
* src/pgtkterm.h: Update prototypes.
Diffstat (limited to 'src/pgtkmenu.c')
| -rw-r--r-- | src/pgtkmenu.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/pgtkmenu.c b/src/pgtkmenu.c index bd63af3b223..eec9f419d07 100644 --- a/src/pgtkmenu.c +++ b/src/pgtkmenu.c | |||
| @@ -62,19 +62,14 @@ pgtk_menu_set_in_use (bool in_use) | |||
| 62 | struct frame *f = XFRAME (frame); | 62 | struct frame *f = XFRAME (frame); |
| 63 | 63 | ||
| 64 | if (in_use && FRAME_Z_GROUP_ABOVE (f)) | 64 | if (in_use && FRAME_Z_GROUP_ABOVE (f)) |
| 65 | x_set_z_group (f, Qabove_suspended, Qabove); | 65 | pgtk_set_z_group (f, Qabove_suspended, Qabove); |
| 66 | else if (!in_use && FRAME_Z_GROUP_ABOVE_SUSPENDED (f)) | 66 | else if (!in_use && FRAME_Z_GROUP_ABOVE_SUSPENDED (f)) |
| 67 | x_set_z_group (f, Qabove, Qabove_suspended); | 67 | pgtk_set_z_group (f, Qabove, Qabove_suspended); |
| 68 | } | 68 | } |
| 69 | } | 69 | } |
| 70 | 70 | ||
| 71 | DEFUN ("x-menu-bar-open-internal", Fx_menu_bar_open_internal, Sx_menu_bar_open_internal, 0, 1, "i", | 71 | DEFUN ("x-menu-bar-open-internal", Fx_menu_bar_open_internal, Sx_menu_bar_open_internal, 0, 1, "i", |
| 72 | doc: /* Start key navigation of the menu bar in FRAME. | 72 | doc: /* SKIP: real doc in USE_GTK definition in xmenu.c. */) |
| 73 | This initially opens the first menu bar item and you can then navigate with the | ||
| 74 | arrow keys, select a menu entry with the return key or cancel with the | ||
| 75 | escape key. If FRAME has no menu bar this function does nothing. | ||
| 76 | |||
| 77 | If FRAME is nil or not given, use the selected frame. */) | ||
| 78 | (Lisp_Object frame) | 73 | (Lisp_Object frame) |
| 79 | { | 74 | { |
| 80 | GtkWidget *menubar; | 75 | GtkWidget *menubar; |