#!/usr/bin/perl

use strict;
use warnings;

use module::Main;

die print "Programmfehler!" unless Main::Run();

package Main;

use strict;
use warnings;

use module::Config;

our $Config = new Config;

sub Run
{
        return -1 unless $Config->Start();
        return 1;
}

package Config;

use strict;
use warnings;

use Tk;
use module::Navi;

sub new
{
        my ($this) = @_;
        bless my $self = {} => (ref $this) || $this;
        
        $self->{mw} = new MainWindow;
        my $fr1 = $self->{mw}->Frame->pack;
        
        return undef unless
                $self->{Navi} = new Navi($fr1);
        
        $self->{Navi}->SetCallBackEvent(\&ViewEvent);
}

sub Start
{
        MainLoop();
}

sub ViewEvent
{
        my($this) = @_; # !!! $this - Kein Objekt. Hä ???
}

package Navi;

use strict;
use warnings;

use Tk::Tree;

my $EventHandler = undef;

sub new
{
        my($this, $top) = @_;
        
        bless my $self = {} => (ref $this) || $this;
        $self->{tree} = $top->Scrolled
        (
                qw/Tree/
        )
                ->pack;
        
        $self->{tree}->bind('<ButtonPress-1>', [ \&TreeEvent ]);
        $self->{tree}->bind('<KeyPress>'     , [ \&TreeEvent ]);

        #
        # Hier Tree befüllen
        #
        $self->{tree}->autosetmode;
}

sub TreeEvent
{
        my($this) = @_; # !!! Nicht Objekt, sondern Tree=HASH(...) ???
        
        return unless my $sl = $this->info('selection');
    
        &$EventHandler($this->info('data', $sl));
}

sub SetCallBackEvent
{
        my($this, $event) = @_; # Hier $this - o.k.
        $EventHandler = $event;
}