sub localdblclick
    {
        my $self = shift;
        my $file;

        my @list = $self->{'locallist'}->infoSelection(); # dies ist Zeile 211
        foreach (@list)
        {
            $file = $self->{'locallist'}->itemCget($_, 0, -text);
        }

        #my $data = $_[0];
        print "Double-click on left list at file\n";
    }