perl - 将 Tk::BrowseEntry 小部件链接在一起

Question

我在使用 Tk::BrowseEntry 小部件的 -browsecmd 和 -listcmd 选项时遇到了一些问题：

我有三个 BrowseEntry 小部件，每个小部件都使用前一个小部件的值作为输入来填充自己的列表。这些值用作子例程的参数，该子例程从平面文件数据库中提取下拉列表中的项目列表。该子例程调用小部件上的插入方法来填充其选择。

问题是这样的：

当我更改第一个 BrowseEntry 小部件的值时，下一个使用前者的值填充其自己的列表的 BrowseEntry 小部件会将新列表附加到旧列表而不是替换它。我听说这是一个已知的错误，所以我调用了删除函数但无济于事。

有谁知道可以解决此问题的解决方法？

Answer 1

我收到此错误：Tk::Error: Can't call method "Subwidget" on an undefined value

每次下拉列表“激活”时，我需要一种方法来调用与每个小部件关联的子例程。并且子例程必须使用前一个小部件值的当前值作为其参数来给出最新的列表......

对上述问题的任何帮助/预烘焙解决方案将不胜感激。