/* vudu.c -- ihelp intuition voodoo	*/

#include "ihelp.h"

#define D(x)	;

struct IntuitionBase *IntuitionBase;

#define	IMINWIDTH	40
#define	IMINHEIGHT	30
#define	MIN(A,B)	(((A)<(B))?(A):(B))
#define	MAX(A,B)	(((A)>(B))?(A):(B))

makesize(command)
{
	ULONG			ilock;
	struct Window	*awindow;
	struct Screen	*ascreen;
	SHORT			deltaw;
	SHORT			deltah;

	ilock = LockIBase(0L);
	awindow = IntuitionBase->ActiveWindow;
	ascreen = awindow->WScreen;

	switch (command)
	{
	case MAKESMALL:
		deltaw = MAX(awindow->MinWidth, IMINWIDTH) - awindow->Width;
		deltah = MAX(awindow->MinHeight, IMINHEIGHT) - awindow->Height;
		break;

	case MAKEBIG:
		deltaw =
			MIN(ascreen->Width - awindow->LeftEdge, (unsigned) awindow->MaxWidth)
			- awindow->Width;
		deltah =
			MIN(ascreen->Height-awindow->TopEdge, (unsigned) awindow->MaxHeight)
			- awindow->Height;
		break;
	default:
		deltaw = 0;
		deltah = 0;
	}

	SizeWindow(awindow, (LONG) deltaw, (LONG) deltah);

	UnlockIBase(ilock);
}


cyclebackward()
{
	;
#if PSEUDOCODE
	lock intuition base
	find active window
	get its screen
	get frontmost layer from layer info
	get second layer too (not WBENCHWINDOW)
	unlock ibase

	is active window frontmost?
		if second is not backdrop
			active window to back
			activate second window
		else
			abort
	else
		activate frontmost
#endif
}

cycleforward()
{
	LONG			ilock;
	struct Window	*awindow;
	struct Screen	*ascreen;
	struct Layer	*rearlayer;		/* rearmost so far		*/
	struct Layer	*layer;			/* runs through layers	*/
	struct Window	*lwindow;		/* layer->Window		*/


	ilock = LockIBase(0L);
	awindow = IntuitionBase->ActiveWindow;
	ascreen = awindow->WScreen;

	D( kprintf("active window/screen: %lx/%lx\n", awindow, ascreen) );

	/* for now, only pull this shit on the workbench	*/
	if ((ascreen->Flags & SCREENTYPE) != WBENCHSCREEN)
	{
		D( kprintf("not wbscreen\n") );
		UnlockIBase(ilock);
		goto OUT;
	}

	/* find rearmost layer which is not a backdrop window,
	 * nor the bar layer, nor a WBENCHWINDOW
	 */
	rearlayer = NULL;
	for (layer = ascreen->LayerInfo.top_layer;layer; layer = layer->back)
	{
		lwindow = (struct Window *) layer->Window;
		D( kprintf("layer %lx window %lx\n",layer, lwindow) );
		if (layer == ascreen->BarLayer)	
		{
			D( kprintf("is bar layer\n") );
			continue;
		}
		if (layer->Flags & LAYERBACKDROP)
		{
			D( kprintf("backdrop layer\n") );
			continue;
		}
		if (lwindow->Flags & WBENCHWINDOW)
		{
			D( kprintf("skipping wbench window\n") );
			continue;
		}

		rearlayer = layer;
	}
	D( kprintf("let's try it\n") );
	UnlockIBase(ilock);
	D( kprintf("unlocked\n") );

	if (rearlayer)
	{
		lwindow = (struct Window *) rearlayer->Window;
		D( kprintf("window of choice: %lx\n") );
		WindowToFront(lwindow);
		if (lwindow != awindow) ActivateWindow(lwindow);
	}

OUT:
	D( kprintf("cycleback done\n") );
	return;

}

ihelp_init()
{
	/* returns 0 if problem	*/
	IntuitionBase=(struct IntuitionBase *) OpenLibrary("intuition.library",33L);
	if (!IntuitionBase) return (0);
	return (1);
}
ihelp_shutdown()
{
	if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
}