Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

Kapitel 8 – Ereignisbehandlung 157
8.5 Bindemarken
Ein Widget kann auf ein einzelnes Ereignis mit mehr als einem Verhalten
reagieren. Nehmen wir wish und eine Marke und binden wir zwei Kommandos
daran für das selbe Ereignis.
$ wish
% pack [label .x -text "Ziel"]
% bind .x {puts "entering %W (via %W)"}
% bind Label {puts "entering %W (via Label)"}
Zieht man mit der Maus über das Widget wird die eine oder andere, oder
beide, der zugebundenen Reaktionen gezeigt.
entering .x (via .x)
entering .x (via Label)
Will man sich anzeigen lassen, welche Bindings existieren und in welcher
Reihenfolge diese zur Ausführung kommen, kann man sich dies mit dem
Kommando bindtags ausgeben lassen.
% bindtags .x
.x Label . all
Demnach reagiert das Widget zuerst mit dem Binding für .x, danach mit
dem Binding für die Klasse Label, danach ... für das globale Widget .,
zuletzt ... für all(es).
Mit dem bindtags-Kommando lassen sich nicht nur die Bindings
anzeigen, man kann die Bindemarken auch neu anordnen, z. B. durch
% bindtags .x {Label .x . all}
wobei jetzt die Klasse Label mit ihrem Binding nach vorne gerückt ist.
entering .x (via Label)
entering .x (via .x)
Die obige Reaktion auf eine Mausbewegung zeigt jetzt das veränderte
Verhalten.
Auch möglich wäre das Weglassen einzelner Bindings oder das Ausschalten
aller Bindings mittels