summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-06-01 18:26:57 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-06-01 18:26:57 (GMT)
commitf0cfd95b355f536f0d9a4139138e99447a7bd127 (patch)
treee6ea2505f126612df9cd9f5cb295121b46f819fb
parent2cfb129d2ac0d12e1b633e822bb904953b2635fb (diff)
parent30e249e0591e48bc1c72c7668ed59dcc7b8df2f8 (diff)
downloadtk-f0cfd95b355f536f0d9a4139138e99447a7bd127.zip
tk-f0cfd95b355f536f0d9a4139138e99447a7bd127.tar.gz
tk-f0cfd95b355f536f0d9a4139138e99447a7bd127.tar.bz2
Fixed bug [d7bad57c43] - Limited sash proxy maximum coordinates to the size of the panedwindow it belongs to
-rw-r--r--generic/tkPanedWindow.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tkPanedWindow.c b/generic/tkPanedWindow.c
index 3ae473a..e07fc51 100644
--- a/generic/tkPanedWindow.c
+++ b/generic/tkPanedWindow.c
@@ -2764,6 +2764,7 @@ PanedWindowProxyCommand(
PROXY_COORD, PROXY_FORGET, PROXY_PLACE
};
int index, x, y, sashWidth, sashHeight;
+ int internalBW, pwWidth, pwHeight;
Tcl_Obj *coords[2];
if (objc < 3) {
@@ -2813,11 +2814,16 @@ PanedWindowProxyCommand(
return TCL_ERROR;
}
+ internalBW = Tk_InternalBorderWidth(pwPtr->tkwin);
if (pwPtr->orient == ORIENT_HORIZONTAL) {
if (x < 0) {
x = 0;
}
- y = Tk_InternalBorderWidth(pwPtr->tkwin);
+ pwWidth = Tk_Width(pwPtr->tkwin) - (2 * internalBW);
+ if (x > pwWidth) {
+ x = pwWidth;
+ }
+ y = Tk_InternalBorderWidth(pwPtr->tkwin);
sashWidth = pwPtr->sashWidth;
sashHeight = Tk_Height(pwPtr->tkwin) -
(2 * Tk_InternalBorderWidth(pwPtr->tkwin));
@@ -2825,6 +2831,10 @@ PanedWindowProxyCommand(
if (y < 0) {
y = 0;
}
+ pwHeight = Tk_Height(pwPtr->tkwin) - (2 * internalBW);
+ if (y > pwHeight) {
+ y = pwHeight;
+ }
x = Tk_InternalBorderWidth(pwPtr->tkwin);
sashHeight = pwPtr->sashWidth;
sashWidth = Tk_Width(pwPtr->tkwin) -