1# 2# tkextlib/iwidgets/feedback.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5 6require 'tk' 7require 'tkextlib/iwidgets.rb' 8 9module Tk 10 module Iwidgets 11 class Feedback < Tk::Iwidgets::Labeledwidget 12 end 13 end 14end 15 16class Tk::Iwidgets::Feedback 17 TkCommandNames = ['::iwidgets::feedback'.freeze].freeze 18 WidgetClassName = 'Feedback'.freeze 19 WidgetClassNames[WidgetClassName] ||= self 20 21 def __strval_optkeys 22 super() << 'barcolor' 23 end 24 private :__strval_optkeys 25 26 def reset 27 tk_call(@path, 'reset') 28 self 29 end 30 31 def step(inc=1) 32 tk_call(@path, 'step', inc) 33 self 34 end 35end 36