lib/ruby-1.9.1-rc1/ext/tk/lib/tkextlib/iwidgets/extbutton.rb

   1 #
   2 #  tkextlib/iwidgets/extbutton.rb
   3 #                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
   4 #
   5
   6 require 'tk'
   7 require 'tkextlib/iwidgets.rb'
   8
   9 module Tk
  10   module Iwidgets
  11     class  Extbutton < Tk::Itk::Widget
  12     end
  13   end
  14 end
  15
  16 class Tk::Iwidgets::Extbutton
  17   TkCommandNames = ['::iwidgets::extbutton'.freeze].freeze
  18   WidgetClassName = 'Extbutton'.freeze
  19   WidgetClassNames[WidgetClassName] = self
  20
  21   def __strval_optkeys
  22     super() << 'bitmapforeground' << 'ringbackground'
  23   end
  24   private :__strval_optkeys
  25
  26   def __boolval_optkeys
  27     super() << 'defaultring'
  28   end
  29   private :__boolval_optkeys
  30
  31   def invoke
  32     tk_call(@path, 'invoke')
  33     self
  34   end
  35
  36   def flash
  37     tk_call(@path, 'flash')
  38     self
  39   end
  40 end