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