Function Tk_MapWindow

micropolis-activity/src/tk/tkwindow.c:980–1018

(tkwin)

 *
 * Results:
 *	None.
 *
 * Side effects:
 *	The given window will be mapped.  Windows may also
 *	be created.
 *
 *--------------------------------------------------------------
 */

void
Tk_MapWindow(tkwin)
    Tk_Window tkwin;		/* Token for window to map. */
{
    register TkWindow *winPtr = (TkWindow *) tkwin;

    if (winPtr->flags & TK_MAPPED) {
	return;
    }
    if (winPtr->window == None) {
	Tk_MakeWindowExist(tkwin);
    }
    if (winPtr->flags & TK_TOP_LEVEL) {
	if (!TkWmMapWindow(winPtr)) {
	    return;
	}
    } else {
	/*
	 * Don't set the mapped flag for top-level windows:  TkWmMapWindow
	 * does it if appropriate (e.g. if the window is going to be non-
	 * iconic).
	 */

	winPtr->flags |= TK_MAPPED;
    }
    XMapWindow(winPtr->display, winPtr->window);
    if (!(winPtr->flags & TK_TOP_LEVEL)) {
	XEvent event;

	event.type = MapNotify;
	event.xmap.serial = LastKnownRequestProcessed(winPtr->display);
	event.xmap.send_event = False;
	event.xmap.display = winPtr->display;