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