Posted to tcl by egavilan at Tue May 13 23:11:07 GMT 2008view raw

  1. --- generic/tkPanedWindow.c.orig 2008-05-13 19:52:10.000000000 -0300
  2. +++ generic/tkPanedWindow.c 2008-05-13 20:04:08.000000000 -0300
  3. @@ -2818,7 +2818,17 @@
  4. x = 0;
  5. }
  6. y = Tk_InternalBorderWidth(pwPtr->tkwin);
  7. - sashWidth = pwPtr->sashWidth;
  8. +
  9. + /* If the sashwidth is less than 1, use 1 as the width of the
  10. + proxy window. This workarounds bug #1639824
  11. + */
  12. +
  13. + if (pwPtr->sashWidth > 0) {
  14. + sashWidth = pwPtr->sashWidth;
  15. + } else {
  16. + sashWidth = 1;
  17. + }
  18. +
  19. sashHeight = Tk_Height(pwPtr->tkwin) -
  20. (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
  21. } else {
  22. @@ -2826,7 +2836,13 @@
  23. y = 0;
  24. }
  25. x = Tk_InternalBorderWidth(pwPtr->tkwin);
  26. - sashHeight = pwPtr->sashWidth;
  27. +
  28. + if (pwPtr->sashWidth > 0) {
  29. + sashHeight = pwPtr->sashWidth;
  30. + } else {
  31. + sashHeight = 1;
  32. + }
  33. +
  34. sashWidth = Tk_Width(pwPtr->tkwin) -
  35. (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
  36. }