[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / auto / Tk / Toplevel / FG_Out.al

# NOTE: Derived from blib/lib/Tk/Toplevel.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Toplevel;

#line 188 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_Out.al)"
# tkFocusGroup_Out --
#
#	Handles the <FocusOut> event. Checks if this is really a lose
#	focus event, not one generated by the mouse moving out of the
#	toplevel window.  Calls the FocusOut command for the widget
#	who loses its focus.
#
sub FG_Out {
    my($t, $w, $detail) = @_;
    if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') {
	# This is caused by mouse moving out of the window
	return;
    }
    unless (exists $t->{'_FocusOut'}{$w}) {
	return;
    } else {
	$t->{'_FocusOut'}{$w}->Call;
	delete $t->{'_focus'};
    }
}

1;

__END__
1;
# end of Tk::Toplevel::FG_Out
Commit	Line	Data
86530b38 AT	1	# NOTE: Derived from blib/lib/Tk/Toplevel.pm.
	2	# Changes made here will be lost when autosplit is run again.
	3	# See AutoSplit.pm.
	4	package Tk::Toplevel;
	5
	6	#line 188 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_Out.al)"
	7	# tkFocusGroup_Out --
	8	#
	9	# Handles the <FocusOut> event. Checks if this is really a lose
	10	# focus event, not one generated by the mouse moving out of the
	11	# toplevel window. Calls the FocusOut command for the widget
	12	# who loses its focus.
	13	#
	14	sub FG_Out {
	15	my($t, $w, $detail) = @_;
	16	if ($detail ne 'NotifyNonlinear' and $detail ne 'NotifyNonlinearVirtual') {
	17	# This is caused by mouse moving out of the window
	18	return;
	19	}
	20	unless (exists $t->{'_FocusOut'}{$w}) {
	21	return;
	22	} else {
	23	$t->{'_FocusOut'}{$w}->Call;
	24	delete $t->{'_focus'};
	25	}
	26	}
	27
	28	1;
	29
	30	__END__
	31	1;
	32	# end of Tk::Toplevel::FG_Out