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

#include "gtlayout_global.h"

VOID __regargs
LTP_DrawPalette(struct LayoutHandle *Handle,struct ObjectNode *Node)
{
	struct RastPort *rp = &Handle -> RPort;

	LTP_SetAPen(rp,Node -> Current);
	RectFill(rp,Node -> Left + 3,Node -> Top + 2,Node -> Left + Node -> Special . Palette . IndicatorWidth - 4,Node -> Top + Node -> Height - 3);

	DrawBevelBox(rp,Node -> Left,Node -> Top,Node -> Special . Palette . IndicatorWidth,Node -> Height,
		GT_VisualInfo,	Handle -> VisualInfo,
		GTBB_Recessed,	TRUE,
	TAG_DONE);
}