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