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

202
}
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
$win.cal create text [expr $x0+4] [expr $y0+2] \
-anchor nw -text "$day" -fill $fg -font $font
$win.cal create image [expr $x1-2] [expr $y1-2] \
-anchor se -tags [list $date-image]
...
}
...
Wir übergehen die Details dieser Routine.
9.6.2 Sensoren und gebundene Kommandos
Viele Anwendungen haben sog. hot spots, d. h. Bereiche von Fenstern die
man anklicken und ggf. selektieren kann. In unserem Beispiel will man z.
B. einen Tag auswählen und sich die eingetragenen Termine anzeigen lassen.
Dazu könnte man die linke Maustaste an das Hintergrundrechteck für
den Tag, seine Nummer und sein Icon binden. Man könne auch alle drei
Items mit der selben Marke (tag) versehen und an
dieses Tag binden.
Einfacher ist es aber manchmal, über gewisse Bereiche ein unsichtbares
Item zu legen und an dieses das Ereignis zu binden. Unsichtbare
Rechtecke lassen sich mit "" als Angabe für Rand- und Füllfarbe leicht
erzeugen. Man sieht es zwar nicht auf dem Bildschirm, es reagiert aber
durchaus auf Ereignisse. H+McL sprechen dann von einem Sensor.
In unserem Beispiel ließe sich so ein Sensor in der redraw-Routine
innerhalb der foreach-Schleife mittels folgendem create und bind
einbauen.
$win.cal create rectangle $x0 $y0 $x1 $y1 \
-outline "" -fill "" \
-tags [list $date-sensor all-sensor]
$win.cal bind $date-sensor \
[list calendar_select $win $date]