•Mit den Zeilen
•
• $mw->Button(-text => 'Klick mich',
-command => sub { $mw->destroy() },
)
->pack();
•
•wird ein Schalter-Objekt (Button) erzeugt und gepackt. Der Schalter bekommt die Aufschrift „Klick mich“ und außerdem wird über -command eine sogenannte Callback-Funktion hinterlegt, die aufgerufen wird, wenn der Schalter
ausgelöst wird.
•Im Beispiel ist die
Callback-Funktion eine Closure, man könnte statt sub {...} auch eine
Referenz zu einer benannten Funktion angeben, etwa so:
•
• -command => \&beenden
•
•Wieder könnte man das
Schalter-Objekt mit „my $schalter =“ vor der obigen
Zeile für die spätere
Verwendung abspeichern, aber das ist hier noch nicht nötig.