•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.