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

Kapitel 8 – Ereignisbehandlung 163
wir diesmal resizeDrawing, und nur an diese das Neumalen der Leinwand
binden.
bind resizeDrawing {
resize_drawing .display
}
set tags [bindtags .]
bindtags . [listinsert $tags 0 resizeDrawing]
Nur das oberste Fenster hat diese Bindungsmarke und nur . ruft daher
resize_drawing auf. Viele andere Unterwidgets erhalten weiterhin
das -Ereignis und können entsprechend darauf reagieren,
jedoch ohne Aufruf der Prozedur zum Neumalen der Leinwand.
8.6 Fehlersuche mit bindings
Oft wundert man sich bei einer Anwendung, welches Verhalten ein Widget
hat und welche Ereignisse es erhält.
8.6.1 Bindings anzeigen
Falls sich ein Widget nicht wie gewünscht verhält, kann man die folgende
Prozedur (aus dem Library Code von H+McL) verwenden, um sich eine
Zusammenstellung der Bindings auflisten zu lassen.
proc bind_show {w {mode "-quiet"}} {
puts "$w"
foreach tag [bindtags $w] {
puts "\t$tag"
foreach spec [bind $tag] {
puts "\t\t$spec"
if {$mode == "-verbose"} {
set cmd [bind $tag $spec]
set cmd [string trim $cmd "\n"]
regsub -all "\n" $cmd "\n\t\t\t" cmd
puts "\t\t\t$cmd"
}
}
}
}