sub after_dump{ 
  my $info0=Tkx::after_info(); 
  if (ref($info0) ne 'Tcl::List') { 
      print "not tkx list\n"; 
      $info0=[Tkx::SplitList($info0)]; 
      } 
  for my $send_id (@$info0) { 
    my $info1=Tkx::after_info($send_id); 
    print 'after:'.sprintf('%-15s',$send_id).' script-'.$info1->[0].' type-'.$info1->[1]."\n"; 
    }
}