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