diff options
Diffstat (limited to 'ext/tk/lib/tk/spinbox.rb')
-rw-r--r-- | ext/tk/lib/tk/spinbox.rb | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/ext/tk/lib/tk/spinbox.rb b/ext/tk/lib/tk/spinbox.rb index 9a10977d12..e372c58009 100644 --- a/ext/tk/lib/tk/spinbox.rb +++ b/ext/tk/lib/tk/spinbox.rb @@ -1,12 +1,11 @@ # # tk/spinbox.rb - Tk spinbox classes -# $Date$ # by Yukihiro Matsumoto <matz@caelum.co.jp> # require 'tk' require 'tk/entry' -class TkSpinbox<TkEntry +class Tk::Spinbox<Tk::Entry TkCommandNames = ['spinbox'.freeze].freeze WidgetClassName = 'Spinbox'.freeze WidgetClassNames[WidgetClassName] = self @@ -38,6 +37,22 @@ class TkSpinbox<TkEntry nil ] + # for Ruby m17n :: ?x --> String --> char-code ( getbyte(0) ) + KEY_TBL.map!{|inf| + if inf.kind_of?(Array) + inf[0] = inf[0].getbyte(0) if inf[0].kind_of?(String) + inf[1] = inf[1].getbyte(0) if inf[1].kind_of?(String) + end + inf + } + + PROC_TBL.map!{|inf| + if inf.kind_of?(Array) + inf[0] = inf[0].getbyte(0) if inf[0].kind_of?(String) + end + inf + } + _setup_subst_table(KEY_TBL, PROC_TBL); def self.ret_val(val) @@ -97,3 +112,6 @@ class TkSpinbox<TkEntry _fromUTF8(tk_send_without_enc('set', _get_eval_enc_str(str))) end end + +#TkSpinbox = Tk::Spinbox unless Object.const_defined? :TkSpinbox +Tk.__set_toplevel_aliases__(:Tk, Tk::Spinbox, :TkSpinbox) |