#!/local/bin/perl -w

use Tk::AstroCatalog;
use Tk;

my $MW = new MainWindow;
$MW->withdraw;

my $Cat = new Tk::AstroCatalog( $MW,
                              -addCmd => sub {
                                my $arr = shift;
                                my $c = $arr->[-1];

                                print $c->status;

                              },
                              -upDate=> sub {print "Updated"},
                              -transient => 0);

MainLoop;
exit;
