sub accept_out_cclose_after {
  my $tkxfsr=shift;
  my $afterid=shift;  
  my $delay=shift; 
  my $send_id; 
  if ($esub==1)    { $send_id=Tkx::after( $delay , sub{&{$tkxfsr->{after}{$afterid}{sub}}()});} 
  elsif ($esub==2) { $send_id=Tkx::after( $delay , [$tkxfsr->{after}{$afterid}{sub}]        );} 
  else             { $send_id=Tkx::after( $delay ,       $tkxfsr->{after}{$afterid}{sub}    ); } 
  $tkxfsr->{after}{$afterid}{eventid}=$send_id;
  $tkxfsr->{after}{$afterid}{delay}=$delay;
  }