view release on metacpan or  search on metacpan

patches/diff_tkos2_800_05a  view on Meta::CPAN

 /*
  *--------------------------------------------------------------
@@ -374,7 +429,7 @@ TkWmMapWindow(winPtr)
 #endif
 
     if (wmPtr->flags & WM_NEVER_MAPPED) {
-	int x, y, width, height;
+	int x, y, width, height, yInParent;
 	TkOS2Drawable *parentPtr;
 	HWND frame = NULLHANDLE;
         FRAMECDATA fcdata;
@@ -481,8 +536,13 @@ TkWmMapWindow(winPtr)
                    wmPtr->borderHeight);
 #endif
         }
+
+	yInParent = wmPtr->yInParent;
+	wmPtr->yInParent += wmPtr->menuHeight;
+
         if (wmPtr->exStyle & FCF_TITLEBAR) {
             wmPtr->borderHeight += titleBar;