Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
$ck->config(dateFormat => "dd-mm-yyy");

MainLoop;

Select or download this

BEGIN {
    my $time = time;
    *Tk::Clock::time = sub { 2 * $time - time };
}