1# 2# tkextlib/bwidget/button.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5 6require 'tk' 7require 'tk/button' 8require 'tkextlib/bwidget.rb' 9 10module Tk 11 module BWidget 12 class Button < Tk::Button 13 end 14 end 15end 16 17class Tk::BWidget::Button 18 TkCommandNames = ['Button'.freeze].freeze 19 WidgetClassName = 'Button'.freeze 20 WidgetClassNames[WidgetClassName] ||= self 21 22 def __strval_optkeys 23 super() << 'helptext' 24 end 25 private :__strval_optkeys 26 27 def __tkvariable_optkeys 28 super() << 'helpvar' 29 end 30 private :__tkvariable_optkeys 31end 32