Erste Schritte mit Perl/Tk II

#!/usr/local/bin/perl -w

use strict;
use Tk;

my $main = new MainWindow;
my $label = $main->Label(-text => 'Hello, world!');
my $button = $main->Button(
   '-text' => 'Quit',
   '-command' => sub { exit },
);
$label->pack; $button->pack;
MainLoop;

Label und Button sind Methoden von $main, die entsprechende Widgets kreieren.

Die Konstruktions-Parameter von Widgets werden als assoziative Arrays übergeben.

Mit der Methode pack wird das jeweilige Objekt an den entsprechenden Geometrie-Manager übergeben.

MainLoop ist die zentrale Schleife, die alle Ereignisse abarbeitet.

	`Label` und `Button` sind Methoden von `$main`, die entsprechende Widgets kreieren.
	Die Konstruktions-Parameter von Widgets werden als assoziative Arrays übergeben.
	Mit der Methode `pack` wird das jeweilige Objekt an den entsprechenden Geometrie-Manager übergeben.
	`MainLoop` ist die zentrale Schleife, die alle Ereignisse abarbeitet.