Posted to tcl by egavilan at Tue May 13 23:11:07 GMT 2008view raw
- --- generic/tkPanedWindow.c.orig 2008-05-13 19:52:10.000000000 -0300
- +++ generic/tkPanedWindow.c 2008-05-13 20:04:08.000000000 -0300
- @@ -2818,7 +2818,17 @@
- x = 0;
- }
- y = Tk_InternalBorderWidth(pwPtr->tkwin);
- - sashWidth = pwPtr->sashWidth;
- +
- + /* If the sashwidth is less than 1, use 1 as the width of the
- + proxy window. This workarounds bug #1639824
- + */
- +
- + if (pwPtr->sashWidth > 0) {
- + sashWidth = pwPtr->sashWidth;
- + } else {
- + sashWidth = 1;
- + }
- +
- sashHeight = Tk_Height(pwPtr->tkwin) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
- } else {
- @@ -2826,7 +2836,13 @@
- y = 0;
- }
- x = Tk_InternalBorderWidth(pwPtr->tkwin);
- - sashHeight = pwPtr->sashWidth;
- +
- + if (pwPtr->sashWidth > 0) {
- + sashHeight = pwPtr->sashWidth;
- + } else {
- + sashHeight = 1;
- + }
- +
- sashWidth = Tk_Width(pwPtr->tkwin) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
- }