sub Bilder_ausweahlen
{
	my $mw = shift;
	my @fotograph_entry = shift;
	my @bildtitel_entry = shift;
	my %bilddateien = shift;

	#--- Ausgewählten Namen der Datei anzeigen
	 my $label = $mw->Label(-text => 'Bisher keine Datei ausgewählt',)->grid(-row=>$i, -column =>1);

	#--- Button hinzufügen
     $mw->Button(-text => "Wählen sie ein Bild aus, das sie einfügen möchten",
				 -command =>  [\&datei_auswaehlen, $label, $i, $mw, %bilddateien], )
				 ->grid(-row=>$i, -column =>0);


	#--- Eingabefeld für den Namen des Fotografen
	 $mw->Label(-text => 'Fotograph')->grid(-row=>$i, -column =>2);
	 $fotograph_entry[$i] = $mw->Entry()->grid(-row=>$i, -column=>3);

	#--- Eingabefeld für den Bildtitel
	 $mw->Label(-text => 'Bildtitel',)->grid(-row=>$i, -column =>4);
	 $bildtitel_entry[$i] = $mw->Entry()->grid(-row=>$i, -column=>5);

	#--- Weiteres Bild hinzufügen
	 $mw->Button(-text=> 'Weiteres Bild hinzufügen', -command=>[\&Bilder_ausweahlen, $mw, @fotograph_entry, @bildtitel_entry, %bilddateien])->grid(-row=>$i, -column=>6);

	$i++;
}