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

Kapitel 8 – Ereignisbehandlung 159
Für Widgets auf oberster Ebene entfällt naturgemäß die Marke ., d. h.
ein solches Widget, z. B. .t, mit Klasse Toplevel, hat nur die Liste
.t Toplevel all
d. h., der dritte Eintrag in den obigen Listen entfällt.
8.5.2 Der Gebrauch von break in der Ereignisbehandlung
Da der Widgetbezeichner in der Bindingsliste zuerst erscheint, kann man
Widgets bequem ein spezielles Verhalten beibringen, das vom Klassenverhalten
abweicht.
Im folgenden Beispiel wird ein Eingabewidget für Telefonnummern
angegeben, das – abweichend vom üblichen Verhalten von Eingabewidgets
– nur Ziffern, den Bindestrich und die Rücktaste akzeptiert. Im Fall
einer anderen Eingabe ertönt ein Piepston.
Für dieses spezielle Verhalten binden wir das KeyPress-Ereignis an das
Widget (valid.tcl):
label .prompt -text "Phone Number:"
pack .prompt -side left
entry .phone
pack .phone -side left
bind .phone {
if {![regexp "\[0-9\]|-|\b" "%A"]} {
bell
break
}
}
Wichtig daran ist, neben dem Gebrauch eines regulären Ausdrucks, das
Auftreten des break-Kommandos im Binding. Normalerweise wird mit
break eine Schleife verlassen, hier jedoch beendet es alle weiteren