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