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

Kapitel 9 – Der Gebrauch der Leinwand 199
d. h. wir erzeugen einen Kalender .cal und geben ein optionales Datum
mit, das den Monat Juli auswählt. Eine alternative Datumsangabe wäre
now, die dazu führt, daß das Programm sich den Monat über die Systemzeit
(clock seconds) holt.
Wichtig ist, daß wir .cal mit pack-Optionen -expand und -fill
zur Anzeige gebracht haben. Dadurch wird auch die Leinwand gestreckt,
wenn das Fenster sich vergrößert. Dies müssen wir durch Neuzeichnen
des Kalenders unterstützen.
proc calendar_create {win {date "now"}} {
global calInfo env
}
if {$date == "now"} {
set time [clock seconds]
} else {
set time [clock scan $date]
}
set calInfo($win-time) $time
set calInfo($win-selected) ""
set calInfo($win-selectCmd) ""
set calInfo($win-decorateVar) ""
frame $win -class Calendar
canvas $win.cal -width 3i -height 2i
pack $win.cal -expand yes -fill both
button $win.cal.back \
-bitmap @[file join $env(EFFTCL_LIBRARY) \
images back.xbm] -command "calendar_change $win -1"
button $win.cal.fwd \
-bitmap @[file join $env(EFFTCL_LIBRARY) \
images fwd.xbm] -command "calendar_change $win +1"
bind $win.cal "calendar_redraw $win"
return $win
Zu beachten ist momentan, daß H+McL einen globalen Array calInfo
einführen mit den üblichen assoziativen Schlüsseln.