mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(fit_to_screen): Don't put the menu off the left or top.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-10-08 04:16:17 +00:00
parent 4edaa169d9
commit 525b823278
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lwlib/xlwmenu.c
View File

@ -750,6 +750,8 @@ fit_to_screen (mw, ws, previous_ws, horizontal_p)
ws->x = previous_ws->x - ws->width;
else
ws->x = screen_width - ws->width;
if (ws->x < 0)
ws->x = 0;
}
if (ws->y < 0)
ws->y = 0;
@ -759,6 +761,8 @@ fit_to_screen (mw, ws, previous_ws, horizontal_p)
ws->y = previous_ws->y - ws->height;
else
ws->y = screen_height - ws->height;
if (ws->y < 0)
ws->y = 0;
}
}