#!/usr/bin/wish
package require wylib

cal::cal .c1 -bd 2 -relief raised
pack .c1 -side top -fill both -exp 1

set ::value [date::date]
while 1 {
    cal::dia ::value "Pick a date: "
    puts "value:$::value"
}
