Tk::Text - Texteingabefeld

Tk::Text ist ein Eingabefeld für Text. Wie ein Editor. Im Tutorial und auf der Seite für Widget-Beispiele gibt es auch noch was zum Tk::Text-Widget.


Perl-Quellcode

#!perl

use strict;
use warnings;
use Tk;
use Tk::Text;

my $mw = tkinit();
my $text = $mw->Text()->pack();

$text->insert('end',"Dies ist ein roter Test\n");
$text->tagAdd('red_text',"1.13","1.18");

$text->insert('end',"Dies ist ein blauer Test\n");
$text->tagAdd('blue_text','end -1 lines','end -1 lines');

$text->tagConfigure('red_text', -foreground => 'red');
$text->tagConfigure('blue_text', -foreground => 'blue');

$mw->MainLoop();

Textfeld-Inhalt auslesen

Den Inhalt eines Tk::Text-Widgets kann mittels get() ausgelesen werden. Dazu muss der Bereich der ausgelesen werden soll in Form von zweidimensionalen Koordinaten definiert werden. '1.0' ist die erste Position im Widget, wobei 1 die Zeile und 0 das erste Zeichen (bzw. die erste Spalte) bezeichnet. 'end' ist die jeweils letzte Position im Text-Widget.

$extrakt = $text->get('1.0', 'end');
Top