|
keypress.pl |
#!/usr/local/bin/perl -w use Tk; use strict; 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:
| |||||||||||||||||
Parameterlisten sind überflüssig, solange nicht Interesse
an speziellen Ereignisparametern besteht, die über von Ev
erzeugte Callback-Objekte zugänglich sind.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |