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