sub start {
    # erstes Element / das in der Config eingestellte Element laden
    main::readObjekt(0) if($glob->{'actualObject'}->{'ID'} == 0);
    $ids->{objectChange} = $mw->repeat(
        $glob->{objectChangeTime},
        sub{
            $w->setID($db, $glob); # neue Objekt-Nr. aussuchen
            main::readObjekt($glob->{'actualObject'}->{'ID'}); # Objekt auslesen
            # ObjektDaten neu erstellen:
            $w->erstelleObjektDatenTabelle($mw, $imageFrame, $daten, $pfeil, $pfeilEnde, $pfeilSpacer, $glob, $gridtable, $frames[2]);
        }
    );
    # Bild in Intervall wechseln
    # Text einfügen
    # usw.
    $ids->{'generalLoop'} = $mw->repeat($glob->{'generalLoopTime'}, sub{
    # --[1]-- # Bilder updaten
        # increment counter
        $cnts->{'ObjectFotoCnt'} = main::setCnt($cnts->{'ObjectFotoCnt'});
        # clear photo to clear / gain more memory
        $foto->blank();
        # set up a new photo
#        main::WriteError('Fehler: Bild nicht gefunden', die => 1) unless -e $glob->{'actualObject'}->{'fotos'}->[$cnts->{'ObjectFotoCnt'}];
        if( defined $glob->{'actualObject'}->{'fotos'}->[$cnts->{'ObjectFotoCnt'}]
          and -e $glob->{'actualObject'}->{'fotos'}->[$cnts->{'ObjectFotoCnt'}]
          and !-d $glob->{'actualObject'}->{'fotos'}->[$cnts->{'ObjectFotoCnt'}] ){
            $foto->configure(-file => $glob->{'actualObject'}->{'fotos'}->[$cnts->{'ObjectFotoCnt'}]);
        }else{
            # no image
            $foto->configure(-file => 'c:/Perl/tk/werbung/grafiken/noImage.png' );
        }
        # update the imageFrame
        $f->update();
    # --[2]-- # Textinfos updaten
        # --[2A]-- # fixe ObjektDaten updaten
        for( my $cnt=0; $cnt <= $#{$glob->{'actualObject'}->{'FixedData'}}; $cnt++ ){
            my ($key, $val) = %{$glob->{'actualObject'}->{'FixedData'}->[$cnt]};
            # neu: textvariable
            # neuen Text einfügen
            $glob->{'actualObject'}->{'FixedData'}->[$cnt]->{$key} = $glob->{'actualObject'}->{$key};
            # Ausrichtung nciht mittels configure(anchor) ändern, da zentriert besser
            # aussieht
            main::berechneSpacer($mw, $pfeil, $pfeilSpacer, $fixedTable->[$cnt]);
            $fixedTable->[$cnt]->{'Grafik'}->update();
        } # /for
        $textFrame->update();

        # --[2B]-- # ObjektDaten updaten
        for( my $cnt = 0; $cnt <= $#{$gridtable}; $cnt++ ){
            # Text aktualisieren um Spacer neu zu berechnen
            $gridtable->[$cnt]->{'Text'}->configure(-text=> $glob->{'actualObject'}->{'ObjektDaten'}->[$cnt],);
#            # test: textvariable
#            main::berechneSpacer($mw, $pfeil, $pfeilSpacer, $gridtable->[$cnt]);
            # das neue Bild auch anzeigen lassen
            $gridtable->[$cnt]->{'Grafik'}->update();
        } # /for
    }); # /generalLoop
} # /start