1# 2# tradiobutton 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 TRadioButton < Tk::RadioButton 11 end 12 TRadiobutton = TRadioButton 13 RadioButton = TRadioButton 14 Radiobutton = TRadioButton 15 end 16end 17 18class Tk::Tile::TRadioButton < Tk::RadioButton 19 include Tk::Tile::TileWidget 20 21 if Tk::Tile::USE_TTK_NAMESPACE 22 TkCommandNames = ['::ttk::radiobutton'.freeze].freeze 23 else 24 TkCommandNames = ['::tradiobutton'.freeze].freeze 25 end 26 WidgetClassName = 'TRadiobutton'.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::Radiobutton, 35# :TkRadiobutton, :TkRadioButton) 36Tk.__set_loaded_toplevel_aliases__('tkextlib/tile/tradiobutton.rb', 37 :Ttk, Tk::Tile::Radiobutton, 38 :TkRadiobutton, :TkRadioButton) 39