/*
**	GadTools layout toolkit
**
**	Copyright © 1993-1996 by Olaf `Olsen' Barthel
**		Freely distributable.
**
**	:ts=4
*/

#ifndef _GTLAYOUT_GLOBAL_H
#include "gtlayout_global.h"
#endif

VOID
LTP_DisposeGadgets(struct LayoutHandle *Handle)
{
	if(Handle->List)
	{
		struct Gadget	*Gadget;
		ObjectNode		*Node;

		LTP_StripGadgets(Handle,Handle->List);

		Gadget = Handle->List;

		if(Handle->ExitFlush)
		{
			while(Gadget)
			{
				if(GETOBJECT(Gadget,Node))
				{
					LTP_PutStorage(Node);

					LTP_DeleteObjectNode(Handle,Node);
				}

				Gadget = Gadget->NextGadget;
			}
		}
		else
		{
			while(Gadget)
			{
				if(GETOBJECT(Gadget,Node))
					LTP_DeleteObjectNode(Handle,Node);

				Gadget = Gadget->NextGadget;
			}
		}

		FreeGadgets(Handle->List);

		Handle->List = NULL;
	}

#ifdef DO_BOOPSI_KIND
	if(Handle->BOOPSIList)
	{
		struct Gadget *gadget = (struct Gadget *)Handle->BOOPSIList,*next;
		ObjectNode *Node;

		LTP_StripGadgets(Handle,(struct Gadget *)Handle->BOOPSIList);

		while(gadget)
		{
			next = gadget->NextGadget;

			if(GETOBJECT(gadget,Node))
			{
				DisposeObject(gadget);

				if(Node->Type == BOOPSI_KIND)
				{
					CloseLibrary(Node->Special.BOOPSI.ClassBase);
					Node->Special.BOOPSI.ClassBase = NULL;

					FreeTagItems(Node->Special.BOOPSI.ClassTags);
					Node->Special.BOOPSI.ClassTags = NULL;
				}

				Node->Host = NULL;
			}

			gadget = next;
		}

		Handle->BOOPSIList = NULL;
		Handle->BOOPSIPrevious = NULL;
	}
#endif	/* DO_BOOPSI_KIND */
}


/*****************************************************************************/


/****** gtlayout.library/LT_DeleteHandle ******************************************
*
*   NAME
*	LT_DeleteHandle -- Release storage space allocated by
*	                   LT_CreateHandleTagList, closing windows,
*	                   removing gadgets, etc.
*
*   SYNOPSIS
*	LT_DeleteHandle(Handle);
*	                  A0
*
*	VOID LT_DeleteHandle(LayoutHandle *);
*
*   FUNCTION
*	Windows and gadgets created by LT_CreateHandleTagList()
*	are removed, any associated memory is deallocated.
*
*   INPUTS
*	Handle - Pointer to a LayoutHandle structure created
*	    by LT_CreateHandleTaglist(). Passing NULL is
*	    harmless.
*
*   RESULT
*	none
*
*   SEE ALSO
*	gtlayout.library/CreateHandleTagList
*
******************************************************************************
*
*/

VOID LIBENT
LT_DeleteHandle(_REG(a0) LayoutHandle *Handle)
{
	if(Handle)
	{
		if(Handle->UnlockPubScreen)
			UnlockPubScreen(NULL,Handle->PubScreen);
#ifdef DO_CLONING
		if(Handle->CloneExtra && Handle->CloneExtra->Screen)
			ScreenToBack(Handle->CloneExtra->Screen);
#endif
		LTP_DisposeGadgets(Handle);

		LT_UnlockWindow(Handle->Parent);

		if(Handle->Window)
		{
			LT_DeleteWindowLock(Handle->Window);

			if(Handle->MsgPort && Handle->Window->UserPort)
			{
				struct IntuiMessage	*intuiMsg;
				struct Node			*next;

				Forbid();

				for(intuiMsg = (struct IntuiMessage *)Handle->Window->UserPort->mp_MsgList.lh_Head ; next = intuiMsg->ExecMessage.mn_Node.ln_Succ ; intuiMsg = (struct IntuiMessage *)next)
				{
					if(intuiMsg->IDCMPWindow == Handle->Window)
					{
						Remove(intuiMsg);

						ReplyMsg(intuiMsg);
					}
				}

				Handle->Window->UserPort = NULL;

				ModifyIDCMP(Handle->Window,NULL);

				Permit();
			}

			ClearMenuStrip(Handle->Window);
			CloseWindow(Handle->Window);
		}

#ifdef DO_MENUS
		LT_DisposeMenu(Handle->Menu);
#endif	// DO_MENUS

		DisposeObject(Handle->AmigaGlyph);
		DisposeObject(Handle->CheckGlyph);

		FreeScreenDrawInfo(Handle->Screen,Handle->DrawInfo);

		FreeVisualInfo(Handle->VisualInfo);

		if(Handle->RPort.Font && Handle->CloseFont)
			CloseFont(Handle->RPort.Font);
#ifdef DO_CLONING
		if(Handle->CloneExtra && Handle->CloneExtra->Screen)
			CloseScreen(Handle->CloneExtra->Screen);
#endif

		AsmDeletePool(Handle->Pool,SysBase);
	}
}