Help for this page

Select Code to Download


  1. or download this
    use Tk;

...
print STDERR "time=".($t1-$t0)."\n";

MainLoop;
  2. or download this
    use Tcl::Tk qw(:perlTk);

...
print STDERR "time=".($t1-$t0)."\n";

MainLoop;
  3. or download this
    use Tcl::Tk qw(:perlTk);

...
print STDERR "time=".($t1-$t0)."\n";

MainLoop;