example

2 June 2008 Bezoar

I wanted to see how far I could take the A calendar Widget in 20 min here is the result. Hover over today's date for 3 seconds to have the appointment schedule appear. By default the priority prints in the message. I originally had it as the time. A good feature would be to allow the user to change the comparison function for the priority so times could be used. Also -activeforeground option for the days of the month would also be nice; having that would allow more color schemes.

  #!/bin/sh
   # the next line restarts using wish  ( change this to your setup ) \
   exec /opt/usr/bin/tclsh8.5  "$0" ${1+"$@"}
  if { [ catch {package require Tk } err ] != 0 } {
      puts stderr "Unable to find package Tk ... adjust your auto_path!";
  }
  # make sure to save the callib code in a file and source it .
  source ./callib.tcl

  proc setMonthYear { cal } {
      global monthYear
      set p [ $cal configure -month ]
      set y [ $cal configure -year ]
      set scanStr [format "%s/1/%s 12:00:00"  $p $y ]
      set timestamp [ clock scan $scanStr ]
      set monthYear [clock format $timestamp -format "%b -%Y" ]
  }

  proc incrementMonth { cal   } {
      $cal nextmonth
      setMonthYear  $cal
  }
  proc decrementMonth { cal   } {
      $cal prevmonth
      setMonthYear  $cal
  }
  proc incrementYear { cal   } {
      $cal nextyear
      setMonthYear  $cal
  }
  proc decrementYear { cal   } {
      $cal prevyear
      setMonthYear $cal
  }
  set monthDay [clock format [clock seconds ] -format "%b - %Y" ]
  frame .frame -background blue -relief flat
  set topframe [ frame .frame.topframe  -background blue ]
  button .frame.exit -text exit -command { destroy . }
  set calendar [ calwid .frame.calendar -font { helvetica 10 bold } \
      -dayfont {Arial 10 bold } \
  -background blue \
  -foreground white \
  -activebackground cyan \
  -clickedcolor    black \
  -startsunday     0 \
  -delay 3000 \
  -daynames {Su Mo Tu Wed Th Fr Sa} \
      -month [clock format [clock seconds ] -format "%N" ] \
  -year  [clock format [clock seconds ] -format "%Y" ] \
      -relief groove ]
  button $topframe.decyear   -text "<<"  -command " decrementYear $calendar "
  button $topframe.decmonth   -text "<"  -command " decrementMonth $calendar "
  label  $topframe.monthyrlbl  -textvariable monthYear -background blue -foreground white -font {Helvetica 14 bold } -width 10
  button $topframe.incrmonth -text ">" -command " incrementMonth $calendar "
  button $topframe.incryear  -text ">>" -command " incrementYear $calendar "

  pack .frame -side top -expand 1 -fill both
  pack $topframe -side top -expand 1 -fill x -pady 3
  pack $topframe.decyear    -side left -expand 1 -fill none -padx 3 -pady 3
  pack $topframe.decmonth   -side left -expand 1 -padx 3 -pady 3
  pack $topframe.monthyrlbl -side left -expand 1 -padx 3 -pady 3
  pack $topframe.incrmonth  -side left -expand 1 -padx 3 -pady 3
  pack $topframe.incryear   -side left -expand 1 -padx 3 -pady 3
  pack $calendar   -side top -anchor c  -expand 1
  pack .frame.exit -side bottom -anchor c -fill x -pady 3
  setMonthYear $calendar
  $calendar configure -mark [eval list  [clock format [clock seconds ] -format "%e %N %Y 1 red { 8:00 Get Groceries }" ]]
  $calendar configure -mark [eval list  [clock format [clock seconds ] -format "%e %N %Y 2 red {12:00 Pick up Dry Cleaning}" ]]
  $calendar configure -mark [eval list  [clock format [clock seconds ] -format "%e %N %Y 0 red { 7:00 Wake up and water plants.}"]]
  $calendar configure -mark [eval list  [clock format [clock scan "02/23/2009 12:00:00" ] \
                                       -format "%e %N %Y 0 red { 12:00 Get New Car!}"] ]

Category Widget

Category Example