有没有办法在Perl 5.004/Tk 400中使用gridRowconfigure

在你问“你为什么要使用那个旧版本的Perl？”之前，我无法回答。我必须为这个项目使用可用的工具。我的问题是，是否有人知道这是否可能，如果可能，使用gridRowconfigure的语法是什么样子的，如下所示：

$main_window->gridRowconfigure(1, -weight => 1, -minsize => 171, -pad => 0);

---

在中，Perl 5.004，Tk 400。谢谢。

如果这意味着Tk 4.0，我想你不能。Tk 4.1中增加了网格

---

如果存在网格，则rowconfigure应该存在，因为它从一开始就存在。当您尝试上面所写的内容时，您会遇到什么问题/错误？

由于您使用的是Tk-400.202，因此“

perldoc Tk:：grid

”应该会告诉您需要了解的内容。您可能需要阅读一些其他文档，但是：

查询或设置几何图形索引行的行属性 主人，主人。有效选项为-minsize、-weight和-pad。 如果提供了一个或多个选项，则索引可以作为 配置选项将操作到的行索引列表[sic] 在…上-minsize选项以屏幕单位设置最小大小， 这一行是允许的。重量选项（A） 整数值）设置分摊任何额外费用的相对权重 行之间的空格。权重为零（0）表示该行不会 偏离其要求的尺寸。一行的重量是两个 当需要额外空间时，以两倍于一排重量的速度生长 分配给布局。非空时的-uniform选项 值，则将该行与其他行放在一个统一组中 对于-uniform具有相同值的行。行的空间 分配属于统一组的数据，使其大小一致 始终与它们的重量值严格成比例。看到网格了吗 有关详细信息，请参见下面的算法。-pad选项指定 将添加到最大窗口的屏幕单元数 当栅格几何图形管理器 从包含窗口请求一个大小。如果只有一个选项是 指定，但没有值，则该选项的当前值为 返回。如果只指定了主窗口和索引，则所有 当前设置在“选项值”列表中返回 成对的

---

正如我在对问题的评论中所指出的，这是应该升级的古董软件。

在Tk.pm中，它说$Tk:：VERSION='400.202'。我不确定这等于什么版本。然而，我知道GridWorks，因为我在其他几个小项目中使用过它，gridrowconfigure就是问题所在。根据过去的经验，gridrowconfigure允许您控制窗口和调整网格大小的行为。为什么不让您工作的人加入21世纪？他们真的如此喜欢90年代以至于不能使用任何现代的东西吗？Perl 5.004_04大约在1997年10月发布（）。Tk-400.200于1997年8月左右发布（）。这真是一段古老的代码。出于某种原因，在我使用的机器上，“perldoctk:：grid”返回的是“没有Tk:：grid的文档”。然而，这让我知道了应该开始搜索什么，我最终在Widget.pm中找到了它，并且从代码中的文档中可以找到：$main_window->Tk:：grid（'rowconfigure'，1，-weight=>1，-minsize=>171）；结果很好。谢谢你的帮助！

$master->gridRowconfigure(index?, -option=>value, ...?)