lib/ruby-1.9.1-rc1/ext/tk/lib/tkextlib/iwidgets/datefield.rb

   1 #
   2 #  tkextlib/iwidgets/datefield.rb
   3 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
   4 #
   5
   6 require 'tk'
   7 require 'tkextlib/iwidgets.rb'
   8
   9 module Tk
  10   module Iwidgets
  11     class  Datefield < Tk::Iwidgets::Labeledwidget
  12     end
  13   end
  14 end
  15
  16 class Tk::Iwidgets::Datefield
  17   TkCommandNames = ['::iwidgets::datefield'.freeze].freeze
  18   WidgetClassName = 'Datefield'.freeze
  19   WidgetClassNames[WidgetClassName] = self
  20
  21   def __boolval_optkeys
  22     super() << 'gmt'
  23   end
  24   private :__boolval_optkeys
  25
  26   def __strval_optkeys
  27     super() << 'textbackground'
  28   end
  29   private :__strval_optkeys
  30
  31   def __font_optkeys
  32     super() << 'textfont'
  33   end
  34   private :__font_optkeys
  35
  36   def get_string
  37     tk_call(@path, 'get', '-string')
  38   end
  39   alias get get_string
  40
  41   def get_clicks
  42     number(tk_call(@path, 'get', '-clicks'))
  43   end
  44
  45   def valid?
  46     bool(tk_call(@path, 'isvalid'))
  47   end
  48   alias isvalid? valid?
  49
  50   def show(date=None)
  51     tk_call(@path, 'show', date)
  52     self
  53   end
  54   def show_now
  55     tk_call(@path, 'show', 'now')
  56     self
  57   end
  58 end