Ereignis-Bearbeiter

keypress.pl

#!/usr/local/bin/perl use strict; use warnings; use Tk; my $top = new MainWindow; my $frame = $top->Frame(-width => 50, -height => 50, -bg => 'red'); $frame->bind('<KeyPress>', [ sub { my ($self, $keycode) = @_; printf "keycode: %s\n", $keycode; }, Ev('k')]); $frame->pack; $frame->focus; MainLoop;

Bei der Methode bind können Ereignis-Bearbeiter in einer Vielzahl von Varianten angegeben werden:

... => &subname Zeiger auf vorhandene Prozedur

... => sub { ... } Anonyme Prozedur

... => 'methodname' Methode des zugehörigen Widgets

... => [&subname, ...] Mit Parameterliste

... => [sub { ... }, ...]

... => ['methodname', ...]

Parameterlisten sind überflüssig, solange nicht Interesse an speziellen Ereignisparametern besteht, die über von Ev erzeugte Callback-Objekte zugänglich sind.