diff options
| author | Juri Linkov <juri@linkov.net> | 2019-09-02 00:30:18 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-09-02 00:30:18 +0300 |
| commit | 51ac64d9aa6aec969c38a3774310479d1cbb4dc9 (patch) | |
| tree | 99a1eb675d424e914a8d11f8e39d4fffcc4f6d34 /src/w32fns.c | |
| parent | 8bbad5aaa33f56a8aaec92e157fdf9587f3c1ca7 (diff) | |
| download | emacs-51ac64d9aa6aec969c38a3774310479d1cbb4dc9.tar.gz emacs-51ac64d9aa6aec969c38a3774310479d1cbb4dc9.tar.bz2 emacs-51ac64d9aa6aec969c38a3774310479d1cbb4dc9.zip | |
Try to add more tab-bar support on Windows
Diffstat (limited to 'src/w32fns.c')
| -rw-r--r-- | src/w32fns.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/w32fns.c b/src/w32fns.c index 0d6369461cd..8bc61d15ef6 100644 --- a/src/w32fns.c +++ b/src/w32fns.c @@ -6059,6 +6059,11 @@ DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame, /* No menu bar for child frames. */ store_frame_param (f, Qmenu_bar_lines, make_fixnum (0)); + gui_default_parameter (f, parameters, Qtab_bar_lines, + NILP (Vtab_bar_mode) + ? make_fixnum (0) : make_fixnum (1), + NULL, NULL, RES_TYPE_NUMBER); + gui_default_parameter (f, parameters, Qtool_bar_lines, NILP (Vtool_bar_mode) ? make_fixnum (0) : make_fixnum (1), @@ -8808,6 +8813,9 @@ and width values are in pixels. `menu-bar-size' is a cons of the width and height of the menu bar of FRAME. +`tab-bar-size' is a cons of the width and height of the tab bar of + FRAME. + `tool-bar-external', if non-nil, means the tool bar is external (never included in the inner edges of FRAME). @@ -8830,6 +8838,7 @@ and width values are in pixels. unsigned int external_border_width, external_border_height; int title_bar_width = 0, title_bar_height = 0; int single_menu_bar_height, wrapped_menu_bar_height, menu_bar_height; + int tab_bar_height = FRAME_TAB_BAR_HEIGHT (f); int tool_bar_height = FRAME_TOOL_BAR_HEIGHT (f); int internal_border_width = FRAME_INTERNAL_BORDER_WIDTH (f); @@ -8903,6 +8912,13 @@ and width values are in pixels. Fcons (make_fixnum (menu_bar.rcBar.right - menu_bar.rcBar.left), make_fixnum (menu_bar_height))), + Fcons (Qtab_bar_size, + Fcons (make_fixnum + (tab_bar_height + ? (right - left - 2 * external_border_width + - 2 * internal_border_width) + : 0), + make_fixnum (tab_bar_height))), Fcons (Qtool_bar_external, Qnil), Fcons (Qtool_bar_position, tool_bar_height ? Qtop : Qnil), Fcons (Qtool_bar_size, @@ -8994,6 +9010,7 @@ menu bar or tool bar of FRAME. */) return list4 (make_fixnum (left + internal_border_width), make_fixnum (top + + FRAME_TAB_BAR_HEIGHT (f) + FRAME_TOOL_BAR_HEIGHT (f) + internal_border_width), make_fixnum (right - internal_border_width), |