diff options
author | fvogelnew1@free.fr <fvogel> | 2015-05-24 13:10:45 (GMT) |
---|---|---|
committer | fvogelnew1@free.fr <fvogel> | 2015-05-24 13:10:45 (GMT) |
commit | 9423542c0e840426f5c4322e775a6a110dec99ae (patch) | |
tree | 5e5802b8f0e5c3f97bcfac7929216682fafed6eb /generic | |
parent | 5a69a6ae109ece6ba215d24e3b0d0f1c8671a1dd (diff) | |
download | tk-9423542c0e840426f5c4322e775a6a110dec99ae.zip tk-9423542c0e840426f5c4322e775a6a110dec99ae.tar.gz tk-9423542c0e840426f5c4322e775a6a110dec99ae.tar.bz2 |
Limit sash proxy maximum coordinates to the size of the panedwindow it belongs to
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkPanedWindow.c | 12 |
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) - |