lib/ruby-1.9.1-rc1/ext/tk/lib/tkextlib/tile/sizegrip.rb

   1 #
   2 #  ttk::sizegrip widget
   3 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
   4 #
   5 require 'tk'
   6 require 'tkextlib/tile.rb'
   7
   8 module Tk
   9   module Tile
  10     class SizeGrip < TkWindow
  11     end
  12     Sizegrip = SizeGrip
  13   end
  14 end
  15
  16 Tk.__set_toplevel_aliases__(:Ttk, Tk::Tile::Sizegrip, :TkSizegrip, :TkSizeGrip)
  17
  18
  19 class Tk::Tile::SizeGrip < TkWindow
  20   include Tk::Tile::TileWidget
  21
  22   TkCommandNames = ['::ttk::sizegrip'.freeze].freeze
  23   WidgetClassName = 'TSizegrip'.freeze
  24   WidgetClassNames[WidgetClassName] = self
  25
  26   def self.style(*args)
  27     [self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.')
  28   end
  29 end