mirror of
https://github.com/ruby/ruby.git
synced 2025-08-24 13:34:17 +02:00
c4fdfabcc8
g -L frozen_string_literal ext/**/*.rb|xargs ruby -Ka -e'ARGV.each{|fn|puts
fn;open(fn,"r+"){|f|s=f.read.sub(/\A(#!.*\n)?(#.*coding.*\n)?/,"\\&#
frozen_string_literal: false\n");f.rewind;f.write s}}'
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53143 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
30 lines
687 B
Ruby
30 lines
687 B
Ruby
#!/usr/bin/ruby
|
|
# frozen_string_literal: false
|
|
|
|
require 'tk'
|
|
require 'tkextlib/tcllib/datefield'
|
|
require 'parsedate'
|
|
|
|
Tk.root.title('Datefield example')
|
|
|
|
|
|
my_date1 = TkVariable.new
|
|
my_date2 = TkVariable.new
|
|
my_date1.trace('w'){
|
|
begin
|
|
t = Time.local(*(ParseDate.parsedate(my_date1.value)))
|
|
my_date2.value = t.strftime('%A')
|
|
rescue
|
|
# ignore error
|
|
end
|
|
}
|
|
|
|
df = Tk::Tcllib::Datefield.new(:textvariable=>my_date1)
|
|
Tk.grid(TkLabel.new(:text=>'Enter a date:', :anchor=>:e), df, :sticky=>:ew)
|
|
Tk.grid(TkLabel.new(:text=>'That date ia a:', :anchor=>:e),
|
|
TkLabel.new(:textvariable=>my_date2, :relief=>:sunken, :width=>12),
|
|
:sticky=>:ew)
|
|
|
|
df.set_focus
|
|
|
|
Tk.mainloop
|