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

194
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
Anmerkung: Das Beispiel ist zwar ein rollbares Formular, aber kein
„blätterbares“. Es reagiert nicht auf die „Bild-hoch“/„Bild-runter“
(PageUp/PageDown)-Tasten. Zusätzlich würde man sich dann auch eine
Anzeige „Seite 3 von 7“ wünschen, ggf. spezielle „nächste Seite“/„Seite
zurück“-Knöpfe am Fenster.
9.3 Eine Fortschrittsanzeige
Eine Fortschrittsanzeige (process gauge) soll verdeutlichen, wie man partiell
Anzeigeteile verändert und andere intakt läßt. Man kann sie verwenden,
wenn Web-Seiten geladen werden oder der Fortschritt rechenintensiver
Abläufe signalisiert werden soll.
Dazu legen wir eine Leinwand an mit zwei Items: ein Textitem für die
Prozentzahl (zwischen 0 und 100), versehen mit Marke value, und ein
Rechteck für den Balken mit Marke bar.
Für die Erzeugung rufen wir gauge_create mit einem Namen für
das ganze Gebilde und einer optionalen Farbe für den Balken auf.
proc gauge_create {win {color ""}} {
frame $win -class Gauge
set len [option get $win length Length]
canvas $win.display -borderwidth 0 -background white \
-highlightthickness 0 -width $len -height 20
pack $win.display -expand yes
if {$color == ""} {
set color [option get $win color Color]
}
$win.display create rectangle 0 0 0 20 \