=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

=head2 new( $class, $dsn )

$dsn = die XML-Datei, die geladen werden soll.

=cut

sub new {
    my $class   = shift;
    my $dsn     = shift or croak("missing dsn");
    
    my $self    = {};
    bless ($self, $class);
    $self->dsn($dsn);

    return $self;
} # /new

package TreebankViewer;                                                                              
use strict;
use warnings;

sub new {
    return 1;
}

1;

package TreebankViewer::DataSource;
use strict;
use warnings;
use base qw/ TreebankViewer /;

sub new {                                                                                            
    return 1;
}

1;