Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
}
$show_table->pack();
MainLoop;
  2. or download this
    #!/usr/bin/perl
use strict;
...
&TMRefresh($t);
}
#######################################
  3. or download this
    #!/usr/bin/perl -w
use Tk;
...
    $lb_src->delete( "entry", $drag_entry );
    $lb->see($drag_entry);
}