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

Kapitel 8 – Ereignisbehandlung 153
8.4.2 Anpassung von Widget-Verhalten
Das bind-Kommando macht Tk außerordentlich anpassungsfähig. So
kann man einem label ein Verhalten verordnen, das ihn wie einen Menüknopf
aussehen läßt mit entsprechenden Reaktionen. Dazu könnte man
zwar gleich einen button verwenden, aber manchmal braucht man nur
eine „Art von Knopf“ mit gewissen Anpassungen.
Die Werkzeugleiste in der Abbildung oben ist so ein Beispiel. Wählt man
ein Werkzeug aus, erscheint es abgesenkt, die anderen erhaben. Man kann
wie bei Radioknöpfen nur ein Element auswählen, aber die Leiste sieht
nicht wie radiobuttons aus.
Das Programm dazu enthält eine Menge raffinierter Tricks mit generischen
toolbar_create, toolbar_add und toolbar_select
Prozeduren, die alle in der Efftcl-Library zu finden sind. Hier zunächst
das Programm toolbar.tcl.
toolbar_create .tbar top {
.show configure -text "MODE:\n%t"
}
pack .tbar -side left -fill y -padx 4 -pady 4
label .show -width 20 -background white
pack .show -side right -expand yes -fill both \
-padx 4 -pady 4
toolbar_add .tbar select [image create bitmap \
-file [file join $env(EFFTCL_LIBRARY) images \
select.xbm]]
toolbar_add .tbar rect [image create bitmap \