Select Code to Download

$interp->invoke('after',$args[1]+1000, "perl::Eval {Tcl::_code_dispose
+('$interp;$id')}");

#!/usr/bin/env perl
#
...
    my $send_id=Tkx::after( 50 , \&tick);

} # end tick

sub after_dump{ 
  my $info0=Tkx::after_info(); 
...
    print 'after:'.sprintf('%-15s',$send_id).' script-'.$info1->[0].' 
+type-'.$info1->[1]."\n"; 
    }
}

after:after#3         script-perl::Eval {Tcl::_code_dispose('Tcl=SCALA
+R(0x871eb00);after#2')} type-timer
after:after#2         script-::perl::CODE(0x89f20c8) type-timer