#include "univ.h"

Widget basepane;
Widget myolinitialize();

static String defaultres[] = 
{
#ifdef sun
	"assembler.geometry:		275x400+673+445",
	"breakpoint.geometry:		150x175+980+225",
	"frame.geometry:		350x175+460+225",
	"globals.geometry:		350x175+460+225",
	"journal.geometry:		500x160+480+20",
	"keyboard.geometry:		400x125+40+65",
	"memory.geometry:		200x200+940+667",
	"pi.geometry:			500x160+460+30",
	"process.geometry:		400x175+40+225",
	"rtconnect.geometry:		500x160+480+20",
	"rtpi.geometry:			500x160+460+30",
	"signals.geometry:		200x200+940+435",
	"source.geometry:		600x400+40+435",
	"srcfiles.geometry:		140x175+825+225",
	"usertypes.geometry:		275x400+653+435",
	"help*charsVisible:		83",
	"help*linesVisible:		50",
	"wd*linesVisible:		4",
	"TopLevelShell*Background:	grey80",
	"TopLevelShell*TextBackground:	white",
	"TopLevelShell*Caption.font:	lucidasans-bold",
	"TopLevelShell*font:		lucidasanstypewriter",
	"*blinkRate:			0",
#endif
#ifdef sgi
	"assembler.geometry:		275x400+683+495",
	"breakpoint.geometry:		170x175+1000+265",
	"frame.geometry:		350x175+460+265",
	"globals.geometry:		350x175+460+265",
	"journal.geometry:		500x160+480+50",
	"keyboard.geometry:		400x125+40+95",
	"memory.geometry:		200x200+960+727",
	"pi.geometry:			500x160+460+60",
	"process.geometry:		400x175+40+265",
	"rtconnect.geometry:		500x160+480+50",
	"rtpi.geometry:			500x160+460+60",
	"signals.geometry:		200x200+960+485",
	"source.geometry:		600x400+40+485",
	"srcfiles.geometry:		140x175+835+265",
	"usertypes.geometry:		275x400+663+485",
	"help*charsVisible:		84",
	"help*linesVisible:		50",
	"wd*linesVisible:		4",
	"TopLevelShell*Background:	grey80",
	"TopLevelShell*TextBackground:	white",
	"TopLevelShell*Caption.font:	screen13",
	"TopLevelShell*TextEdit.font:	screen-bold15",
	"TopLevelShell*font:		screen-bold13",
	"*blinkRate:			0",
#endif
#ifdef i386
	"assembler.geometry:		235x250-7+330",
	"breakpoint.geometry:		235x250-7+330",
	"frame.geometry:		325x110-7+180",
	"globals.geometry:		325x110-7+180",
	"journal.geometry:		235x250-7+330",
	"keyboard.geometry:		325x110-7+31",
	"memory.geometry:		235x250-7+330",
	"pi.geometry:			425x110+18+31",
	"process.geometry:		425x110+8+31",
	"rtconnect.geometry:		425x110+8+31",
	"rtpi.geometry:			425x110+18+31",
	"signals.geometry:		235x250-7+330",
	"source.geometry:		435x395+8+180",
	"srcfiles.geometry:		235x250-7+330",
	"usertypes.geometry:		235x250-7+330",
	"help*charsVisible:		84",
	"help*linesVisible:		38",
	"wd*linesVisible:		4",
	"TopLevelShell*Background:	grey",
	"TopLevelShell*TextBackground:	orange",
	"TopLevelShell*font:		fixed",
	"TopLevelShell*Caption.font:	fixed",
	"*blinkRate:			0",
#endif
	NULL
};

void alarmCB(d, i)
caddr_t d;
XtIntervalId *i;
{
	Cycle();
}

timerstart()
{
	XtAddTimeOut(1000, alarmCB, NULL);
}

main(argc, argv) 
int argc;
char **argv;
{
	basepane = myolinitialize("pads", "Pads", NULL, NULL,
		&argc, argv, defaultres);
	hostsetup();
	keyinputsetup();
	XtMainLoop();
}