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