#!/pro/bin/perl
use Tk;
use Tk::Clock;
my @bw = qw( Black White );
use Getopt::Long qw(:config bundling nopermute);
GetOptions (
"r|rev|wb|white-on-black" => sub { @bw = reverse @bw },
) or die "usage: station.pl [--white-on-black]\n";
my $m = MainWindow->new;
$m->configure (
-foreground => $bw[0],
-background => $bw[1],
);
my $c = $m->Clock (
-background => $bw[1],
-relief => "flat",
)->pack (
-anchor => "c",
-expand => 1,
-fill => "both",
-padx => "10",
-pady => "10",
);
$c->config (
useDigital => 0,
useAnalog => 1,
secsColor => "Red",
handColor => $bw[0],
tickColor => $bw[0],
tickFreq => 1,
tickDiff => 1,
handCenter => 1,
anaScale => 500,
autoScale => 1,
);
MainLoop;