#!/usr/bin/wish -f
#
# tkdate
#
wm title . tkdate
global date date_interval
set date_interval 3600

proc get_date {} {
    global date date_interval 
    catch {exec date {+%b %d}} date
    .date configure -text "$date"
    after [expr {$date_interval * 1000}] get_date
}

proc diary {} {
    exec xdiary
}

catch {exec date {+%b %d}} date
button .date -background SlateGray -text "$date" -command diary \
    -foreground white -font fixed -relief flat \
    -activeforeground white -activebackground LightSlateGray \
    -highlightthickness 0 
pack .date
get_date