#!/usr/local/bin/perl -w
##
## simpleclock - example for Tk::Date widget
##
##      5 minute hack just for fun.
##      Achim Bohnet <ach@mpe.mpg.de>
##
use Tk;
use Tk::Date;
use strict;
use vars '$VERSION';
$VERSION = '0.002';

my $mw   = MainWindow->new();
my $time;
my $date = $mw->Date(-editable => 0,
		     -variable => \$time,
		     -value => 'now',
		    )->pack;

$date->repeat(999, sub { $time = time(); });

$mw->Button(-text=>'Quit', -command=>sub{$mw->destroy})->pack;

MainLoop;