3
# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
6
require 'tkextlib/tile.rb'
10
class TCombobox < Tk::Tile::TEntry
16
class Tk::Tile::TCombobox < Tk::Tile::TEntry
17
include Tk::Tile::TileWidget
19
if Tk::Tile::USE_TTK_NAMESPACE
20
TkCommandNames = ['::ttk::combobox'.freeze].freeze
22
TkCommandNames = ['::tcombobox'.freeze].freeze
24
WidgetClassName = 'TCombobox'.freeze
25
WidgetClassNames[WidgetClassName] = self
28
super() << 'exportselection'
30
private :__boolval_optkeys
35
private :__listval_optkeys
38
[self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.')
42
number(tk_send_without_enc('current'))
45
tk_send_without_enc('current', idx)