test3.g

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

# Simple test of "timer" client.

t := client("timer -oneshot 0")

count := 0

whenever t->ready do
	{
	count := count + 1

	if ( count <= 5 )
		{
		print count
		t->interval( count )
		}
	else
		exit
	}