sub defineOrder
{
	for (my $i = 0; defined($_[$i+1]); $i++)
	{
		${$_[$i]}->bind('<Return>', sub { ${$_[$i+1]}->focus } );
	}
	${$_[0]}->focus;
}