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