From 5bbf5d1e813c27bddae0dc2fb01ea1234fece503 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 24 Jul 2006 04:45:51 +0000
Subject: 	* 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.

---
 ChangeLog           |  7 +++++++
 macosx/tkMacOSXWm.c | 32 ++++++++++++++++++++++----------
 2 files changed, 29 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0df9783..fe28d86 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
 	     */
 
-- 
cgit v0.12