1# 2# tcheckbutton widget 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5require 'tk' 6require 'tkextlib/tile.rb' 7 8module Tk 9 module Tile 10 class TCheckButton < Tk::CheckButton 11 end 12 TCheckbutton = TCheckButton 13 CheckButton = TCheckButton 14 Checkbutton = TCheckButton 15 end 16end 17 18class Tk::Tile::TCheckButton < Tk::CheckButton 19 include Tk::Tile::TileWidget 20 21 if Tk::Tile::USE_TTK_NAMESPACE 22 TkCommandNames = ['::ttk::checkbutton'.freeze].freeze 23 else 24 TkCommandNames = ['::tcheckbutton'.freeze].freeze 25 end 26 WidgetClassName = 'TCheckbutton'.freeze 27 WidgetClassNames[WidgetClassName] ||= self 28 29 def self.style(*args) 30 [self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.') 31 end 32end 33 34#Tk.__set_toplevel_aliases__(:Ttk, Tk::Tile::Checkbutton, 35# :TkCheckbutton, :TkCheckButton) 36Tk.__set_loaded_toplevel_aliases__('tkextlib/tile/tcheckbutton.rb', 37 :Ttk, Tk::Tile::Checkbutton, 38 :TkCheckbutton, :TkCheckButton) 39