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