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

188
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
Jetzt wechseln der Warntext und das Strahlensymbol, die unter der Marke
hilite angesprochen werden können, beim Betreten des Fensters ihre
Farbe von schwarz in rot.
Man kann aber noch weiter gehen, und Bindings direkt an Items knüpfen,
so daß etwa nur beim Überstreichen der Items die Farbe wechselt.
.c bind hilite {
.c itemconfigure hilite -fill red
}
.c bind hilite {
.c itemconfigure hilite -fill black
}
Wir binden das Ereignis und die Reaktion an das canvas-Widget, das
wiederum Ereignis und Reaktion an die in bind angegebenen Items bindet.
H+McL betonen, daß diese Ereignisbehandlung separat von der übrigen
abläuft, d. h. sie wird nicht von den Bindemarkenordnung, wie oben
diskutiert, berührt und auch ein break hat keinen Einfluß auf die Weitergabe
innerhalb der Widget-Hierarchie.
.c bind message {
if {[.c itemcget message -text] == "Warning"} {
.c itemconfigure message -text "RED ALERT"
} else {
.c itemconfigure message -text "Warning"
}
}
Ganz analog haben wir oben an das Textitem einen Mausklick gebunden,
der das Hin- und Herschalten zwischen den zwei Warntexten ermöglicht
(rad5.tcl).
Eine weitere raffinierte Möglichkeit besteht darin, eine Reaktion in
Abhängigkeit vom aktuellen überstrichenen Item hervorzurufen. Dazu
erhält das Item, das gerade von der Maus berührt wird, temporär die
Marke current. Ändert es etwa daraufhin seine Farbe, Kontur oder
Linienform, erhält der Anwender eine sofortige Rückmeldung über die
Position. H+McL nennen diese Technik brushing (Anmerkung: in der
Computergraphik bezeichnet man mit der brush-Technik das Malen gan-