2
# tkextlib/iwidgets/spintime.rb
3
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
7
require 'tkextlib/iwidgets.rb'
11
class Spintime < Tk::Itk::Widget
16
class Tk::Iwidgets::Spintime
17
TkCommandNames = ['::iwidgets::spintime'.freeze].freeze
18
WidgetClassName = 'Spintime'.freeze
19
WidgetClassNames[WidgetClassName] = self
22
super() << 'houron' << 'militaryon' << 'minutelabel' << 'secondlabel'
24
private :__boolval_optkeys
27
super() << 'hourlabel' << 'minuteon' << 'secondon'
29
private :__strval_optkeys
32
tk_call(@path, 'get', '-string')
37
number(tk_call(@path, 'get', '-clicks'))
41
tk_call(@path, 'show', date)
45
tk_call(@path, 'show', 'now')