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

Kapitel 9 – Der Gebrauch der Leinwand 195
}
-outline "" -fill $color -tags bar
$win.display create text [expr 0.5*$len] 10 \
-anchor c -text "0%" -tags value
return $win
Dem äußeren Rahmen, der als Hülle dient, geben wir den Klassennamen
Gauge, damit wir Standardvorgaben für die Klasse einsetzen können. Im
Beispiel sind dies
option add *Gauge.borderWidth 2 widgetDefault
option add *Gauge.relief sunken widgetDefault
option add *Gauge.length 200 widgetDefault
option add *Gauge.color gray widgetDefault
Man beachte, daß borderWidth und relief Standardoptionen für
Rahmen sind, length und color aber speziell für das Meßgerät
(Gauge) eingeführt wurden.
Diese Vorgabe fragen wir auch ab, wenn wir die Länge der Leinwand
$win.display setzen. Deren Höhe kodieren wir hart mit 20 Pixeln,
den Rand schalten wir aus.
Die Farbe fragen wir nur ab, wenn keine Vorgabe aus dem Aufruf vorliegt.
Auch der Balken bekommt keine Randlinie und ist zunächst ein
„Strich“ der Breite 0 und Höhe 20. Den Prozentwert setzen wir in die
Mitte und lassen ihn 0% anzeigen.
Um jetzt Meßwerte anzuzeigen, übergeben wir einer generischen Routine
den Namen der Anzeige und den aktuellen Wert.
proc gauge_value {win val} {
if {$val < 0 || $val > 100} {
error "bad value '$val': should be 0-100"
}
set msg [format "%3.0f%%" $val]
$win.display itemconfigure value -text $msg
set w [expr 0.01*$val*[winfo width $win.display]]
set h [winfo height $win.display]
$win.display coords bar 0 0 $w $h