1#
2#  tkextlib/bwidget/label.rb
3#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
4#
5
6require 'tk'
7require 'tk/label'
8require 'tkextlib/bwidget.rb'
9
10module Tk
11  module BWidget
12    class Label < Tk::Label
13    end
14  end
15end
16
17class Tk::BWidget::Label
18  TkCommandNames = ['Label'.freeze].freeze
19  WidgetClassName = 'Label'.freeze
20  WidgetClassNames[WidgetClassName] ||= self
21
22  def __strval_optkeys
23    super() << 'helptext'
24  end
25  private :__strval_optkeys
26
27  def __boolval_optkeys
28    super() << 'dragenabled' << 'dropenabled'
29  end
30  private :__boolval_optkeys
31
32  def __tkvariable_optkeys
33    super() << 'helpvar'
34  end
35  private :__tkvariable_optkeys
36
37  def set_focus
38    tk_send_without_enc('setfocus')
39    self
40  end
41end
42