13243 |
f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window; |
f->output_data.w32->parent_desc = FRAME_W32_DISPLAY_INFO (f)->root_window; |
13244 |
window_prompting = x_figure_window_size (f, parms); |
window_prompting = x_figure_window_size (f, parms); |
13245 |
|
|
13246 |
|
/* No fringes on tip frame. */ |
13247 |
|
f->output_data.w32->fringes_extra = 0; |
13248 |
|
|
13249 |
if (window_prompting & XNegative) |
if (window_prompting & XNegative) |
13250 |
{ |
{ |
13251 |
if (window_prompting & YNegative) |
if (window_prompting & YNegative) |
13381 |
} |
} |
13382 |
|
|
13383 |
|
|
|
#ifdef TEST_TOOLTIPS /* Tooltip support in progress. */ |
|
13384 |
DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0, |
DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0, |
13385 |
doc: /* Show STRING in a \"tooltip\" window on frame FRAME. |
doc: /* Show STRING in a \"tooltip\" window on frame FRAME. |
13386 |
A tooltip window is a small window displaying a string. |
A tooltip window is a small window displaying a string. |
13491 |
parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")), |
parms = Fcons (Fcons (Qbackground_color, build_string ("lightyellow")), |
13492 |
parms); |
parms); |
13493 |
|
|
13494 |
|
/* Block input until the tip has been fully drawn, to avoid crashes |
13495 |
|
when drawing tips in menus. */ |
13496 |
|
BLOCK_INPUT; |
13497 |
|
|
13498 |
/* Create a frame for the tooltip, and record it in the global |
/* Create a frame for the tooltip, and record it in the global |
13499 |
variable tip_frame. */ |
variable tip_frame. */ |
13500 |
frame = x_create_tip_frame (FRAME_W32_DISPLAY_INFO (f), parms, string); |
frame = x_create_tip_frame (FRAME_W32_DISPLAY_INFO (f), parms, string); |
13571 |
show it. */ |
show it. */ |
13572 |
compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y); |
compute_tip_xy (f, parms, dx, dy, width, height, &root_x, &root_y); |
13573 |
|
|
|
BLOCK_INPUT; |
|
13574 |
{ |
{ |
13575 |
/* Adjust Window size to take border into account. */ |
/* Adjust Window size to take border into account. */ |
13576 |
RECT rect; |
RECT rect; |
13589 |
|
|
13590 |
ShowWindow (FRAME_W32_WINDOW (f), SW_SHOWNOACTIVATE); |
ShowWindow (FRAME_W32_WINDOW (f), SW_SHOWNOACTIVATE); |
13591 |
} |
} |
|
UNBLOCK_INPUT; |
|
13592 |
|
|
13593 |
/* Draw into the window. */ |
/* Draw into the window. */ |
13594 |
w->must_be_updated_p = 1; |
w->must_be_updated_p = 1; |
13595 |
update_single_window (w, 1); |
update_single_window (w, 1); |
13596 |
|
|
13597 |
|
UNBLOCK_INPUT; |
13598 |
|
|
13599 |
/* Restore original current buffer. */ |
/* Restore original current buffer. */ |
13600 |
set_buffer_internal_1 (old_buffer); |
set_buffer_internal_1 (old_buffer); |
13601 |
windows_or_buffers_changed = old_windows_or_buffers_changed; |
windows_or_buffers_changed = old_windows_or_buffers_changed; |
13644 |
UNGCPRO; |
UNGCPRO; |
13645 |
return unbind_to (count, deleted); |
return unbind_to (count, deleted); |
13646 |
} |
} |
|
#endif |
|
13647 |
|
|
13648 |
|
|
13649 |
|
|
14196 |
return value; |
return value; |
14197 |
} |
} |
14198 |
|
|
14199 |
|
/*********************************************************************** |
14200 |
|
Initialization |
14201 |
|
***********************************************************************/ |
14202 |
|
|
14203 |
|
void |
14204 |
syms_of_w32fns () |
syms_of_w32fns () |
14205 |
{ |
{ |
14206 |
/* This is zero if not using MS-Windows. */ |
/* This is zero if not using MS-Windows. */ |
14760 |
|
|
14761 |
hourglass_atimer = NULL; |
hourglass_atimer = NULL; |
14762 |
hourglass_shown_p = 0; |
hourglass_shown_p = 0; |
|
#if TEST_TOOLTIPS /* Tooltip support in progress. */ |
|
14763 |
defsubr (&Sx_show_tip); |
defsubr (&Sx_show_tip); |
14764 |
defsubr (&Sx_hide_tip); |
defsubr (&Sx_hide_tip); |
|
#endif |
|
14765 |
tip_timer = Qnil; |
tip_timer = Qnil; |
14766 |
staticpro (&tip_timer); |
staticpro (&tip_timer); |
14767 |
tip_frame = Qnil; |
tip_frame = Qnil; |