summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-05-31 05:23:44 (GMT)
committerhobbs <hobbs>2005-05-31 05:23:44 (GMT)
commit51820aae78413a2e68e732649a8f5c2d42ca4fc6 (patch)
tree9fc699a44333feed86754ec22e66be6b0b89b6d1
parent181c0e8c88bc8f90f7e15aae082024fbf941fbbf (diff)
downloadtk-51820aae78413a2e68e732649a8f5c2d42ca4fc6.zip
tk-51820aae78413a2e68e732649a8f5c2d42ca4fc6.tar.gz
tk-51820aae78413a2e68e732649a8f5c2d42ca4fc6.tar.bz2
* generic/tkPanedWindow.c, tests/panedwindow.test: batch of fixes
to panedwindow from Daniel South. Improved auto-size to fit internal windows, fixed sash placement at edge of pane, fixed calculation of stretch amount for internal windows. [Bug 1124198 1161543 1054117 1010941 795869 690169 1192323]
-rw-r--r--ChangeLog6
-rw-r--r--generic/tkPanedWindow.c674
-rw-r--r--tests/panedwindow.test299
3 files changed, 518 insertions, 461 deletions
diff --git a/ChangeLog b/ChangeLog
index 31f104f..66dcb05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
2005-05-30 Jeff Hobbs <jeffh@ActiveState.com>
+ * generic/tkPanedWindow.c, tests/panedwindow.test: batch of fixes
+ to panedwindow from Daniel South. Improved auto-size to fit
+ internal windows, fixed sash placement at edge of pane, fixed
+ calculation of stretch amount for internal windows.
+ [Bug 1124198 1161543 1054117 1010941 795869 690169 1192323]
+
* generic/tkMenu.c (MenuCmd): create event handler earlier to
ensure proper destruction of menu through DestroyNotify.
[Bug 1159367]
diff --git a/generic/tkPanedWindow.c b/generic/tkPanedWindow.c
index ab7bde9..e4a6625 100644
--- a/generic/tkPanedWindow.c
+++ b/generic/tkPanedWindow.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkPanedWindow.c,v 1.22 2004/11/17 22:16:58 hobbs Exp $
+ * RCS: @(#) $Id: tkPanedWindow.c,v 1.23 2005/05/31 05:23:44 hobbs Exp $
*/
#include "tkPort.h"
@@ -883,6 +883,9 @@ ConfigureSlaves(pwPtr, interp, objc, objv)
Tk_SetOptions(interp, (char *) pwPtr->slaves[j],
pwPtr->slaveOpts, objc - firstOptionArg,
objv + firstOptionArg, pwPtr->tkwin, NULL, NULL);
+ if (pwPtr->slaves[j]->minSize < 0) {
+ pwPtr->slaves[j]->minSize = 0;
+ }
found = 1;
/*
@@ -942,6 +945,9 @@ ConfigureSlaves(pwPtr, interp, objc, objv)
} else {
slavePtr->paneHeight = Tk_ReqHeight(tkwin) + doubleBw;
}
+ if (slavePtr->minSize < 0) {
+ slavePtr->minSize = 0;
+ }
/*
* Set up the geometry management callbacks for this slave.
@@ -1261,7 +1267,7 @@ PanedWindowWorldChanged(instanceData)
*/
Tk_SetInternalBorder(pwPtr->tkwin, pwPtr->borderWidth);
- if (pwPtr->width > 0 || pwPtr->height > 0) {
+ if (pwPtr->width > 0 && pwPtr->height > 0) {
Tk_GeometryRequest(pwPtr->tkwin, pwPtr->width, pwPtr->height);
}
@@ -1380,7 +1386,7 @@ DisplayPanedWindow(clientData)
Pixmap pixmap;
Tk_Window tkwin = pwPtr->tkwin;
int i, sashWidth, sashHeight;
- int n, sashCount, pwWidth = 0, pwHeight = 0;
+ const int horizontal = (pwPtr->orient == ORIENT_HORIZONTAL);
pwPtr->flags &= ~REDRAW_PENDING;
if ((pwPtr->tkwin == NULL) || !Tk_IsMapped(tkwin)) {
@@ -1401,6 +1407,7 @@ DisplayPanedWindow(clientData)
/*
* Redraw the widget's background and border.
*/
+
Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background, 0, 0,
Tk_Width(tkwin), Tk_Height(tkwin), pwPtr->borderWidth,
pwPtr->relief);
@@ -1410,75 +1417,32 @@ DisplayPanedWindow(clientData)
* coordinates).
*/
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
+ if (horizontal) {
sashHeight = Tk_Height(tkwin) - (2 * Tk_InternalBorderWidth(tkwin));
sashWidth = pwPtr->sashWidth;
- pwWidth = Tk_Width(tkwin) - (2 * Tk_InternalBorderWidth(tkwin));
} else {
sashWidth = Tk_Width(tkwin) - (2 * Tk_InternalBorderWidth(tkwin));
sashHeight = pwPtr->sashWidth;
- pwHeight = Tk_Height(tkwin) - (2 * Tk_InternalBorderWidth(tkwin));
}
/*
* Draw the sashes.
*/
- /* quickly count the visible sashes */
- for (i = sashCount = 0; i < pwPtr->numSlaves - 1; i++) {
- if (pwPtr->slaves[i]->hide) {
- continue;
- }
- sashCount++;
- }
- for (i = n = 0; i < pwPtr->numSlaves - 1; i++) {
- int x, y;
+
+ for (i = 0; i < pwPtr->numSlaves - 1; i++) {
slavePtr = pwPtr->slaves[i];
if (slavePtr->hide) {
continue;
}
- if (pwPtr->orient == ORIENT_HORIZONTAL &&
- pwWidth < slavePtr->sashx) {
- x = pwWidth - (pwPtr->sashWidth * (sashCount - n));
- if (x < Tk_InternalBorderWidth(tkwin)) {
- x = Tk_InternalBorderWidth(tkwin);
- }
- Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- x, slavePtr->sashy, sashWidth, sashHeight,
- 1, pwPtr->sashRelief);
- if (pwPtr->showHandle) {
- Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- x - slavePtr->sashx + slavePtr->handlex,
- slavePtr->handley, pwPtr->handleSize,
- pwPtr->handleSize, 1, TK_RELIEF_RAISED);
- }
- } else if (pwPtr->orient == ORIENT_VERTICAL &&
- pwHeight < slavePtr->sashy) {
- y = pwHeight - (pwPtr->sashWidth * (sashCount - n));
- if (y < Tk_InternalBorderWidth(tkwin)) {
- y = Tk_InternalBorderWidth(tkwin);
- }
- Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- slavePtr->sashx, y, sashWidth, sashHeight, 1,
- pwPtr->sashRelief);
- if (pwPtr->showHandle) {
- Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- slavePtr->handlex,
- y - (slavePtr->sashy - slavePtr->handley),
- pwPtr->handleSize, pwPtr->handleSize, 1,
- TK_RELIEF_RAISED);
- }
- } else {
+ Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
+ slavePtr->sashx, slavePtr->sashy,
+ sashWidth, sashHeight, 1, pwPtr->sashRelief);
+ if (pwPtr->showHandle) {
Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- slavePtr->sashx, slavePtr->sashy,
- sashWidth, sashHeight, 1, pwPtr->sashRelief);
- if (pwPtr->showHandle) {
- Tk_Fill3DRectangle(tkwin, pixmap, pwPtr->background,
- slavePtr->handlex, slavePtr->handley,
- pwPtr->handleSize, pwPtr->handleSize, 1,
- TK_RELIEF_RAISED);
- }
+ slavePtr->handlex, slavePtr->handley,
+ pwPtr->handleSize, pwPtr->handleSize, 1,
+ TK_RELIEF_RAISED);
}
- n++;
}
/*
@@ -1681,15 +1645,16 @@ ArrangePanes(clientData)
{
register PanedWindow *pwPtr = (PanedWindow *) clientData;
register Slave *slavePtr;
- int i, slaveWidth, slaveHeight, slaveX, slaveY, paneWidth, paneHeight;
+ int i, slaveWidth, slaveHeight, slaveX, slaveY;
+ int paneWidth, paneHeight, paneSize, paneMinSize;
int doubleBw;
- int stretchWidth = 0;
- int stretchHeight = 0;
int x, y;
- int sxOff, syOff, sashWidth, hxOff, hyOff;
+ int sashWidth, sashOffset, sashCount, handleOffset;
+ int sashReserve, sxReserve, syReserve;
int internalBW;
- int panedSize, pwHeight, pwWidth, tmpHeight, tmpWidth;
+ int paneDynSize, paneDynMinSize, pwHeight, pwWidth, pwSize;
int first, last;
+ int stretchReserve, stretchAmount;
const int horizontal = (pwPtr->orient == ORIENT_HORIZONTAL);
pwPtr->flags &= ~(REQUESTED_RELAYOUT|RESIZE_PENDING);
@@ -1720,36 +1685,34 @@ ArrangePanes(clientData)
}
}
- panedSize = 0;
+ /*
+ * First pass; compute sizes
+ */
+
+ paneDynSize = paneDynMinSize = 0;
internalBW = Tk_InternalBorderWidth(pwPtr->tkwin);
pwHeight = Tk_Height(pwPtr->tkwin) - (2 * internalBW);
pwWidth = Tk_Width(pwPtr->tkwin) - (2 * internalBW);
- sxOff = syOff = hxOff = hyOff = 0;
- if (pwPtr->showHandle && pwPtr->handleSize > pwPtr->sashWidth) {
- sashWidth = pwPtr->handleSize;
- if (horizontal) {
- sxOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hyOff = pwPtr->handlePad;
- } else {
- syOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hxOff = pwPtr->handlePad;
- }
- } else {
- sashWidth = pwPtr->sashWidth;
- if (horizontal) {
- hxOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hyOff = pwPtr->handlePad;
- } else {
- hyOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hxOff = pwPtr->handlePad;
- }
- }
+ x = y = internalBW;
+ stretchReserve = (horizontal ? pwWidth : pwHeight);
/*
- * First pass; compute sizes
+ * Calculate the sash width, including handle and padding,
+ * and the sash and handle offsets.
*/
- for (i = 0; i < pwPtr->numSlaves; i++) {
+ sashOffset = handleOffset = pwPtr->sashPad;
+ if (pwPtr->showHandle && pwPtr->handleSize > pwPtr->sashWidth) {
+ sashWidth = (2 * pwPtr->sashPad) + pwPtr->handleSize;
+ sashOffset = ((pwPtr->handleSize - pwPtr->sashWidth) / 2)
+ + pwPtr->sashPad;
+ } else {
+ sashWidth = (2 * pwPtr->sashPad) + pwPtr->sashWidth;
+ handleOffset = ((pwPtr->sashWidth - pwPtr->handleSize) / 2)
+ + pwPtr->sashPad;
+ }
+
+ for (i = sashCount = 0; i < pwPtr->numSlaves; i++) {
slavePtr = pwPtr->slaves[i];
if (slavePtr->hide) {
@@ -1762,33 +1725,20 @@ ArrangePanes(clientData)
*/
if (horizontal) {
- paneWidth = slavePtr->paneWidth;
- if (i == last && Tk_IsMapped(pwPtr->tkwin)) {
- if (Tk_Width(pwPtr->tkwin) != Tk_ReqWidth(pwPtr->tkwin)) {
- stretchWidth =
- Tk_Width(pwPtr->tkwin) - Tk_ReqWidth(pwPtr->tkwin);
- }
- }
- if (IsStretchable(slavePtr->stretch,i,first,last) &&
- Tk_IsMapped(pwPtr->tkwin)) {
- panedSize += paneWidth;
- }
- paneHeight = Tk_Height(pwPtr->tkwin) - (2 * slavePtr->pady) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
+ paneSize = slavePtr->paneWidth;
+ stretchReserve -= paneSize + (2 * slavePtr->padx);
} else {
- paneHeight = slavePtr->paneHeight;
- if (i == last && Tk_IsMapped(pwPtr->tkwin)) {
- if (Tk_Height(pwPtr->tkwin) != Tk_ReqHeight(pwPtr->tkwin)) {
- stretchHeight =
- Tk_Height(pwPtr->tkwin)-Tk_ReqHeight(pwPtr->tkwin);
- }
- }
- if (IsStretchable(slavePtr->stretch, i, first, last) &&
- Tk_IsMapped(pwPtr->tkwin)) {
- panedSize += paneHeight;
- }
- paneWidth = Tk_Width(pwPtr->tkwin) - (2 * slavePtr->padx) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
+ paneSize = slavePtr->paneHeight;
+ stretchReserve -= paneSize + (2 * slavePtr->pady);
+ }
+ if (IsStretchable(slavePtr->stretch,i,first,last)
+ && Tk_IsMapped(pwPtr->tkwin)) {
+ paneDynSize += paneSize;
+ paneDynMinSize += slavePtr->minSize;
+ }
+ if (i != last) {
+ stretchReserve -= sashWidth;
+ sashCount++;
}
}
@@ -1796,8 +1746,6 @@ ArrangePanes(clientData)
* Second pass; adjust/arrange panes.
*/
- x = y = internalBW;
-
for (i = 0; i < pwPtr->numSlaves; i++) {
slavePtr = pwPtr->slaves[i];
@@ -1824,47 +1772,80 @@ ArrangePanes(clientData)
Tk_ReqWidth(slavePtr->tkwin) + doubleBw);
slaveHeight = (slavePtr->height > 0 ? slavePtr->height :
Tk_ReqHeight(slavePtr->tkwin) + doubleBw);
+ paneMinSize = slavePtr->minSize;
+
+ /*
+ * Calculate pane width and height.
+ */
if (horizontal) {
- paneWidth = slavePtr->paneWidth;
- if (Tk_IsMapped(pwPtr->tkwin)) {
- if (IsStretchable(slavePtr->stretch, i, first, last)) {
- double frac;
- if (panedSize > 0) {
- frac = (double)paneWidth / (double)panedSize;
- } else {
- frac = (double)paneWidth / (double)pwWidth;
- }
- paneWidth += (int) (frac * stretchWidth);
- } else if ((i == last) &&
- ((Tk_Width(pwPtr->tkwin) - (2 * slavePtr->padx) -
- (2 * internalBW)) <= paneWidth)) {
- paneWidth = Tk_Width(pwPtr->tkwin) -
- (2 * slavePtr->padx) - (2 * internalBW);
- }
+ paneSize = slavePtr->paneWidth;
+ pwSize = pwWidth;
+ } else {
+ paneSize = slavePtr->paneHeight;
+ pwSize = pwHeight;
+ }
+ if (IsStretchable(slavePtr->stretch, i, first, last)) {
+ double frac;
+ if (paneDynSize > 0) {
+ frac = (double)paneSize / (double)paneDynSize;
+ } else {
+ frac = (double)paneSize / (double)pwSize;
}
- paneHeight = Tk_Height(pwPtr->tkwin) - (2 * slavePtr->pady) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
+ paneDynSize -= paneSize;
+ paneDynMinSize -= slavePtr->minSize;
+ stretchAmount = (int) (frac * stretchReserve);
+ if (paneSize + stretchAmount >= paneMinSize) {
+ stretchReserve -= stretchAmount;
+ paneSize += stretchAmount;
+ } else {
+ stretchReserve += paneSize - paneMinSize;
+ paneSize = paneMinSize;
+ }
+ if (i == last && stretchReserve > 0) {
+ paneSize += stretchReserve;
+ stretchReserve = 0;
+ }
+ } else if (paneDynSize - paneDynMinSize + stretchReserve < 0) {
+ if (paneSize + paneDynSize - paneDynMinSize + stretchReserve
+ <= paneMinSize) {
+ stretchReserve += paneSize - paneMinSize;
+ paneSize = paneMinSize;
+ } else {
+ paneSize += paneDynSize - paneDynMinSize + stretchReserve;
+ stretchReserve = paneDynMinSize - paneDynSize;
+ }
+ }
+ if (horizontal) {
+ paneWidth = paneSize;
+ paneHeight = pwHeight - (2 * slavePtr->pady);
} else {
- paneHeight = slavePtr->paneHeight;
- if (Tk_IsMapped(pwPtr->tkwin)) {
- if (IsStretchable(slavePtr->stretch, i, first, last)) {
- double frac;
- if (panedSize > 0) {
- frac = (double)paneHeight / (double)panedSize;
- } else {
- frac = (double)paneHeight / (double)pwHeight;
- }
- paneHeight += (int) (frac * stretchHeight);
- } else if ((i == last) &&
- ((Tk_Height(pwPtr->tkwin) - (2 * slavePtr->pady) -
- (2 * internalBW)) <= paneHeight)) {
- paneHeight = Tk_Height(pwPtr->tkwin) -
- (2 * slavePtr->pady) - (2 * internalBW);
- }
+ paneWidth = pwWidth - (2 * slavePtr->padx);
+ paneHeight = paneSize;
+ }
+
+ /*
+ * Adjust for area reserved for sashes.
+ */
+
+ if (sashCount) {
+ sashReserve = sashWidth * sashCount;
+ if (horizontal) {
+ sxReserve = sashReserve;
+ syReserve = 0;
+ } else {
+ sxReserve = 0;
+ syReserve = sashReserve;
}
- paneWidth = Tk_Width(pwPtr->tkwin) - (2 * slavePtr->padx) -
- (2 * Tk_InternalBorderWidth(pwPtr->tkwin));
+ } else {
+ sxReserve = syReserve = 0;
+ }
+
+ if (pwWidth - sxReserve < x + paneWidth - internalBW) {
+ paneWidth = pwWidth - sxReserve - x + internalBW;
+ }
+ if (pwHeight - syReserve < y + paneHeight - internalBW) {
+ paneHeight = pwHeight - syReserve - y + internalBW;
}
if (slaveWidth > paneWidth) {
@@ -1879,34 +1860,35 @@ ArrangePanes(clientData)
/*
* Compute the location of the sash at the right or bottom of the
- * parcel.
+ * parcel and the location of the next parcel.
*/
+
if (horizontal) {
- x += paneWidth + (2 * slavePtr->padx) + pwPtr->sashPad;
+ x += paneWidth + (2 * slavePtr->padx);
if (x < internalBW) {
x = internalBW;
}
+ slavePtr->sashx = x + sashOffset;
+ slavePtr->sashy = y;
+ slavePtr->handlex = x + handleOffset;
+ slavePtr->handley = y + pwPtr->handlePad;
+ x += sashWidth;
} else {
- y += paneHeight + (2 * slavePtr->pady) + pwPtr->sashPad;
+ y += paneHeight + (2 * slavePtr->pady);
if (y < internalBW) {
y = internalBW;
}
+ slavePtr->sashx = x;
+ slavePtr->sashy = y + sashOffset;
+ slavePtr->handlex = x + pwPtr->handlePad;
+ slavePtr->handley = y + handleOffset;
+ y += sashWidth;
}
- slavePtr->sashx = x + sxOff;
- slavePtr->sashy = y + syOff;
- slavePtr->handlex = x + hxOff;
- slavePtr->handley = y + hyOff;
/*
- * Compute the location of the next parcel.
+ * Compute the actual dimensions of the slave in the pane.
*/
- if (horizontal) {
- x += sashWidth + pwPtr->sashPad;
- } else {
- y += sashWidth + pwPtr->sashPad;
- }
-
slaveX = slavePtr->x;
slaveY = slavePtr->y;
AdjustForSticky(slavePtr->sticky, paneWidth, paneHeight,
@@ -1918,34 +1900,17 @@ ArrangePanes(clientData)
/*
* Now put the window in the proper spot.
*/
- if (pwWidth < slaveX + slaveWidth) {
- tmpWidth = pwWidth - slaveX;
- } else {
- tmpWidth = slaveWidth;
- }
- if (pwHeight < slaveY + slaveHeight) {
- tmpHeight = pwHeight - slaveY;
- } else {
- tmpHeight = slaveHeight;
- }
- if (tmpWidth <= 0 || tmpHeight <= 0 ||
- (horizontal ? slaveX>pwWidth : slaveY>pwHeight)) {
+ if (slaveWidth <= 0 || slaveHeight <= 0 ||
+ (horizontal ? slaveX - internalBW > pwWidth :
+ slaveY - internalBW > pwHeight)) {
Tk_UnmaintainGeometry(slavePtr->tkwin, pwPtr->tkwin);
Tk_UnmapWindow(slavePtr->tkwin);
} else {
- int mgWidth = ((pwWidth < (slaveX+slaveWidth-internalBW)) ?
- (pwWidth - slaveX) : slaveWidth);
- int mgHeight = ((pwHeight < (slaveY+slaveHeight-internalBW)) ?
- (pwHeight - slaveY) : slaveHeight);
-
Tk_MaintainGeometry(slavePtr->tkwin, pwPtr->tkwin,
- slaveX, slaveY, mgWidth, mgHeight);
- if (slavePtr->stretch == STRETCH_NEVER) {
- slavePtr->paneWidth = slaveWidth;
- slavePtr->paneHeight = slaveHeight;
- }
+ slaveX, slaveY, slaveWidth, slaveHeight);
}
+ sashCount--;
}
Tcl_Release((ClientData) pwPtr);
}
@@ -2110,8 +2075,10 @@ ComputeGeometry(pwPtr)
PanedWindow *pwPtr; /* Pointer to the Paned Window structure. */
{
int i, x, y, doubleBw, internalBw;
- int reqWidth, reqHeight, sashWidth, sxOff, syOff, hxOff, hyOff, dim;
+ int sashWidth, sashOffset, handleOffset;
+ int reqWidth, reqHeight, dim;
Slave *slavePtr;
+ const int horizontal = (pwPtr->orient == ORIENT_HORIZONTAL);
pwPtr->flags |= REQUESTED_RELAYOUT;
@@ -2124,25 +2091,16 @@ ComputeGeometry(pwPtr)
* sashes within the space occupied by their combination; later, just add
* those offsets blindly (avoiding the extra showHandle, etc, checks).
*/
- sxOff = syOff = hxOff = hyOff = 0;
+
+ sashOffset = handleOffset = pwPtr->sashPad;
if (pwPtr->showHandle && pwPtr->handleSize > pwPtr->sashWidth) {
- sashWidth = pwPtr->handleSize;
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- sxOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hyOff = pwPtr->handlePad;
- } else {
- syOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hxOff = pwPtr->handlePad;
- }
+ sashWidth = (2 * pwPtr->sashPad) + pwPtr->handleSize;
+ sashOffset = ((pwPtr->handleSize - pwPtr->sashWidth) / 2)
+ + pwPtr->sashPad;
} else {
- sashWidth = pwPtr->sashWidth;
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- hxOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hyOff = pwPtr->handlePad;
- } else {
- hyOff = (pwPtr->handleSize - pwPtr->sashWidth) / 2;
- hxOff = pwPtr->handlePad;
- }
+ sashWidth = (2 * pwPtr->sashPad) + pwPtr->sashWidth;
+ handleOffset = ((pwPtr->sashWidth - pwPtr->handleSize) / 2)
+ + pwPtr->sashPad;
}
for (i = 0; i < pwPtr->numSlaves; i++) {
@@ -2156,6 +2114,7 @@ ComputeGeometry(pwPtr)
* First set the coordinates for the top left corner of the slave's
* parcel.
*/
+
slavePtr->x = x;
slavePtr->y = y;
@@ -2164,7 +2123,8 @@ ComputeGeometry(pwPtr)
* This check may be redundant, since the only way to change a pane's
* size is by moving a sash, and that code checks the minsize.
*/
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
+
+ if (horizontal) {
if (slavePtr->paneWidth < slavePtr->minSize) {
slavePtr->paneWidth = slavePtr->minSize;
}
@@ -2178,57 +2138,59 @@ ComputeGeometry(pwPtr)
* Compute the location of the sash at the right or bottom of the
* parcel.
*/
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- x += slavePtr->paneWidth + (2 * slavePtr->padx) + pwPtr->sashPad;
- } else {
- y += slavePtr->paneHeight + (2 * slavePtr->pady) + pwPtr->sashPad;
- }
- slavePtr->sashx = x + sxOff;
- slavePtr->sashy = y + syOff;
- slavePtr->handlex = x + hxOff;
- slavePtr->handley = y + hyOff;
- /*
- * Compute the location of the next parcel.
- */
-
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- x += sashWidth + pwPtr->sashPad;
+ if (horizontal) {
+ x += slavePtr->paneWidth + (2 * slavePtr->padx);
+ slavePtr->sashx = x + sashOffset;
+ slavePtr->sashy = y;
+ slavePtr->handlex = x + handleOffset;
+ slavePtr->handley = y + pwPtr->handlePad;
+ x += sashWidth;
} else {
- y += sashWidth + pwPtr->sashPad;
+ y += slavePtr->paneHeight + (2 * slavePtr->pady);
+ slavePtr->sashx = x;
+ slavePtr->sashy = y + sashOffset;
+ slavePtr->handlex = x + pwPtr->handlePad;
+ slavePtr->handley = y + handleOffset;
+ y += sashWidth;
}
/*
* Find the maximum height/width of the slaves, for computing the
* requested height/width of the paned window.
*/
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
+
+ if (horizontal) {
+
/*
* If the slave has an explicit height set, use that; otherwise,
* use the slave's requested height.
*/
+
if (slavePtr->height > 0) {
dim = slavePtr->height;
} else {
- doubleBw = (2 * Tk_Changes(slavePtr->tkwin)->border_width);
+ doubleBw = 2 * Tk_Changes(slavePtr->tkwin)->border_width;
dim = Tk_ReqHeight(slavePtr->tkwin) + doubleBw;
}
- dim += (2 * slavePtr->pady);
+ dim += 2 * slavePtr->pady;
if (dim > reqHeight) {
reqHeight = dim;
}
} else {
+
/*
* If the slave has an explicit width set use that; otherwise,
* use the slave's requested width.
*/
+
if (slavePtr->width > 0) {
dim = slavePtr->width;
} else {
- doubleBw = (2 * Tk_Changes(slavePtr->tkwin)->border_width);
+ doubleBw = 2 * Tk_Changes(slavePtr->tkwin)->border_width;
dim = Tk_ReqWidth(slavePtr->tkwin) + doubleBw;
}
- dim += (2 * slavePtr->padx);
+ dim += 2 * slavePtr->padx;
if (dim > reqWidth) {
reqWidth = dim;
}
@@ -2248,17 +2210,23 @@ ComputeGeometry(pwPtr)
* The height (or width) is equal to the maximum height (or width) of
* the slaves, plus the width of the border of the top and bottom (or left
* and right) of the paned window.
+ *
+ * If the panedwindow has an explicit width/height set use that; otherwise,
+ * use the requested width/height.
*/
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- reqWidth = x - (sashWidth + (2 * pwPtr->sashPad)) + internalBw;
- reqHeight += 2 * internalBw;
+
+ if (horizontal) {
+ reqWidth = (pwPtr->width > 0 ?
+ pwPtr->width : x - sashWidth + internalBw);
+ reqHeight = (pwPtr->height > 0 ?
+ pwPtr->height : reqHeight + (2 * internalBw));
} else {
- reqHeight = y - (sashWidth + (2 * pwPtr->sashPad)) + internalBw;
- reqWidth += 2 * internalBw;
- }
- if (pwPtr->width <= 0 && pwPtr->height <= 0) {
- Tk_GeometryRequest(pwPtr->tkwin, reqWidth, reqHeight);
+ reqWidth = (pwPtr->width > 0 ?
+ pwPtr->width : reqWidth + (2 * internalBw));
+ reqHeight = (pwPtr->height > 0 ?
+ pwPtr->height : y - sashWidth + internalBw);
}
+ Tk_GeometryRequest(pwPtr->tkwin, reqWidth, reqHeight);
if (Tk_IsMapped(pwPtr->tkwin) && !(pwPtr->flags & REDRAW_PENDING)) {
pwPtr->flags |= REDRAW_PENDING;
Tcl_DoWhenIdle(DisplayPanedWindow, (ClientData) pwPtr);
@@ -2322,16 +2290,16 @@ GetSticky(clientData, tkwin, recordPtr, internalOffset)
int count = 0;
if (sticky & STICK_NORTH) {
- buffer[count++] = 'n';
+ buffer[count++] = 'n';
}
if (sticky & STICK_EAST) {
- buffer[count++] = 'e';
+ buffer[count++] = 'e';
}
if (sticky & STICK_SOUTH) {
- buffer[count++] = 's';
+ buffer[count++] = 's';
}
if (sticky & STICK_WEST) {
- buffer[count++] = 'w';
+ buffer[count++] = 'w';
}
buffer[count] = '\0';
@@ -2497,10 +2465,10 @@ AdjustForSticky(sticky, cavityWidth, cavityHeight, xPtr, yPtr,
*slaveHeightPtr += diffy;
}
if (!(sticky & STICK_WEST)) {
- *xPtr += (sticky & STICK_EAST) ? diffx : diffx/2;
+ *xPtr += (sticky & STICK_EAST) ? diffx : diffx/2;
}
if (!(sticky & STICK_NORTH)) {
- *yPtr += (sticky & STICK_SOUTH) ? diffy : diffy/2;
+ *yPtr += (sticky & STICK_SOUTH) ? diffy : diffy/2;
}
}
@@ -2526,174 +2494,126 @@ MoveSash(pwPtr, sash, diff)
int sash;
int diff;
{
- int diffConsumed = 0, i, maxCoord, currCoord;
- int *lengthPtr, newLength;
- Slave *slave;
- int first, last;
- int next_sash = sash+1;
+ int i;
+ int expandPane, reduceFirst, reduceLast, reduceIncr, slaveSize, sashOffset;
+ Slave *slavePtr;
+ int stretchReserve = 0;
+ int nextSash = sash + 1;
+ const int horizontal = (pwPtr->orient == ORIENT_HORIZONTAL);
if (diff == 0)
return;
/*
+ * Update the slave sizes with their real sizes.
+ */
+
+ if (pwPtr->showHandle && pwPtr->handleSize > pwPtr->sashWidth) {
+ sashOffset = ((pwPtr->handleSize - pwPtr->sashWidth) / 2)
+ + pwPtr->sashPad;
+ } else {
+ sashOffset = pwPtr->sashPad;
+ }
+ for (i = 0; i < pwPtr->numSlaves; i++) {
+ slavePtr = pwPtr->slaves[i];
+ if (slavePtr->hide) {
+ continue;
+ }
+ if (horizontal) {
+ slavePtr->paneWidth = slavePtr->width = slavePtr->sashx
+ - sashOffset - slavePtr->x - (2 * slavePtr->padx);
+ } else {
+ slavePtr->paneWidth = slavePtr->height = slavePtr->sashy
+ - sashOffset - slavePtr->y - (2 * slavePtr->pady);
+ }
+ }
+
+ /*
* There must be a next sash since it is only possible to enter
* this routine when moving an actual sash which implies there
* exists a visible pane to either side of the sash.
*/
- while (next_sash < pwPtr->numSlaves-1 && pwPtr->slaves[next_sash]->hide) {
- next_sash++;
+ while (nextSash < (pwPtr->numSlaves - 1) && pwPtr->slaves[nextSash]->hide) {
+ nextSash++;
}
/*
- * Find index of first and last visible panes. Also, update the
- * slave size with it's real size.
+ * Consolidate +/-diff variables to reduce duplicate code.
*/
- for (i = 0, last = 0, first = -1; i < pwPtr->numSlaves; i++) {
- slave = pwPtr->slaves[i];
- if (slave->hide == 0) {
- if (first < 0) {
- first = i;
- }
- last = i;
- }
- if (!Tk_IsMapped(pwPtr->tkwin)) {
- continue;
- }
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- if (Tk_Width(slave->tkwin) > slave->minSize) {
- slave->paneWidth = Tk_Width(slave->tkwin) -
- (1 * Tk_InternalBorderWidth(slave->tkwin));
- }
- } else {
- if (Tk_Height(slave->tkwin) > slave->minSize) {
- slave->paneHeight = Tk_Height(slave->tkwin) -
- (1 * Tk_InternalBorderWidth(slave->tkwin));
- }
- }
+ if (diff > 0) {
+ expandPane = sash;
+ reduceFirst = nextSash;
+ reduceLast = pwPtr->numSlaves;
+ reduceIncr = 1;
+ } else {
+ diff = abs(diff);
+ expandPane = nextSash;
+ reduceFirst = sash;
+ reduceLast = -1;
+ reduceIncr = -1;
}
- if (diff > 0) {
- /*
- * Growing the pane, at the expense of panes to the right.
- */
+ /*
+ * Calculate how much room we have to stretch in
+ * and adjust diff value accordingly.
+ */
- /*
- * First check that moving the sash the requested distance will not
- * leave it off the screen. If necessary, clip the requested diff
- * to the maximum possible while remaining visible.
- */
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- if (Tk_IsMapped(pwPtr->tkwin)) {
- maxCoord = Tk_Width(pwPtr->tkwin);
- } else {
- maxCoord = Tk_ReqWidth(pwPtr->tkwin);
- }
- currCoord = pwPtr->slaves[sash]->sashx;
- } else {
- if (Tk_IsMapped(pwPtr->tkwin)) {
- maxCoord = Tk_Height(pwPtr->tkwin);
- } else {
- maxCoord = Tk_ReqHeight(pwPtr->tkwin);
- }
- currCoord = pwPtr->slaves[sash]->sashy;
+ for (i = reduceFirst; i != reduceLast; i += reduceIncr) {
+ slavePtr = pwPtr->slaves[i];
+ if (slavePtr->hide) {
+ continue;
}
-
- maxCoord -= (pwPtr->borderWidth + pwPtr->sashWidth + pwPtr->sashPad);
- if (currCoord + diff >= maxCoord) {
- diff = maxCoord - currCoord;
+ if (horizontal) {
+ stretchReserve += slavePtr->width - slavePtr->minSize;
+ } else {
+ stretchReserve += slavePtr->height - slavePtr->minSize;
}
+ }
+ if (stretchReserve <= 0) {
+ return;
+ }
+ if (diff > stretchReserve) {
+ diff = stretchReserve;
+ }
- for (i = sash + 1; i < pwPtr->numSlaves; i++) {
- if (diffConsumed == diff) {
- break;
- }
- slave = pwPtr->slaves[i];
-
- if (slave->hide) {
- continue;
- }
+ /*
+ * Expand pane by diff amount.
+ */
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- lengthPtr = &(slave->paneWidth);
- } else {
- lengthPtr = &(slave->paneHeight);
- }
+ slavePtr = pwPtr->slaves[expandPane];
+ if (horizontal) {
+ slavePtr->paneWidth = slavePtr->width += diff;
+ } else {
+ slavePtr->paneHeight = slavePtr->height += diff;
+ }
- /*
- * Remove as much space from this pane as possible (constrained
- * by the minsize value and the visible dimensions of the window).
- */
+ /*
+ * Reduce panes, respecting minsize, until diff amount has been used.
+ */
- newLength = *lengthPtr - (diff - diffConsumed);
- if (newLength < slave->minSize) {
- newLength = slave->minSize;
- }
- if (newLength < 0) {
- newLength = 0;
- }
- diffConsumed += *lengthPtr - newLength;
- *lengthPtr = newLength;
+ for (i = reduceFirst; i != reduceLast; i += reduceIncr) {
+ slavePtr = pwPtr->slaves[i];
+ if (slavePtr->hide) {
+ continue;
}
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- pwPtr->slaves[sash]->paneWidth += diffConsumed;
+ if (horizontal) {
+ slaveSize = slavePtr->width;
} else {
- pwPtr->slaves[sash]->paneHeight += diffConsumed;
+ slaveSize = slavePtr->height;
}
- } else if (diff < 0) {
- int *recipientLenPtr, delta;
-
- /*
- * Shrinking the pane; additional space is given to the pane to the
- * right.
- */
- if (sash <= last) {
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- recipientLenPtr = &(pwPtr->slaves[next_sash]->paneWidth);
- } else {
- recipientLenPtr = &(pwPtr->slaves[next_sash]->paneHeight);
- }
+ if (diff > (slaveSize - slavePtr->minSize)) {
+ diff -= slaveSize - slavePtr->minSize;
+ slaveSize = slavePtr->minSize;
} else {
- recipientLenPtr = NULL;
+ slaveSize -= diff;
+ i = reduceLast - reduceIncr;
}
-
- for (i = sash; i >= 0; i--) {
- if (diffConsumed == diff) {
- break;
- }
- /*
- * Remove as much space from this pane as possible.
- */
- slave = pwPtr->slaves[i];
-
- if (slave->hide) {
- continue;
- }
-
- if (pwPtr->orient == ORIENT_HORIZONTAL) {
- lengthPtr = &(slave->paneWidth);
- } else {
- lengthPtr = &(slave->paneHeight);
- }
-
- newLength = *lengthPtr + (diff - diffConsumed);
- if (newLength < slave->minSize) {
- newLength = slave->minSize;
- }
- if (newLength < 0) {
- newLength = 0;
- }
- delta = *lengthPtr - newLength;
- diffConsumed -= delta;
- *lengthPtr = newLength;
-
- /*
- * Give the extra space to the recipient pane.
- */
- if (recipientLenPtr) {
- *recipientLenPtr += delta;
- }
+ if (horizontal) {
+ slavePtr->paneWidth = slavePtr->width = slaveSize;
+ } else {
+ slavePtr->paneHeight = slavePtr->height = slaveSize;
}
}
}
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 3c22383..fc278c7 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: panedwindow.test,v 1.19 2004/12/04 00:04:41 dkf Exp $
+# RCS: @(#) $Id: panedwindow.test,v 1.20 2005/05/31 05:23:44 hobbs Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -1906,6 +1906,52 @@ test panedwindow-22.13 {ArrangePanes, last pane shrinks} {
destroy .p .f1 .f2
set result
} 18
+test panedwindow-22.14 {ArrangePanes, panedwindow resizes} {
+ -body {
+ panedwindow .p -width 200 -borderwidth 0
+ frame .f1 -height 50 -bg blue
+ set result [list]
+ lappend result [winfo reqwidth .p] [winfo reqheight .p]
+ .p add .f1
+ pack .p
+ lappend result [winfo reqwidth .p] [winfo reqheight .p]
+ }
+ -cleanup {destroy .p .f1}
+ -result {200 1 200 50}
+}
+test panedwindow-22.15 {ArrangePanes, panedwindow resizes} {
+ -body {
+ panedwindow .p -height 200 -borderwidth 0 -orient vertical
+ frame .f1 -width 50 -bg blue
+ set result [list]
+ lappend result [winfo reqwidth .p] [winfo reqheight .p]
+ .p add .f1
+ pack .p
+ lappend result [winfo reqwidth .p] [winfo reqheight .p]
+ }
+ -cleanup {destroy .p .f1}
+ -result {1 200 50 200}
+}
+test panedwindow-22.16 {ArrangePanes, last pane grows} {
+ -body {
+ panedwindow .p -showhandle false -height 50
+ .p add [frame .f1 -width 50 -bg red] [frame .f2 -width 50 -bg white] \
+ [frame .f3 -width 50 -bg blue] [frame .f4 -width 50 -bg green]
+ .p sash place 1 250 0
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ .p configure -width 300
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {50 150 1 1 222 50 150 1 78 300}
+}
+
test panedwindow-23.1 {PanedWindowReqProc, react to slave geometry changes} {
# Basically just want to make sure that the PanedWindowReqProc is called
@@ -2213,93 +2259,178 @@ test panedwindow-24.28 {ConfigurePanes, restrict possible panes} {
destroy .f .f.f .f.f.f .f.f.f.p .b
set result
} [list 0 ""]
-test panedwindow-24.29 {ConfigurePanes, -hide works} {
- panedwindow .p
- frame .f1 -width 10 -bg red
- frame .f2 -width 10 -bg white
- frame .f3 -width 10 -bg blue
- frame .f4 -width 10 -bg green
- .p add .f1 .f2 .f3 .f4
- pack .p -fill both -expand 1
- update
- set result [list]
- lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- .p paneconfigure .f2 -hide 1
- update
- lappend result [winfo ismapped .f1] [winfo ismapped .f2] [winfo ismapped .f3] [winfo ismapped .f4]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- destroy .f1 .f2 .f3 .f4 .p
- set result
-} [list 1 1 1 1 10 10 10 10 1 0 1 1 10 10 10 24]
+test panedwindow-24.29.1 {ConfigurePanes, -hide works} {
+ -body {
+ panedwindow .p -showhandle false
+ frame .f1 -width 40 -height 100 -bg red
+ frame .f2 -width 40 -height 100 -bg white
+ frame .f3 -width 40 -height 100 -bg blue
+ frame .f4 -width 40 -height 100 -bg green
+ .p add .f1 .f2 .f3 .f4
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo ismapped .f1] [winfo ismapped .f2] \
+ [winfo ismapped .f3] [winfo ismapped .f4]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo ismapped .f1] [winfo ismapped .f2] \
+ [winfo ismapped .f3] [winfo ismapped .f4]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {1 1 1 1 40 40 40 40 182 1 0 1 1 40 40 40 40 136}
+}
+test panedwindow-24.29.2 {ConfigurePanes, -hide works} {
+ -body {
+ panedwindow .p -showhandle false -width 130 -height 100
+ frame .f1 -width 40 -bg red
+ frame .f2 -width 40 -bg white
+ frame .f3 -width 40 -bg blue
+ frame .f4 -width 40 -bg green
+ .p add .f1 .f2 .f3 .f4
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo ismapped .f1] [winfo ismapped .f2] \
+ [winfo ismapped .f3] [winfo ismapped .f4]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo ismapped .f1] [winfo ismapped .f2] \
+ [winfo ismapped .f3] [winfo ismapped .f4]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4] [winfo width .p]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {1 1 1 0 28 40 40 1 130 1 0 1 1 40 40 40 34 130}
+}
+test panedwindow-24.29.3 {ConfigurePanes, -hide works, last pane stretches} {
+ -body {
+ panedwindow .p -showhandle false -width 200 -height 200 -borderwidth 0
+ frame .f1 -width 50 -bg red
+ frame .f2 -width 50 -bg green
+ frame .f3 -width 50 -bg blue
+ .p add .f1 .f2 .f3
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3}
+ -result {50 50 88 50 50 144}
+}
+test panedwindow-24.29.4 {ConfigurePanes, -hide works, last pane stretches} {
+ -body {
+ panedwindow .p -showhandle false -width 200 -height 200 \
+ -borderwidth 0 -orient vertical
+ frame .f1 -height 50 -bg red
+ frame .f2 -height 50 -bg green
+ frame .f3 -height 50 -bg blue
+ .p add .f1 .f2 .f3
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo height .f1] [winfo height .f2] [winfo height .f3]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3}
+ -result {50 50 88 50 50 144}
+}
+
test panedwindow-24.30 {ConfigurePanes, -stretch first} {
- panedwindow .p
- frame .f1 -width 10 -bg red
- frame .f2 -width 10 -bg white
- frame .f3 -width 10 -bg blue
- frame .f4 -width 10 -bg green
- .p add .f1 .f2 .f3 .f4 -stretch first
- pack .p -fill both -expand 1
- update
- set result [list]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- .p paneconfigure .f2 -hide 1
- update
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- destroy .f1 .f2 .f3 .f4 .p
- set result
-} [list 10 10 10 10 24 10 10 10]
+ -body {
+ panedwindow .p -showhandle false -height 100 -width 182
+ frame .f1 -width 40 -bg red
+ frame .f2 -width 40 -bg white
+ frame .f3 -width 40 -bg blue
+ frame .f4 -width 40 -bg green
+ .p add .f1 .f2 .f3 .f4 -stretch first
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {40 40 40 40 86 40 40 40}
+}
test panedwindow-24.31 {ConfigurePanes, -stretch middle} {
- panedwindow .p
- frame .f1 -width 10 -bg red
- frame .f2 -width 10 -bg white
- frame .f3 -width 10 -bg blue
- frame .f4 -width 10 -bg green
- .p add .f1 .f2 .f3 .f4 -stretch middle
- pack .p -fill both -expand 1
- update
- set result [list]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- .p paneconfigure .f2 -hide 1
- update
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- destroy .f1 .f2 .f3 .f4 .p
- set result
-} [list 10 10 10 10 10 10 24 10]
+ -body {
+ panedwindow .p -showhandle false -height 100 -width 182
+ frame .f1 -width 40 -bg red
+ frame .f2 -width 40 -bg white
+ frame .f3 -width 40 -bg blue
+ frame .f4 -width 40 -bg green
+ .p add .f1 .f2 .f3 .f4 -stretch middle
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {40 40 40 40 40 40 86 40}
+}
test panedwindow-24.32 {ConfigurePanes, -stretch always} {
- panedwindow .p
- frame .f1 -width 10 -bg red
- frame .f2 -width 10 -bg white
- frame .f3 -width 10 -bg blue
- frame .f4 -width 10 -bg green
- .p add .f1 .f2 .f3 .f4 -stretch always
- pack .p -fill both -expand 1
- update
- set result [list]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- .p paneconfigure .f2 -hide 1
- update
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- destroy .f1 .f2 .f3 .f4 .p
- set result
-} [list 10 10 10 10 14 10 14 14]
+ -body {
+ panedwindow .p -showhandle false -height 100 -width 182
+ frame .f1 -width 40 -bg red
+ frame .f2 -width 40 -bg white
+ frame .f3 -width 40 -bg blue
+ frame .f4 -width 40 -bg green
+ .p add .f1 .f2 .f3 .f4 -stretch always
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {40 40 40 40 55 40 55 56}
+}
test panedwindow-24.33 {ConfigurePanes, -stretch never} {
- panedwindow .p
- frame .f1 -width 10 -bg red
- frame .f2 -width 10 -bg white
- frame .f3 -width 10 -bg blue
- frame .f4 -width 10 -bg green
- .p add .f1 .f2 .f3 .f4 -stretch never
- pack .p -fill both -expand 1
- update
- set result [list]
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- .p paneconfigure .f2 -hide 1
- update
- lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] [winfo width .f4]
- destroy .f1 .f2 .f3 .f4 .p
- set result
-} [list 10 10 10 10 10 10 10 10]
+ -body {
+ panedwindow .p -showhandle false -height 100 -width 182
+ frame .f1 -width 40 -bg red
+ frame .f2 -width 40 -bg white
+ frame .f3 -width 40 -bg blue
+ frame .f4 -width 40 -bg green
+ .p add .f1 .f2 .f3 .f4 -stretch never
+ pack .p
+ update
+ set result [list]
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ .p paneconfigure .f2 -hide 1
+ update
+ lappend result [winfo width .f1] [winfo width .f2] [winfo width .f3] \
+ [winfo width .f4]
+ }
+ -cleanup {destroy .p .f1 .f2 .f3 .f4}
+ -result {40 40 40 40 40 40 40 40}
+}
test panedwindow-25.1 {Unlink, remove a paned with -before/-after refs} {
# Bug 928413