<pre name="code" class="python"># DESCRIPTION
# Tk::Table is an all-perl widget/geometry manager
# which allows a two dimensional table of arbitary perl/Tk widgets to be displayed.
# Tk::Table 是一个部件/部件管理器
# 允许任意2维表来显示
# Entries in the Table are simply ordinary perl/Tk widgets.
# They should be created with the Table as their parent. Widgets are positioned in the table using:
# 在表里的条目是简单普通部件
# 它们需要在父窗体下创建,部件被放在表里使用
# $table->put($row,$col,$widget)
# 如果 $widget 不是一个引用那么就对待为字符串,
# 一个Label 部件使用字符串来创建
# 所有的部件在每个列是设置为相同的宽度 ,最宽的部件列的宽度
# 同样的,所有的部件在每个列是设置为相同的高度 ,最高部件列的高度
# 多行或者多列 可以标记为fixed, 可以作为'headings' 剩下的记录可以用滚动条滚动
# 请求的表的尺寸 行的记录有-rows指定(默认10),
# 列有-columns 指定(默认10)
# 表可以创建和管理它自己的滚动条 如果指定-scrollbars
# 清空表使用:
# $table->clear
# 部件在表里会被摧毁.
# Tk::Table 部件是来自于Tk::Frame,因此它继承了它所有的配置选项。