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