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