#ifndef lint
static char sccs_id[] = "@(#)twin_close.c	5.3  9/1/88";
#endif

/*
 * Copyright 1988 by Siemens Research and Technology Laboratories, Princeton, NJ
 *
 *                         All Rights Reserved
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notice appear in all copies and that
 * both that copyright notice and this permission notice appear in
 * supporting documentation, and that the name of Siemens Research and Technology
 * Laboratories not be used in advertising or publicity pertaining to
 * distribution of the software without specific, written prior permission.
 *
 *
 * SIEMENS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
 * SIEMENS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */
#include "copyright.h"

#include "basetype.h"
#include "twinD.h"
#include "win.h"
#include "state.h"

void Tilwin_Close(winp)
    Tilwinp winp;
{
    Tilwin *twinp = (Tilwin *)winp;
    
    State_Start_Operation();

    if (Tilwin_Is_Open(twinp) != TRUE)
        return;
    
    State_Manual_Close(twinp);
    Win_Close(twinp);
}


void Tilwin_Auto_Close(winp)
    Tilwinp winp;
{
    Tilwin *twinp = (Tilwin *)winp;

    State_Start_Operation();

    if (Tilwin_Is_Open(twinp) != TRUE) 
    {
	Tilwin_Was_Automatically_Closed(twinp) = TRUE;
        return;
    }
    
    State_Auto_Close(twinp);
    Win_Close(twinp);
}