mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(compute_tip_xy): If tooltip won't fit on the screen

Browse Source 
to the left or to the right of the pointer, put it against
the left screen edge.
This commit is contained in:
Richard M. Stallman 2001-12-21 22:55:36 +00:00
parent 05b855f5a5
commit d682d3df25
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/xfns.c
View File

@ -11126,10 +11126,15 @@ compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
if (INTEGERP (left))
*root_x = XINT (left);
else if (*root_x + XINT (dx) + width > FRAME_X_DISPLAY_INFO (f)->width)
else if (*root_x + XINT (dx) + width <= FRAME_X_DISPLAY_INFO (f)->width)
/* It fits to the right of the pointer. */
*root_x += XINT (dx);
else if (width + XINT (dx) <= *root_x)
/* It fits to the left of the pointer. */
*root_x -= width + XINT (dx);
else
*root_x += XINT (dx);
/* Put it left-justified on the screen--it ought to fit that way. */
*root_x = 0;
}