1#
2#  tsquare 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 TSquare < TkWindow
11    end
12    Square = TSquare
13  end
14end
15
16class Tk::Tile::TSquare < TkWindow
17  include Tk::Tile::TileWidget
18
19  if Tk::Tile::USE_TTK_NAMESPACE
20    TkCommandNames = ['::ttk::square'.freeze].freeze
21  else
22    TkCommandNames = ['::tsquare'.freeze].freeze
23  end
24  WidgetClassName = 'TSquare'.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