package activ_db::Config;

# ... wie gehabt

# hier Zeiger auf das Objekt - muss das wirklich sein :(
my $Me = undef;

sub new
{
    my ($class) = @_;
    $Me = bless({}, $class);
    
    # Rest wie gehabt ...
}

sub ViewEvent
{
    my($view) = @_;     # Hier kein Objekt !
    
    if($view == 1001) # $view ist korrekt (gibt immer eine zahl)
    {
        # keine $self in der sub :(
        $Me->{Daten} = new activ_db::DatenControl($Me->{daten_frame})
            unless ($Me->{Daten});
    }
}

sub TreeEvent
{
    my($tree) = @_;
        
    return unless my $sl = $tree->info('selection');
    &$EventHandler($tree->info('data', $sl)) if $EventHandler;
}