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

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

VOID
LTP_DrawObjectLabel(LayoutHandle *Handle,ObjectNode *Node)
{
	if(Node -> Label)
	{
		LONG Left,Top,GlyphHeight = Handle -> GlyphHeight;

		switch(Node -> LabelPlace)
		{
			case PLACE_LEFT:

				Left	= Node -> Left;
				Top	= Node -> Top + (Node -> Height - GlyphHeight) / 2;

				break;

			case PLACE_RIGHT:

				Left	= Node -> Left + Node -> Width + INTERWIDTH + INTERWIDTH + Node -> LabelWidth;
				Top	= Node -> Top + (Node -> Height - GlyphHeight) / 2;

				break;

			case PLACE_ABOVE:

				Left	= Node -> Left + (Node -> Width - Node -> LabelWidth) / 2 + INTERWIDTH + Node -> LabelWidth;
				Top	= Node -> Top - (GlyphHeight + INTERHEIGHT);

				break;

			case PLACE_BELOW:

				Left	= Node -> Left + (Node -> Width - Node -> LabelWidth) / 2 + INTERWIDTH + Node -> LabelWidth;
				Top	= Node -> Top + Node -> Height + INTERHEIGHT;

				break;
		}

		LTP_PrintLabel(Handle,Node,Left,Top);
	}
}

