#! Perl script
use strict;
use warnings;
use Tk;
use SR::Dtest;

my $main = MainWindow->new;
$main->Dtest;
#$main->pack();

MainLoop;

##</code><code>##

$main->Dtest(-target=>5);

##</code><code>##

configSpecs(-option => [where,dbName,dbClass,default])