aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32fns.c
diff options
context:
space:
mode:
authorJoakim Verona2015-02-08 21:55:28 +0100
committerJoakim Verona2015-02-08 21:55:28 +0100
commit5e1d5ef39ca0d2fbff26d659f2ec6ce863b14529 (patch)
tree860e0d53399626aee6249ebb5f972879f403b228 /src/w32fns.c
parent148262ce3db990ed16989341345e232570b3a338 (diff)
parent7d631aa0ffab875e4979727f632703ad5b4100a2 (diff)
downloademacs-xwidget.tar.gz
emacs-xwidget.zip
merge masterxwidget
Diffstat (limited to 'src/w32fns.c')
-rw-r--r--src/w32fns.c18
1 files changed, 13 insertions, 5 deletions
diff --git a/src/w32fns.c b/src/w32fns.c
index 8435270438d..08000d87d38 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -1722,6 +1722,7 @@ x_change_tool_bar_height (struct frame *f, int height)
1722 int old_height = FRAME_TOOL_BAR_HEIGHT (f); 1722 int old_height = FRAME_TOOL_BAR_HEIGHT (f);
1723 int lines = (height + unit - 1) / unit; 1723 int lines = (height + unit - 1) / unit;
1724 int old_text_height = FRAME_TEXT_HEIGHT (f); 1724 int old_text_height = FRAME_TEXT_HEIGHT (f);
1725 Lisp_Object fullscreen;
1725 1726
1726 /* Make sure we redisplay all windows in this frame. */ 1727 /* Make sure we redisplay all windows in this frame. */
1727 windows_or_buffers_changed = 23; 1728 windows_or_buffers_changed = 23;
@@ -1746,7 +1747,10 @@ x_change_tool_bar_height (struct frame *f, int height)
1746 f->n_tool_bar_rows = 0; 1747 f->n_tool_bar_rows = 0;
1747 1748
1748 adjust_frame_size (f, -1, -1, 1749 adjust_frame_size (f, -1, -1,
1749 (!f->tool_bar_redisplayed_once ? 1 1750 ((!f->tool_bar_redisplayed_once
1751 && (NILP (fullscreen =
1752 get_frame_param (f, Qfullscreen))
1753 || EQ (fullscreen, Qfullwidth))) ? 1
1750 : (old_height == 0 || height == 0) ? 2 1754 : (old_height == 0 || height == 0) ? 2
1751 : 4), 1755 : 4),
1752 false, Qtool_bar_lines); 1756 false, Qtool_bar_lines);
@@ -4668,8 +4672,6 @@ This function is an internal primitive--use `make-frame' instead. */)
4668 "bufferPredicate", "BufferPredicate", RES_TYPE_SYMBOL); 4672 "bufferPredicate", "BufferPredicate", RES_TYPE_SYMBOL);
4669 x_default_parameter (f, parameters, Qtitle, Qnil, 4673 x_default_parameter (f, parameters, Qtitle, Qnil,
4670 "title", "Title", RES_TYPE_STRING); 4674 "title", "Title", RES_TYPE_STRING);
4671 x_default_parameter (f, parameters, Qfullscreen, Qnil,
4672 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
4673 4675
4674 f->output_data.w32->dwStyle = WS_OVERLAPPEDWINDOW; 4676 f->output_data.w32->dwStyle = WS_OVERLAPPEDWINDOW;
4675 f->output_data.w32->parent_desc = FRAME_DISPLAY_INFO (f)->root_window; 4677 f->output_data.w32->parent_desc = FRAME_DISPLAY_INFO (f)->root_window;
@@ -4728,6 +4730,12 @@ This function is an internal primitive--use `make-frame' instead. */)
4728 x_wm_set_size_hint (f, window_prompting, false); 4730 x_wm_set_size_hint (f, window_prompting, false);
4729 unblock_input (); 4731 unblock_input ();
4730 4732
4733 /* Process fullscreen parameter here in the hope that normalizing a
4734 fullheight/fullwidth frame will produce the size set by the last
4735 adjust_frame_size call. */
4736 x_default_parameter (f, parameters, Qfullscreen, Qnil,
4737 "fullscreen", "Fullscreen", RES_TYPE_SYMBOL);
4738
4731 /* Make the window appear on the frame and enable display, unless 4739 /* Make the window appear on the frame and enable display, unless
4732 the caller says not to. However, with explicit parent, Emacs 4740 the caller says not to. However, with explicit parent, Emacs
4733 cannot control visibility, so don't try. */ 4741 cannot control visibility, so don't try. */
@@ -5832,7 +5840,7 @@ x_create_tip_frame (struct w32_display_info *dpyinfo,
5832 SET_FRAME_COLS (f, 0); 5840 SET_FRAME_COLS (f, 0);
5833 SET_FRAME_LINES (f, 0); 5841 SET_FRAME_LINES (f, 0);
5834 adjust_frame_size (f, width * FRAME_COLUMN_WIDTH (f), 5842 adjust_frame_size (f, width * FRAME_COLUMN_WIDTH (f),
5835 height * FRAME_LINE_HEIGHT (f), 0, true, Qnil); 5843 height * FRAME_LINE_HEIGHT (f), 0, true, Qtip_frame);
5836 5844
5837 /* Add `tooltip' frame parameter's default value. */ 5845 /* Add `tooltip' frame parameter's default value. */
5838 if (NILP (Fframe_parameter (frame, Qtooltip))) 5846 if (NILP (Fframe_parameter (frame, Qtooltip)))
@@ -7558,7 +7566,7 @@ elements (all size values are in pixels).
7558 menu_bar_height = single_bar_height; 7566 menu_bar_height = single_bar_height;
7559 7567
7560 return 7568 return
7561 listn (CONSTYPE_PURE, 10, 7569 listn (CONSTYPE_HEAP, 10,
7562 Fcons (Qframe_position, 7570 Fcons (Qframe_position,
7563 Fcons (make_number (frame_outer_edges.left), 7571 Fcons (make_number (frame_outer_edges.left),
7564 make_number (frame_outer_edges.top))), 7572 make_number (frame_outer_edges.top))),