1# 2# tkextlib/iwidgets/labeledwidget.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 Labeledwidget < Tk::Itk::Widget 12 end 13 end 14end 15 16class Tk::Iwidgets::Labeledwidget 17 extend TkCore 18 19 TkCommandNames = ['::iwidgets::labeledwidget'.freeze].freeze 20 WidgetClassName = 'Labeledwidget'.freeze 21 WidgetClassNames[WidgetClassName] ||= self 22 23 def __strval_optkeys 24 super() << 'labeltext' 25 end 26 private :__strval_optkeys 27 28 def __tkvariable_optkeys 29 super() << 'labelvariable' 30 end 31 private :__tkvariable_optkeys 32 33 def __font_optkeys 34 super() << 'labelfont' 35 end 36 private :__font_optkeys 37 38 def self.alignlabels(*wins) 39 tk_call('::iwidgets::Labeledwidget::alignlabels', *wins) 40 end 41 42 def child_site 43 window(tk_call(@path, 'childsite')) 44 end 45end 46