#!/usr/bin/perl
use warnings;
use strict;
no strict "refs"; #Keine Fehlermeldung bei Benutzung von Symbolischen Referenzen
use Tkx; #!!!

my $Meldungstext = 'Testmeldung';
my $MainWindow = Tkx::widget->new(".");
#*** Frame 4 erzeugen, für Meldungsbereich ***
my $Frame4 = $MainWindow->new_ttk__frame();
my $F4_Label = $Frame4->new_message(
	-textvariable=>\$Meldungstext,
	-width => 390,
	)->g_pack(-anchor=>'w')
;
#Packen
$Frame4->g_pack(-side=>'bottom', -expand=>1, -fill => 'both');