|
![]() ![]() ![]() ![]() ![]() |
#!/usr/local/bin/perl use strict; use warnings; 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; |
![]() | Mit use Tk werden alle zu Tk gehörenden Module importiert
einschließlich aller Widgets wie beispielsweise MainWindow.
Ferner wird auch der eigene Namensraum mit einigen Namen wie
beispielsweise MainLoop geflutet.
|
![]() | 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.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |