1# 2# tkextlib/iwidgets/labeledframe.rb 3# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) 4# 5 6require 'tk' 7require 'tkextlib/iwidgets.rb' 8 9module Tk 10 module Iwidgets 11 class Labeledframe < Tk::Itk::Archetype 12 end 13 end 14end 15 16class Tk::Iwidgets::Labeledframe 17 TkCommandNames = ['::iwidgets::labeledframe'.freeze].freeze 18 WidgetClassName = 'Labeledframe'.freeze 19 WidgetClassNames[WidgetClassName] ||= self 20 21 def __strval_optkeys 22 super() << 'labeltext' 23 end 24 private :__strval_optkeys 25 26 def __tkvariable_optkeys 27 super() << 'labelvariable' 28 end 29 private :__tkvariable_optkeys 30 31 def __font_optkeys 32 super() << 'labelfont' 33 end 34 private :__font_optkeys 35 36 def child_site 37 window(tk_call(@path, 'childsite')) 38 end 39end 40