/* hello.c:  A simple Hello World Program 
 *
 * Albrecht Schmidt
 * TecO, www.teco.edu/~albrecht/
 */

#pragma pack(2)

#include "hello.h"
#include <Common.h>
#include <System/SysAll.h>
#include <UI/UIAll.h>


DWord PilotMain(Word cmd, Ptr cmdPBP, Word launchFlags)
	{
	short err;
	EventType e;
	FormType *pfrm;

	if (!cmd) 
		{
		FrmGotoForm(HelloStart);

 	      while(1) 
			{
			EvtGetEvent(&e, 100);
			if (SysHandleEvent(&e)) 
				continue;
			if (MenuHandleEvent((void *)0, &e, &err)) 
				continue;
	
			switch (e.eType) 
				{
			case ctlSelectEvent:		
				// put in your events and function call here
				if (e.data.ctlSelect.controlID == OkButton)
					{
					return 0; 
					}
				break;
	
			case frmLoadEvent:
		        FrmSetActiveForm(FrmInitForm(e.data.frmLoad.formID));
				break;
	
			case frmOpenEvent:
				pfrm = FrmGetActiveForm();
				FrmDrawForm(pfrm);
				break;

			case appStopEvent:
				return 0;

			default:
				FrmHandleEvent(FrmGetActiveForm(), &e);
				}
			}
		}
	return 0;
}