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