/*
 * Amiga GLUT graphics library toolkit
 * Version:  1.1
 * Copyright (C) 1998 Jarno van der Linden
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the Free
 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */


/*
 * glutDestroyWindow.c
 *
 * Version 1.0  27 Jun 1998
 * by Jarno van der Linden
 * jarno@kcbbs.gen.nz
 *
 */


#include <proto/intuition.h>
#include <proto/exec.h>
#include <proto/gadtools.h>

#include <stdlib.h>

#include "glutstuff.h"


VOID StripIntuiMessages(struct MsgPort *mp, struct Window *win)
{
	struct IntuiMessage *msg;
	struct Node *succ;

	msg = (struct IntuiMessage *)mp->mp_MsgList.lh_Head;

	while(succ = msg->ExecMessage.mn_Node.ln_Succ)
	{
		if(msg->IDCMPWindow == win)
		{
			Remove(msg);

			ReplyMsg(msg);
		}
		msg = (struct IntuiMessage *)succ;
	}
}


VOID CloseWindowSafely(struct Window *win)
{
	Forbid();
	StripIntuiMessages(win->UserPort, win);
	win->UserPort = NULL;
	ModifyIDCMP(win, 0L);
	Permit();

	CloseWindow(win);
}


void glutDestroyWindow( int win)
{
	struct GlutWindow *gw;
	struct Menu *menu;

	gw = stuffGetWin(win);

	stuffLinkOutWin(gw);

	ClearMenuStrip(gw->window);
	menu = gw->menu;
	while(menu)
	{
		FreeMenus(menu->FirstItem);
		menu->FirstItem = NULL;
		menu = menu->NextMenu;
	}
	FreeMenus(gw->menu);

	FreeVisualInfo(gw->vi);

	AmigaMesaRTLDestroyContext(gw->context);

	CloseWindowSafely(gw->window);

	free(gw);
}