|
![]() ![]() ![]() ![]() ![]() |
tkhello.pl |
#!/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.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |