1#
2#  tlabel 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 TLabel < Tk::Label
11    end
12    Label = TLabel
13  end
14end
15
16class Tk::Tile::TLabel < Tk::Label
17  include Tk::Tile::TileWidget
18
19  if Tk::Tile::USE_TTK_NAMESPACE
20    TkCommandNames = ['::ttk::label'.freeze].freeze
21  else
22    TkCommandNames = ['::tlabel'.freeze].freeze
23  end
24  WidgetClassName = 'TLabel'.freeze
25  WidgetClassNames[WidgetClassName] ||= self
26
27  def self.style(*args)
28    [self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.')
29  end
30end
31
32#Tk.__set_toplevel_aliases__(:Ttk, Tk::Tile::Label, :TkLabel)
33Tk.__set_loaded_toplevel_aliases__('tkextlib/tile/tlabel.rb',
34                                   :Ttk, Tk::Tile::Label, :TkLabel)
35