sub focusPrev
{
	my $w = shift;

	$w->focusPrev;
}