Function Tk_MoveResizeWindow

micropolis-activity/src/tk/tkwindow.c:1255–1282

(tkwin, x, y, width, height)

	if (!(winPtr->flags & TK_TOP_LEVEL)) {
	    winPtr->changes.width = width;
	    winPtr->changes.height = height;
	    DoConfigureNotify(winPtr);
	}
    } else {
	winPtr->changes.width = width;
	winPtr->changes.height = height;
	winPtr->dirtyChanges |= CWWidth|CWHeight;
	winPtr->flags |= TK_NEED_CONFIG_NOTIFY;
    }
}

void
Tk_MoveResizeWindow(tkwin, x, y, width, height)
    Tk_Window tkwin;		/* Window to move and resize. */
    int x, y;			/* New location for window (within
				 * parent). */
    unsigned int width, height;	/* New dimensions for window. */
{
    register TkWindow *winPtr = (TkWindow *) tkwin;

    if (winPtr->window != None) {
	XMoveResizeWindow(winPtr->display, winPtr->window,
		x, y, width, height);
	if (!(winPtr->flags & TK_TOP_LEVEL)) {
	    winPtr->changes.x = x;
	    winPtr->changes.y = y;
	    winPtr->changes.width = width;
	    winPtr->changes.height = height;
	    DoConfigureNotify(winPtr);
	}
    } else {