summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-28 14:02:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-28 14:02:53 (GMT)
commit7eb8135cd12ab7a65dc98b73ff16cf3bf5b8549f (patch)
tree21e0bbfa18b13b0b4398914826d3a1ef9249607e
parent0363772b05a3395a9e79e21c2bb81121bcec0575 (diff)
parent34d3fa8298631ce5cbfb4be427b0681c3ad1475c (diff)
downloadtk-7eb8135cd12ab7a65dc98b73ff16cf3bf5b8549f.zip
tk-7eb8135cd12ab7a65dc98b73ff16cf3bf5b8549f.tar.gz
tk-7eb8135cd12ab7a65dc98b73ff16cf3bf5b8549f.tar.bz2
[Bug 3562426]: Context menu goes out of edge of screen
-rw-r--r--ChangeLog5
-rw-r--r--generic/tkMenuDraw.c2
2 files changed, 7 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 18e1c73..20eaa94 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-28 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * generic/tkMenuDraw.c: [Bug 3562426]: Context menu goes out of edge of
+ screen.
+
2012-08-24 Donal K. Fellows <dkf@users.sf.net>
* library/tkfbox.tcl (GlobFiltered): [Bug 3558535]: Factor out the
diff --git a/generic/tkMenuDraw.c b/generic/tkMenuDraw.c
index 7c69548..d4634cd 100644
--- a/generic/tkMenuDraw.c
+++ b/generic/tkMenuDraw.c
@@ -896,12 +896,14 @@ TkPostTearoffMenu(interp, menuPtr, x, y)
Tk_GetVRootGeometry(Tk_Parent(menuPtr->tkwin), &vRootX, &vRootY,
&vRootWidth, &vRootHeight);
+ vRootWidth -= Tk_ReqWidth(menuPtr->tkwin);
if (x > vRootX + vRootWidth) {
x = vRootX + vRootWidth;
}
if (x < vRootX) {
x = vRootX;
}
+ vRootHeight -= Tk_ReqHeight(menuPtr->tkwin);
if (y > vRootY + vRootHeight) {
y = vRootY + vRootHeight;
}