 |
|
|
|
|
|
|
|
|
|
|
|
|
Wenn
man mal die „Vorrede“ (Shebang, Pragmas und use Tk;) und den
Aufruf
|
|
der
MainLoop weglässt, bleiben nur zwei Anweisungen übrig.
|
|
|
my $mw = MainWindow->new();
|
|
|
Damit
wird ein neues Objekt
vom Typ MainWindow
erzeugt. Mindestens ein
|
|
solches
Objekt wird in jedem Perl/Tk-Programm gebraucht. Mit
|
|
|
$mw->Label(-text => 'Hallo Welt')
|
|
->pack();
|
|
|
wird
eine Überschrift (Label) erzeugt, die den Text
„Hallo Welt“ anzeigt. Genauer
|
gesagt
wird ein Label-Objekt erzeugt. Hinterher wird noch die Methode pack des
|
|
erzeugten
Objektes aufgerufen. Dann wird das Objekt wieder vergessen. Man
|
|
könnte
es mit „my $label =“ vorweg „einfangen“, aber es wird hier nicht
|
|
weiter benötigt.
|
|
|
Die
Methode pack() packt ein Widget ins erzeugende
Fenster (oder Rahmen),
|
|
hier
ins Hauptfenster. Dabei kann man nähere Angaben machen, wie das Objekt
|
|
eingefügt
werden soll. Die Darstellung hängt sehr davon ab, in welcher
|
|
Reihenfolge
die Objekte gepackt werden.
|
|