=head2 new( $class? )

Parse configuration, connect to data source, setup gui.

=cut

sub new {
    my $class = shift;
    my $self  = {};

    bless ($self, $class);
    
    $self->{cfg} = Config::Auto::parse('baueBaumBottomUp.config');
    $self->dbx( TreebankViewer::DataSource->new($self->{cfg}->{meinXml_vorselektiert}) );
    $self->{gui} = $self->_tkInit();
    
    return $self;
} # /new