diff options
| author | das <das> | 2006-07-24 04:45:51 (GMT) |
|---|---|---|
| committer | das <das> | 2006-07-24 04:45:51 (GMT) |
| commit | 5bbf5d1e813c27bddae0dc2fb01ea1234fece503 (patch) | |
| tree | 74b6a01f1a1e943c3b3f23562a8ada8b3ef3e66e | |
| parent | 03510687cbe34c858fbf52009d74bd8ce0584d74 (diff) | |
| download | tk-5bbf5d1e813c27bddae0dc2fb01ea1234fece503.zip tk-5bbf5d1e813c27bddae0dc2fb01ea1234fece503.tar.gz tk-5bbf5d1e813c27bddae0dc2fb01ea1234fece503.tar.bz2 | |
* macosx/tkMacOSXWm.c (TkWmMapWindow): fix incorrect values of wmInfo
parentWidth/Height for toplevels by recalculating them once the window
is mapped (i.e. once the window&structure sizes are known). [Bug 1358663]
(ParseGeometry): sync with ParseGeometry in tkUnixWm.c/tkWinWm.c.
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | macosx/tkMacOSXWm.c | 32 |
2 files changed, 29 insertions, 10 deletions
@@ -1,3 +1,10 @@ +2006-07-24 Daniel Steffen <das@users.sourceforge.net> + + * macosx/tkMacOSXWm.c (TkWmMapWindow): fix incorrect values of wmInfo + parentWidth/Height for toplevels by recalculating them once the window + is mapped (i.e. once the window&structure sizes are known). [Bug 1358663] + (ParseGeometry): sync with ParseGeometry in tkUnixWm.c/tkWinWm.c. + 2006-07-21 Daniel Steffen <das@users.sourceforge.net> * generic/tkBind.c (TkBindInit): for REDO_KEYSYM_LOOKUP, change diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c index 628fbfb..9dfd473 100644 --- a/macosx/tkMacOSXWm.c +++ b/macosx/tkMacOSXWm.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXWm.c,v 1.36 2006/07/20 06:25:19 das Exp $ + * RCS: @(#) $Id: tkMacOSXWm.c,v 1.37 2006/07/24 04:45:51 das Exp $ */ #include "tkMacOSXInt.h" @@ -329,6 +329,7 @@ TkWmMapWindow( * be mapped. */ { WmInfo *wmPtr = winPtr->wmInfoPtr; + Rect widths; if (wmPtr->flags & WM_NEVER_MAPPED) { wmPtr->flags &= ~WM_NEVER_MAPPED; @@ -397,12 +398,16 @@ TkWmMapWindow( XMapWindow(winPtr->display, winPtr->window); /* - * Now that the window is visable we can determine the offset + * Now that the window is visible we can determine the offset * from the window's content orgin to the window's decorative * orgin (structure orgin). */ - TkMacOSXWindowOffset( GetWindowFromPort(TkMacOSXGetDrawablePort(Tk_WindowId(winPtr))), - &wmPtr->xInParent, &wmPtr->yInParent); + GetWindowStructureWidths(GetWindowFromPort(TkMacOSXGetDrawablePort( + Tk_WindowId(winPtr))), &widths); + wmPtr->xInParent = widths.left; + wmPtr->yInParent = widths.top; + wmPtr->parentWidth = winPtr->changes.width + widths.left + widths.right; + wmPtr->parentHeight = winPtr->changes.height + widths.top + widths.bottom; } /* @@ -3602,14 +3607,22 @@ ParseGeometry( } else if (*p != '+') { goto error; } - x = strtol(p+1, &end, 10); + p++; + if (!isdigit(UCHAR(*p)) && (*p != '-')) { + goto error; + } + x = strtol(p, &end, 10); p = end; if (*p == '-') { flags |= WM_NEGATIVE_Y; } else if (*p != '+') { goto error; } - y = strtol(p+1, &end, 10); + p++; + if (!isdigit(UCHAR(*p)) && (*p != '-')) { + goto error; + } + y = strtol(p, &end, 10); if (*end != '\0') { goto error; } @@ -3650,9 +3663,8 @@ ParseGeometry( } return TCL_OK; - error: - Tcl_AppendResult(interp, "bad geometry specifier \"", - string, "\"", (char *) NULL); + error: + Tcl_AppendResult(interp, "bad geometry specifier \"", string, "\"", NULL); return TCL_ERROR; } @@ -4228,7 +4240,7 @@ TkWmRestackToplevel( */ } else if (otherMacWindow == frontWindow || otherMacWindow == NULL) { /* - * Raise the window to the top. If the window is visable then + * Raise the window to the top. If the window is visible then * we also make it the active window. */ |