|
#!/usr/local/bin/perl use strict; use warnings; use Tk; my $top = new MainWindow; my $frame = $top->Frame(-width => 50, -height => 50, -bg => 'yellow'); $frame->pack; $frame->bind('<ButtonPress>', sub { print "Ouch, that hurts!\n" }); MainLoop; |
Alle Aktionen des Benutzers (Bewegen der Maus,
Benutzung der Maustasten oder der Tastatur) führen zu
einem Strom einzelner Ereignisse.
| |
Aus der Mausposition oder der Fokus-Zugehörigkeit
zum Zeitpunkt der Entstehung
eines Ereignisses und vorheriger Interessensbekundungen
(z.B. durch die Methode bind)
ergibt sich eine Menge von Parteien, denen das Ereignis
mitzuteilen ist.
| |
Eine ``Mitteilung'' erfolgt in Perl/Tk durch den
Aufruf einer (typischerweise anonymen) Prozedur und
(bei Bedarf) einer Reihe von Parametern.
| |
Interessant sind die Spezifikationen von Ereignissen,
die Möglichkeiten der Interessensbekundungen und die
Reihenfolge der Mitteilungen.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |