Hi Thorsten,
Wie bekommst du den Inhalt der (Text?)Datei in das Textfeld (meinst du eine textarea?).
#Text-Widget mit 2 Scrollbars (rechts)
my $frame2 = $haupt->Frame();
$frame2->Label(-text => "Textvorlage")->pack();
my $text = $frame2->Text(-wrap => 'none')
->pack(-padx => '10', -expand => 'yes', -fill => 'both');
.................
sub open {
open (FILE, "< $input") || die "Datei konnte nicht geöffnet werden!\n";
my $i = 0; #Fortlaufende Numerierung initialisieren
while (<FILE>) {
$i++;
$text->insert("end", "$i ".$_);
}
close(FILE);
}
Grußm Julia