blob: 770a5785bb0cf287733ada1ee3a6596865247b22 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#
# tk/button.rb : treat button widget
#
require 'tk'
require 'tk/label'
class Tk::Button<Tk::Label
TkCommandNames = ['button'.freeze].freeze
WidgetClassName = 'Button'.freeze
WidgetClassNames[WidgetClassName] = self
#def create_self(keys)
# if keys and keys != None
# tk_call_without_enc('button', @path, *hash_kv(keys, true))
# else
# tk_call_without_enc('button', @path)
# end
#end
#private :create_self
def invoke
_fromUTF8(tk_send_without_enc('invoke'))
end
def flash
tk_send_without_enc('flash')
self
end
end
#TkButton = Tk::Button unless Object.const_defined? :TkButton
Tk.__set_toplevel_aliases__(:Tk, Tk::Button, :TkButton)
|