1#!/usr/bin/ruby
2
3require 'tk'
4require 'tkextlib/tcllib/datefield'
5require 'parsedate'
6
7Tk.root.title('Datefield example')
8
9
10my_date1 = TkVariable.new
11my_date2 = TkVariable.new
12my_date1.trace('w'){
13  begin
14    t = Time.local(*(ParseDate.parsedate(my_date1.value)))
15    my_date2.value = t.strftime('%A')
16  rescue
17    # ignore error
18  end
19}
20
21df = Tk::Tcllib::Datefield.new(:textvariable=>my_date1)
22Tk.grid(TkLabel.new(:text=>'Enter a date:', :anchor=>:e), df, :sticky=>:ew)
23Tk.grid(TkLabel.new(:text=>'That date ia a:', :anchor=>:e),
24        TkLabel.new(:textvariable=>my_date2, :relief=>:sunken, :width=>12),
25        :sticky=>:ew)
26
27df.set_focus
28
29Tk.mainloop
30