summaryrefslogtreecommitdiffstats
path: root/macosx
diff options
context:
space:
mode:
Diffstat (limited to 'macosx')
-rw-r--r--macosx/tkMacOSXWm.c32
1 files changed, 22 insertions, 10 deletions
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.
*/