Sehr Umfangreiche Webseite zum Programmieren in C Perl CGI, Skripting, Linux, SystemprogrammierungPerl Perl Kurs Skripting Tk-Modul use Tk; Tcl/Tk Label Tk Label Steuerelement Perl Skript Tk-Modul Tk use Tk Perl mit dem Tk-Modul Teil 2

Steuerelement Label          zurück zum Inhaltsverzeichnis

Als erstes folgt wieder das einfachste Hallo Welt-Programm. Wir erzeugen ein neues Fenster (MainWindow) in dem Hallo Welt steht ...

#!/usr/bin/perl -w

use strict;

use Tk;

my $fenster = MainWindow->new;

$fenster->Label("-text" => "Hallo Welt")->pack();

MainLoop;

So Siehts aus (Linux/Unix):

Steuerelement Label Linux/Unix

So Siehts aus (MS-Windows):

Steuerelement Label MS Windows

Zuerst binden Sie die Bibliothek von Tk mittels ...

use Tk;

... ein. Als nächstes erzeugen Sie mit ...

my $fenster = MainWindow->new;

... das Hauptfenster (MainWindow) mit Hilfe von new, dem Konstruktor der Klasse vom MainWindow-Objekt. Die Referenz dazu befindet sich ganz einfach in der skalaren Variablen $fenster. Das bedeutet  das Sie mit Hilfe der skalaren Variable $fenster immer auf unser Hauptfenster zugreifen können. Dies machen Sie bereits in der nächsten Zeile mit ...

$fenster->Label("-text" => "Hallo Welt")->pack();

Damit erzeugen Sie das Steuerelement Label (Label steht für ein Textfeld). Diese Steuerelement beinhaltet den Text 'Hallo Welt' ("-text" => "Hallo Welt").

Damit dieser Text nun auch in dem Hauptfenster (MainWindow) $fenster angezeigt wird, müssen Sie noch die Methode pack() (unser Geometriemanager) aufrufen. Man sollte aber auch für den Label eine extra Referenz einrichten um die Übersicht zu bewaren ...

#!/usr/bin/perl -w

use strict;

use Tk;

my $fenster = MainWindow->new;

my $text= $fenster->Label("-text" => "Hallo Welt");
$text->pack();

MainLoop;

Dies Programm bewirkt dasselbe. Zu guter letzt wird in jedem Programm mit Tk die Methode MainLoop angegeben. MainLoop nimmt die Nachrichten die das Hauptfenster erhält auf und verarbeitet diese weiter.

Mehr zu Label : man Tk::Label