1#
2#  tseparator 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 TSeparator < TkWindow
11    end
12    Separator = TSeparator
13  end
14end
15
16class Tk::Tile::TSeparator < TkWindow
17  include Tk::Tile::TileWidget
18
19  if Tk::Tile::USE_TTK_NAMESPACE
20    TkCommandNames = ['::ttk::separator'.freeze].freeze
21  else
22    TkCommandNames = ['::tseparator'.freeze].freeze
23  end
24  WidgetClassName = 'TSeparator'.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::Separator, :TkSeparator)
33Tk.__set_loaded_toplevel_aliases__('tkextlib/tile/tseparator.rb',
34                                   :Ttk, Tk::Tile::Separator, :TkSeparator)
35