#####################################################
# TEXT-FRAME                                        #
#####################################################

#my $spaceForText = ($width - $imageFrame->reqwidth());
my $spaceForText = (($width - $imageFrame->reqwidth())-$pfeil->width());

# Preis Label definieren
my $preisLabel = $textFrame->Label(
    -fg => 'red',
    -bg => 'yellow',
    -width => $spaceForText,
    -relief => 'raised',
    -justify=> 'left',
    -text => "Preis: XXX EUR",
    -font => $mf->Font(-weight=>'medium',-size=>20,-family=>'Rockwell',),
);

# Label für Name / Titel des Objekts defiieren
my $objektCaption = $textFrame->Label(
    -bg => 'green',
    -width => $spaceForText,
    -wraplength => $spaceForText - 10,
    -justify=> 'left',
    -relief => 'groove',
    -text => 'ObjektName',
    -font => $mf->Font(-weight=>'bold',-size=>16,),
);

# ObjektDaten ausgeben
my $daten = $textFrame->Frame(
    -width  => $spaceForText,
    -height => 50,
    -bg => 'blue',
);

# Nachtrag: Pfeile zum links drankleben
my $pfeilPreis = $textFrame->Label(-image=>$pfeil,-bd=>0,);
my $pfeilCaption = $textFrame->Label(-image=>$pfeil,-bd=>0,);

# Alles Packen
$pfeilPreis->grid(-row=>0, -column=>0,);
$preisLabel->grid(-row=>0, -column=>1,);

$pfeilCaption->grid(    -row=>1, -column=>0,);
$objektCaption->grid(   -row=>1, -column=>1,);

$daten->grid(-row => 2, -column=>0, -columnspan => 2,);

# Vorher:
#$preisLabel->pack();
#$objektCaption->pack();
#$daten->pack(-anchor=>'w');