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

   1 #
   2 #  tmenubutton 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 TMenubutton < Tk::Menubutton
  11     end
  12     TMenuButton = TMenubutton
  13     Menubutton  = TMenubutton
  14     MenuButton  = TMenubutton
  15   end
  16 end
  17
  18 Tk.__set_toplevel_aliases__(:Ttk, Tk::Tile::Menubutton,
  19                             :TkMenubutton, :TkMenuButton)
  20
  21
  22 class Tk::Tile::TMenubutton < Tk::Menubutton
  23   include Tk::Tile::TileWidget
  24
  25   if Tk::Tile::USE_TTK_NAMESPACE
  26     TkCommandNames = ['::ttk::menubutton'.freeze].freeze
  27   else
  28     TkCommandNames = ['::tmenubutton'.freeze].freeze
  29   end
  30   WidgetClassName = 'TMenubutton'.freeze
  31   WidgetClassNames[WidgetClassName] = self
  32
  33   def self.style(*args)
  34     [self::WidgetClassName, *(args.map!{|a| _get_eval_string(a)})].join('.')
  35   end
  36 end