# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 781589777 0
# Node ID d954daf0a21307170e90581d84b2c3618464c757
# Parent  802381617d140398711df0514b37cdbfa24e4a44
(fit_to_screen): Don't put the menu off the left or top.

diff -r 802381617d14 -r d954daf0a213 lwlib/xlwmenu.c
--- a/lwlib/xlwmenu.c	Sat Oct 08 04:12:07 1994 +0000
+++ b/lwlib/xlwmenu.c	Sat Oct 08 04:16:17 1994 +0000
@@ -750,6 +750,8 @@
 	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 @@
 	ws->y = previous_ws->y - ws->height;
       else
 	ws->y = screen_height - ws->height;
+      if (ws->y < 0) 
+        ws->y = 0;
     }
 }