VOID
LTP_DrawGroup(LayoutHandle *Handle,ObjectNode *Group)
{
	ObjectNode	*Node;
	LONG		 i;
	ULONG		 page;

	if(Group -> Label || Group -> Special . Group . Frame)
		LTP_DrawGroupLabel(Handle,Group);

	SCANPAGE(Group,Node,page)
	{
		switch(Node -> Type)
		{
#ifdef OLD_STYLE_DEFAULT_KEY
			case BUTTON_KIND:

				if(Handle -> ReturnKey == Node)
					LTP_DrawBevelBox(Handle,Node);

				break;
#endif
#ifdef DO_GAUGE_KIND
			case GAUGE_KIND:
			{
				LONG Percent = Node -> Current;

				Node -> Current = 0;

				LTP_DrawGauge(Handle,Node,Percent,TRUE);

				break;
			}
#endif
			case PALETTE_KIND:

				if(Node -> Special . Palette . UsePicker)
					LTP_DrawPalette(Handle,Node);

				break;

			case GROUP_KIND:

				if(Node -> Label)
					LTP_DrawGroupLabel(Handle,Node);

				LTP_DrawGroup(Handle,Node);

				break;

			case XBAR_KIND:
			{
				LONG Top = Node -> Top + ((Node -> Height + 1) / 2) - 1;
				struct RastPort *RPort = &Handle -> RPort;

				if(Node -> Special . Bar . FullSize)
				{
					LTP_SetAPen(RPort,Handle -> ShadowPen);
					LTP_DrawLine(RPort,Handle -> Window -> BorderLeft,Top,Handle -> Window -> Width - (Handle -> Window -> BorderRight + 1),Top);

					LTP_SetAPen(RPort,Handle -> ShinePen);
					LTP_DrawLine(RPort,Handle -> Window -> BorderLeft,Top + 1,Handle -> Window -> Width - (Handle -> Window -> BorderRight + 1),Top + 1);
				}
				else
				{
					LONG Room;

					if(Node -> Special . Bar . Parent -> Label)
						Room = 2 * Handle -> GlyphWidth;
					else
						Room = 0;

					LTP_SetAPen(RPort,Handle -> ShadowPen);
					LTP_PolyDraw(RPort,3,
						Node -> Special . Bar . Parent -> Left + Room,Top + 1,
						Node -> Special . Bar . Parent -> Left + Room,Top,
						Node -> Special . Bar . Parent -> Left + Node -> Special . Bar . Parent -> Width - 1 - 1 - Room,Top);

					LTP_SetAPen(RPort,Handle -> ShinePen);
					LTP_PolyDraw(RPort,3,
						Node -> Special . Bar . Parent -> Left + Room + 1,Top + 1,
						Node -> Special . Bar . Parent -> Left + Node -> Special . Bar . Parent -> Width - 1 - Room,Top + 1,
						Node -> Special . Bar . Parent -> Left + Node -> Special . Bar . Parent -> Width - 1 - Room,Top);
				}

				break;
			}

			case YBAR_KIND:
			{
				LONG Left = Node -> Left + ((Node -> Width + 1) / 2) - 1,Room;
				struct RastPort *RPort = &Handle -> RPort;

				if(Node -> Special . Bar . Parent -> Label)
					Room = Handle->GlyphHeight + Handle -> InterHeight;
				else
					Room = 0;

				LTP_SetAPen(RPort,Handle -> ShadowPen);
				LTP_PolyDraw(RPort,3,
					Left + 1,	Node -> Special . Bar . Parent -> Top + Room,
					Left,		Node -> Special . Bar . Parent -> Top + Room,
					Left,		Node -> Special . Bar . Parent -> Top + Node -> Special . Bar . Parent -> Height - 1 - 1 - Room);

				LTP_SetAPen(RPort,Handle -> ShinePen);
				LTP_PolyDraw(RPort,3,
					Left + 1,	Node -> Special . Bar . Parent -> Top + Room + 1,
					Left + 1,	Node -> Special . Bar . Parent -> Top + Node -> Special . Bar . Parent -> Height - 1 - Room,
					Left,		Node -> Special . Bar . Parent -> Top + Node -> Special . Bar . Parent -> Height - 1 - Room);

				if((Handle->AspectY + Handle->AspectX - 1) / Handle->AspectX >= 2)
				{
					LTP_SetAPen(RPort,Handle -> ShadowPen);
					LTP_DrawLine(RPort,	Left - 1,	Node -> Special . Bar . Parent -> Top + Room,
								Left - 1,	Node -> Special . Bar . Parent -> Top + Node -> Special . Bar . Parent -> Height - 1 - Room);

					LTP_SetAPen(RPort,Handle -> ShinePen);
					LTP_DrawLine(RPort,	Left + 2,	Node -> Special . Bar . Parent -> Top + Room,
								Left + 2,	Node -> Special . Bar . Parent -> Top + Node -> Special . Bar . Parent -> Height - 1 - Room);
				}

				break;
			}

			case FRAME_KIND:

				if(Node -> Special . Frame . DrawBox)
					LTP_DrawBevelBox(Handle,Node);

				if(Node -> Special . Frame . RefreshHook)
				{
					RefreshMsg Message;

					Message . ID		= Node -> ID;
					Message . Left		= Node -> Left;
					Message . Top		= Node -> Top;
					Message . Width		= Node -> Width;
					Message . Height	= Node -> Height;

					if(Node -> Special . Frame . DrawBox)
					{
						Message . Left		+= 4;
						Message . Top		+= 2;
						Message . Width		-= 8;
						Message . Height	-= 4;
					}

					CallHookPkt(Node -> Special . Frame . RefreshHook,Handle,&Message);
				}

				// FALL THROUGH TO...

			case BOOPSI_KIND:

				// FALL THROUGH TO...

			case POPUP_KIND:

				// FALL THROUGH TO...

			case TAPEDECK_KIND:

				LTP_DrawObjectLabel(Handle,Node);
				break;

			case MX_KIND:

				if(Node -> Label && !V39)
					LTP_PrintLabel(Handle,Node,Node -> Left,Node -> Top + (Node -> Height - Handle -> GlyphHeight) / 2 + 1);

				break;

			case LISTVIEW_KIND:
			{
				struct RastPort *RPort = &Handle -> RPort;

				if(Node -> Special . List . ExtraLabels)
				{
					LTP_SetPens(RPort,Handle -> TextPen,0,JAM1);

					for(i = 0 ; Node -> Special . List . ExtraLabels[i] ; i++)
					{
						LONG Len = strlen(Node -> Special . List . ExtraLabels[i]);

						LTP_PrintText(RPort,Node -> Special . List . ExtraLabels[i],Len,Node -> Left - (TextLength(RPort,Node -> Special . List . ExtraLabels[i],Len) + INTERWIDTH),Node -> Top + 2 + i * Handle->GlyphHeight);
					}
				}

				if(Node -> Label)
				{
					if(Node -> LabelPlace == PLACE_ABOVE && Node -> Special . List . FlushLabelLeft)
					{
						struct TextFont *Font = NULL,*OldFont;

						if(Node -> Special . List . TextAttr)
						{
							if(Font = LTP_OpenFont(Node -> Special . List . TextAttr))
							{
								OldFont = RPort->Font;

								SetFont(RPort,Font);
							}
							else
								break;
						}

						LTP_PrintLabel(Handle,Node,Node -> Left + 2 + INTERWIDTH + Node -> LabelWidth,Node -> Top - (Handle->GlyphHeight + INTERHEIGHT));

						if(Font)
						{
							SetFont(RPort,OldFont);

							CloseFont(Font);
						}
					}
					else
					{
						if(Node -> Special . List . TextAttr)
							LTP_DrawObjectLabel(Handle,Node);
					}
				}

				break;
			}

			case BOX_KIND:
			{
				struct RastPort *RPort = &Handle -> RPort;

				Node -> Special . Box . Parent = Group;

				if(Node -> Special . Box . DrawBox)
					LTP_DrawBevelBox(Handle,Node);

				LockLayerRom(RPort->Layer);

				for(i = 0 ; i < Node -> Lines ; i++)
				{
					if(Node -> Special . Box . Labels && Node -> Special . Box . Labels[i])
					{
						LONG Len = strlen(Node -> Special . Box . Labels[i]);

						LTP_SetPens(RPort,Handle -> TextPen,0,JAM1);
						LTP_PrintText(RPort,Node -> Special . Box . Labels[i],Len,Node -> Left - (TextLength(RPort,Node -> Special . Box . Labels[i],Len) + INTERWIDTH),Node -> Top + 2 + i * Handle->GlyphHeight);
					}

					LTP_PrintBoxLine(Handle,Node,i);
				}

				UnlockLayerRom(RPort->Layer);

				break;
			}
		}
	}
}