/*
 * clock.c  - simple clock in a window Desk Accessory
 *
 * Note: When NOT_A_DA is defined the program is built as a true program,
 * but if optimising some unused assignments will be reported.
 */

#include <aes.h>
#include <stdio.h>
#include <time.h>
#include "rclock.h"
#include "rclock.c"

#ifndef NOT_A_DA
#include <acc.h>

STACK(1024);	// hopefully plenty
#endif

#define W_TYPE (NAME | MOVER | CLOSER)

int
new_window(OBJECT *tree, const char *title)
{
	int wh;
	GRECT p;

	// compute required size for window given object tree
	wind_calc(WC_BORDER, W_TYPE, PTRS((GRECT *)&tree[ROOT].ob_x),
	  &p.g_x, &p.g_y, &p.g_w, &p.g_h);

	wh = wind_create(W_TYPE, ELTS(p));
	if (wh >= 0) {
		wind_title(wh, title);
		wind_open(wh, ELTS(p));
	}
	return wh;
}

int
redraw(int wh,GRECT *p)
{
	objc_draw(rclock,ROOT,MAX_DEPTH,PTRS(p));
	return 1;
}

#ifdef NOT_A_DA
int
#else
void
#endif
main(void)
{
	int id, wh = -1;
	GRECT full;
	
	id = appl_init();

	rsrc_init();
	wind_get(DESK, WF_WXYWH, &full.g_x, &full.g_y, &full.g_w, &full.g_h);
	rc_constrain(&full, (GRECT *)&rclock[ROOT].ob_x);
#ifndef NOT_A_DA
	menu_register(id, clock_menu);	// register as a DA
#else
	wh = new_window(rclock, clock_title);
#endif

	for (;;) {
		short msg[8], junk;
		int which;
		
		which = evnt_multi(MU_TIMER | MU_MESAG,
		  0, 0, 0,			// mouses
		  0, 0, 0, 0, 0,	// rectangle 1
		  0, 0, 0, 0, 0,	// rectangle 2
		  msg,				// message buffer
		  2000, 0,			// respond every 2s
		  &junk, &junk, &junk, &junk, &junk, &junk);

		if (which & MU_MESAG)
			switch (msg[0]) {
#ifndef NOT_A_DA
				case AC_OPEN:
					if (wh < 0)
						wh = new_window(rclock, clock_title);
					else
						wind_set(wh, WF_TOP, wh);
					break;

				case AC_CLOSE:
					wh = -1;
					break;
#endif
				case WM_TOPPED:
					wind_set(msg[3], WF_TOP, msg[3]);
					break;

				case WM_CLOSED:
					wind_close(wh);
					wind_delete(wh);
					wh = -1;
					break;

				case WM_REDRAW:
					wind_redraw(msg[3], (GRECT *)&msg[4], redraw);
					break;

				case WM_MOVED:
					wind_set(wh, WF_CXYWH, PTRS((GRECT *)&msg[4]));
					wind_calc(WC_WORK, W_TYPE, PTRS((GRECT *)&msg[4]),
					  &rclock[ROOT].ob_x,
					  &rclock[ROOT].ob_y,
					  &rclock[ROOT].ob_width,
					  &rclock[ROOT].ob_height);
					break;
			}
		
		if (which & MU_TIMER) {
			short top;
			
			wind_get(DESK, WF_TOP, &top, &junk, &junk, &junk);
			if (top == wh) {	// may only safely call GEMDOS if on top
				time_t t;
				struct tm *tm;
				
				time(&t);
				tm = localtime(&t);
				sprintf(rclock[TIME].ob_spec,"%02d:%02d:%02d",
				  tm->tm_hour,
				  tm->tm_min,
				  tm->tm_sec);
				*(GRECT *)&msg[4] = *(GRECT *)&rclock[ROOT].ob_x;
				wind_redraw(msg[3], (GRECT *)&msg[4], redraw);
			}
		}
#ifdef NOT_A_DA
		if (wh < 0)
			break;
#endif
	}
#ifdef NOT_A_DA
	appl_exit();
	return 0;
#endif
}