demo5.g

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

subseq foo()
	{
	whenever self->feep do
		print self.feep, $name
	}

a := foo()
a->feep(1)
a->feep(2)