[once] w <Tk::Frame=HASH(0x295d6a76518)>
XS_Tk__Callback_Call error:bad anchor "sec": must be n, ne, e, se, s, sw, w, nw, or center at 
……../site/lib/Tk/Widget.pm line 1218.
 …../site/lib/Tk/After.pm line 93.

##</code><code>##

sub once
{
 my $obj = shift;
 my $w   = $obj->[0];
 my $id  = $obj->[1];

	print "[once] w <$w> \n";

 delete $w->{_After_}{$id};
 local $Tk::widget = $w;
 $obj->[4]->Call;
}