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ä ???
}