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

#include "gtlayout_global.h"

#ifdef DO_MENUS

	/* LTP_CreateMenuTemplate(RootMenu *Root,LONG *Error,struct NewMenu *MenuTemplate):
	 *
	 *	Create the menu strip data.
	 */

BOOLEAN __regargs
LTP_CreateMenuTemplate(RootMenu *Root,LONG *Error,struct NewMenu *MenuTemplate)
{
	MenuNode	*LastMenu	= NULL;
	ItemNode	*LastItem	= NULL;
	ItemNode	*LastSub	= NULL;

	MenuNode	*Menu;
	ItemNode	*Item;
	ItemNode	*Sub;

	BOOLEAN		 Done;

	*Error = 0;

	Done = FALSE;

	do
	{
			// Check the type

		switch(MenuTemplate -> nm_Type)
		{
				// Stop here?

			case NM_END:

				DB(kprintf("NM_END\n"));

					// Mark the last menu item

				if(LastSub)
					LastSub -> Flags |= ITEMF_LastItem;
				else
				{
					if(LastItem)
						LastItem -> Flags |= ITEMF_LastItem;
				}

				Done = TRUE;
				break;

				// Found a new menu?

			case NM_TITLE:

				DB(kprintf("NM_TITLE |%s|\n",MenuTemplate -> nm_Label));

					// Stop on weird labels

				if(MenuTemplate -> nm_Label == NM_BARLABEL)
					*Error = ERROR_OBJECT_WRONG_TYPE;
				else
				{
						// Choose the menu to use

					if(!LastMenu)
						Menu = (MenuNode *)&Root -> Node;
					else
						Menu = NULL;

					DB(kprintf("         make menu\n"));

						// Make room for the menu

					if(Menu = LTP_MakeMenu(Root,Menu,MenuTemplate))
					{
							// Link to last menu

						if(LastMenu)
							LastMenu -> Menu . NextMenu = &Menu -> Menu;

							// Mark the last menu item

						if(LastSub)
							LastSub -> Flags |= ITEMF_LastItem;
						else
						{
							if(LastItem)
								LastItem -> Flags |= ITEMF_LastItem;
						}

						LastMenu	= Menu;
						LastItem	= NULL;
						LastSub		= NULL;

							// Add the menu to the list

						AddTail((struct List *)&Root -> MenuList,(struct Node *)Menu);
					}
					else
						*Error = ERROR_NO_FREE_STORE;
				}

				break;

				// Found a new menu item?

			case NM_ITEM:

				DB(kprintf("NM_ITEM |%s|\n",MenuTemplate -> nm_Label == NM_BARLABEL ? (STRPTR)"«Bar»" : MenuTemplate -> nm_Label));

					// We need a menu to attach this to

				if(!LastMenu)
					*Error = ERROR_INVALID_COMPONENT_NAME;
				else
				{
					DB(kprintf("        make item\n"));

						// Make room for the item

					if(Item = LTP_MakeItem(Root,MenuTemplate))
					{
							// Link it in

						if(LastItem)
							LastItem -> Item . NextItem = &Item -> Item;
						else
							LastMenu -> Menu . FirstItem = &Item -> Item;

						LastItem	= Item;
						LastSub		= NULL;

							// Add it to the item list

						AddTail((struct List *)&Root -> ItemList,(struct Node *)Item);
					}
					else
						*Error = ERROR_NO_FREE_STORE;
				}

				break;

			case NM_SUB:

				DB(kprintf("NM_SUB |%s|\n",MenuTemplate -> nm_Label == NM_BARLABEL ? (STRPTR)"«Bar»" : MenuTemplate -> nm_Label));

					// We need a menu item to attach this to

				if(!LastItem)
					*Error = ERROR_INVALID_COMPONENT_NAME;
				else
				{
					DB(kprintf("       make sub\n"));

						// Make room for the item

					if(Sub = LTP_MakeItem(Root,MenuTemplate))
					{
							// Make sure it stays a submenu item

						Sub -> Flags |= ITEMF_IsSub;

							// Link it in

						if(LastSub)
							LastSub -> Item . NextItem = &Sub -> Item;
						else
						{
								// We cannot attach submenu items to
								// separator bars

							if(LastItem -> Flags & ITEMF_IsBar)
								*Error = ERROR_INVALID_COMPONENT_NAME;
							else
							{
								DB(kprintf("-----------> |%s| has submenu items\n",((struct IntuiText *)LastItem -> Item . ItemFill) -> IText));

									// Link the submenu item in

								LastItem -> Item . SubItem = &Sub -> Item;

									// Zap the command sequence data

								LastItem -> Flags		= (LastItem -> Flags & ~ITEMF_Command) | ITEMF_HasSub;
								LastItem -> ExtraLabel	= NULL;

								LastItem -> Item . Flags	&= ~COMMSEQ;
								LastItem -> Item . Command	 = 0;

									// This is the first submenu item for this menu item

								Sub -> Flags |= ITEMF_FirstSub;
							}
						}

						LastSub = Sub;

							// Add it to the list

						AddTail((struct List *)&Root -> ItemList,(struct Node *)Sub);
					}
					else
						*Error = ERROR_NO_FREE_STORE;
				}

				break;
		}

			// Proceed to the next entry

		MenuTemplate++;
	}
	while(!Done && !(*Error));

		// Did we create anything at all?

	if(!(*Error))
	{
		if(!Root -> MenuList . mlh_Head -> mln_Succ)
			*Error = ERROR_OBJECT_NOT_FOUND;
		else
			LTP_FixExtraLabel(Root,Error);
	}

	DB(kprintf("through, error=%ld\n",*Error));

	if(*Error)
		return(FALSE);
	else
		return(TRUE);
}

#endif	/* DO_MENUS */