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

156
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
laut H+McL eine Grundregel für den Einsatz von Callbacks während der
Konstruktion eines Widgets.
Vorläufiger krönender Abschluß ist die toolbar_select-Routine.
proc toolbar_select {win tool} {
global tbInfo
}
if {$tbInfo($win-current) != ""} {
set label "$win.tool-$tbInfo($win-current)"
$label configure -relief raised
}
set label "$win.tool-$tool"
$label configure -relief sunken
set tbInfo($win-current) $tool
if {$tbInfo($win-command) != ""} {
set cmd [percent_subst %t \
$tbInfo($win-command) $tool]
uplevel #0 $cmd
}
Zunächst wird für ein bisher gesetztes Tool, ermittelbar aus
$tbInfo($win-current), dessen Aussehen wieder auf „nicht-ausgewählt“
(Relief oben) gesetzt. Das neu ausgewählte Werkzeug erhält
dann das abgesenkte Aussehen und $tool wird als neue Wahl in
tbInfo gesichert.
Danach soll die mit dem Auswahlvorgang verbundene Callback-Routine
ausgeführt werden, wobei zunächst der tool-Wert für %t in der
Routine $tbInfo($win-command) substituiert werden muß. Diese
so aufbereitete Routine wird dann auf oberster Ebene (uplevel #0),
also im für Bindings üblichen globalen Kontext, aufgerufen.
Damit haben wir gezeigt, wie man durch eigene Bindings ein neues
Verhalten, hier das einer Radioleiste, erzeugen kann.