my $gridtable = [];
$w->erstelleObjektDatenTabelle($mw, $imageFrame, $daten, $pfeil, $pfeilEnde, $pfeilSpacer, $glob, $gridtable);

sub erstelleObjektDatenTabelle {
    my ($self, $mw, $imageFrame, $top, $pfeil, $pfeilEnde, $pfeilSpacer, $glob, $gridtable) = @_;
    # top = das Frame, wo die Sachen hin gepackt werden sollen
    # mw, imageFrame, pfeil, $pfeilEnde & pfeilSpacer sind nur zur Berechnung von Größen da
    # $glob für die Daten und bindings (textvariable)
    # $gridtable = Datenstruktur zum Ablegen der Tabellen-inhalte (Frames, Bilder, Labels)
    # gridtable muss als Arrayref übergeben werden
    # $topFrame = Frame, in dem $top erstellt wird (Übergabe zwecks löschung der alten
    # Inhalte von $top)
    
    # -- [ A ] -- # altes Frame leeren
    # alle Tk-Objekte in $gridTable löschen
    foreach ( @{$gridtable} ){
#        print Data::Dumper::Dumper( $_ );
        # Text
        $_->{'Text'}->destroy();
        # Pfeil
        $_->{'Pfeil'}->destroy();
        # Spacer
        $_->{'Spacer'}->destroy();
        # Grafik ( - Frame)
        $_->{'Grafik'}->destroy();
        # gridtable zurücksetzen
        $gridtable = [];
    } # /foreach
    
    # -- [ B ] -- # neue Tabelle erstellen

#    # dev:
#    print "\n" . '-' x 10 . "\n";
#    print "Erstellen der Datentabelle in Werbung.pl\n";
#    print "Objekt-ID: ".$glob->{'actualObject'}->{'ID'}."\n";

    for( my $cnt=0; $cnt <= $#{$glob->{'actualObject'}->{'ObjektDaten'}}; $cnt++ ){

        # -[A]- Tabelle erstellen

#        # dev:
#        print "Durchlauf: $cnt\n";
#        print "abzuarbeitender Eintrag: ".$glob->{'actualObject'}->{'ObjektDaten'}->[$cnt]."\n";

        # -[1]- zuerst den Textteil um zu sehen, ob man den Spacer vergrößern muss
        $gridtable->[$cnt]->{'Text'} = $top->Label(
            -text=> $glob->{'actualObject'}->{'ObjektDaten'}->[$cnt],
#            -textvariable => \$glob->{'actualObject'}->{'ObjektDaten'}->[$cnt],
            -font => $top->Font(-weight=>'normal',-size=>16,),
            -wraplength => ($mw->screenwidth() - $imageFrame->reqwidth()) - $pfeil->width(),
            -justify => 'left',
            -bd => 0,
            -bg => 'white',
            -relief => 'groove',
        );

        # -[2]- jetzt den Pfeil und den Spacer
        $gridtable->[$cnt]->{'Grafik'} = $top->Frame(-bd => 0,);
        $gridtable->[$cnt]->{'Pfeil'} = $gridtable->[$cnt]->{'Grafik'}->Label(-image => $pfeil,-bd => 0,);
        $gridtable->[$cnt]->{'Spacer'} = $gridtable->[$cnt]->{'Grafik'}->Label(-image => $pfeilSpacer,-bd => 0,);

        # Größe des Spacers dem Text anpassen
        $self->berechneSpacer($mw, $pfeil, $pfeilSpacer, $gridtable->[$cnt]);
#        main::berechneSpacer($mw, $pfeil, $pfeilSpacer, $gridtable->[$cnt]);

        # Frame zusammen packen
        if( $cnt != $#{$glob->{'actualObject'}->{'ObjektDaten'}} ){
            # nicht der letzte Eintrag
            $gridtable->[$cnt]->{'Pfeil'}->pack(
                -anchor=>'n',
                -expand =>1,
                -side =>'top',
                -ipadx => 0, -ipady => 0,
                -padx  => 0, -pady  => 0,
            );
            $gridtable->[$cnt]->{'Spacer'}->pack(
                -fill=>"y",
                -anchor=>'n',
                -expand =>1,
                -side =>'top',
                -ipadx => 0, -ipady => 0,
                -padx  => 0, -pady  => 0,
            );
        }else{
            # der letzte Eintrag, andere Grafik nehmen
            $gridtable->[$cnt]->{'Pfeil'}->configure(-image=>$pfeilEnde);
            $gridtable->[$cnt]->{'Spacer'}->pack(
                -fill=>"y",
                -anchor=>'n',
                -expand =>1,
                -side =>'top',
                -ipadx => 0, -ipady => 0,
                -padx  => 0, -pady  => 0,
            );
            $gridtable->[$cnt]->{'Pfeil'}->pack(
                -anchor=>'n',
                -expand =>1,
                -side =>'top',
                -ipadx => 0, -ipady => 0,
                -padx  => 0, -pady  => 0,
            );
        } # /else

        # -[B]- jetzt noch alles zusammenpacken
        $gridtable->[$cnt]->{'Grafik'}->grid(
            -column=>1,
            -row=>$cnt,
            -sticky => "ns",
        );
        $gridtable->[$cnt]->{'Text'}->grid(
            -column=>2,
            -row=>$cnt,
            -ipadx =>0,
            -columnspan=>2,
            -sticky => "w",
        );
    } # /for
    
} # /erstelleObjektDatenTabelle