/*
 * :ts=8 bk=0
 * 
 * iconify.c:	You asked for it, you got it.
 * 
 * Copyright 1987 by Leo L. Schwab. Permission is hereby granted for use in any
 * and all programs, both Public Domain and commercial in nature, provided
 * this Copyright notice is left intact.  Purveyors of programs, at their
 * option, may wish observe the following conditions (in the spirit of
 * hackerdom): 1: You send me a free, registered copy of the program that
 * uses the iconify feature, 2: If you're feeling really nice, a mention in
 * the program's documentation of my name would be neat.
 * 
 * 8712.10		(415) 456-3960
 */
#include "do_iconify.h"
#ifdef	DO_ICONIFY

#include <exec/types.h>
#include <devices/timer.h>
#include <intuition/intuition.h>
#ifdef LATTICE
#include <proto/all.h>
#else
#include <functions.h>
#endif

#undef TRUE
#undef FALSE
#include "def.h"
#include "iconify.h"

#ifndef	NO_PROTO
static int openstuff PROTO((VOID));
static VOID closestuff PROTO((VOID));
#else
static int openstuff();
static VOID closestuff();
#endif

/*
 * It is recommended that the tick rate not be made too rapid to avoid
 * bogging down the system.
 */
#define	TPS	10

/*
 * Some programmers may not wish to have the added functionality of the
 * ICON_FUNCTION feature.  If you're such a programmer, you may comment out
 * the following #define, which will eliminate the code to handle function
 * calls, and make iconify() even smaller.
 */
/*
 * mg doesn't use this, so we turn it off. #define	USE_FUNCTIONS
 */
/*
 * Jim Mackraz suggested making icons easily identifiable by outside
 * programs, so this constant gets stuffed into the UserData field.
 */
#define	ICON	0x49434f4eL	/* 'ICON'  */

static struct Gadget gadget = {
	NULL,
	0, 0, 0, 0,
	NULL,			/* Set later  */
	GADGIMMEDIATE,
	WDRAGGING,		/* Observe the Magic!  */
	NULL,			/* Set later  */
	NULL, NULL, NULL, NULL,
	0, 0
};

static struct NewWindow windef = {
	0, 0, 0, 0,		/* Set later  */
	-1, -1,
	GADGETDOWN,
	BORDERLESS | SMART_REFRESH | NOCAREREFRESH,
	&gadget,
	NULL, NULL, NULL, NULL,	/* Lotsa these  */
	0, 0, 0, 0,
	WBENCHSCREEN
};

static struct Window *win;

#ifdef USE_FUNCTIONS
static struct timerequest *tr;
static struct MsgPort *reply;
#endif


iconify(left, top, width, height, screen, ptr, type)
	UWORD          *left, *top, width, height;
	struct Screen  *screen;
	APTR            ptr;
	int             type;
{
	register struct IntuiMessage *msg;
	long            secs = 0, mics = 0, cs, cm, class, sigmask;

	windef.LeftEdge = *left;
	windef.TopEdge = *top;
	windef.Width = width;
	windef.Height = height;
	windef.Type = (windef.Screen = screen) ? CUSTOMSCREEN : WBENCHSCREEN;

	gadget.Flags = GADGHCOMP | GRELWIDTH | GRELHEIGHT;

	switch (type & 3) {
	case ICON_IMAGE:
		gadget.Flags |= GADGIMAGE;
	case ICON_BORDER:
		gadget.GadgetRender = ptr;
		break;

	case ICON_FUNCTION:
#ifdef USE_FUNCTIONS
		gadget.GadgetRender = NULL;
#else
		return (0);
#endif
		break;

	default:
		return (0);
	}

	if (!openstuff())
		return (0);
	sigmask = 1L << win->UserPort->mp_SigBit;

#ifdef USE_FUNCTIONS
	if (type == ICON_FUNCTION) {
		sigmask |= 1L << reply->mp_SigBit;
		tr->tr_node.io_Command = TR_ADDREQUEST;
		tr->tr_time.tv_secs = 0;
		tr->tr_time.tv_micro = (1000000L / TPS);
		SendIO((struct IORequest *) tr);
		/*
		 * Make initialization call to user's function. Isn't
		 * typecasting wonderful?  :-|
		 */
		(*((void (*) ()) ptr)) (win, (WORD) 1);
	}
#endif

	while (1) {
		Wait(sigmask);

#ifdef USE_FUNCTIONS
		if (GetMsg(reply)) {
			/*
			 * Call user's function to do something to the icon.
			 */
			(*((void (*) ()) ptr)) (win, (WORD) 0);
			tr->tr_time.tv_secs = 0;
			tr->tr_time.tv_micro =
				(1000000L / TPS);
			SendIO((struct IORequest *) tr);
		}
#endif

		if (msg = (struct IntuiMessage *) GetMsg(win->UserPort)) {
			class = msg->Class;
			cs = msg->Seconds;
			cm = msg->Micros;
			ReplyMsg((struct Message *) msg);

			if (class == GADGETDOWN) {
				if (DoubleClick(secs, mics, cs, cm))
					break;
				secs = cs;
				mics = cm;
			}
		}
	}

#ifdef USE_FUNCTIONS
	if (type == ICON_FUNCTION) {
		AbortIO((struct IORequest *) tr);
		WaitIO((struct IORequest *) tr);
	}
#endif

	*left = win->LeftEdge;
	*top = win->TopEdge;
	closestuff();
	return (1);
}

static
openstuff()
{
	if (!(win = OpenWindow(&windef)))
		return (0);
	win->UserData = (BYTE *) ICON;

#ifdef USE_FUNCTIONS
	if (!(reply = CreatePort(NULL, NULL)) ||
	    !(tr = (struct timerequest *) CreateExtIO(reply, (long) sizeof(*tr))) ||
	    OpenDevice(TIMERNAME, (long) UNIT_VBLANK, (struct IORequest *) tr, 0L)) {
		closestuff();
		return (0);
	}
#endif

	return (1);
}

static          VOID
closestuff()
{
#ifdef USE_FUNCTIONS
	if (tr) {
		if (tr->tr_node.io_Device)
			CloseDevice((struct IORequest *) tr);
		DeleteExtIO((struct IORequest *) tr, (long) sizeof(*tr));
	}
	if (reply)
		DeletePort(reply);
#endif

	if (win)
		CloseWindow(win);
}
#else
#include "nullfile.h"
#endif