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