perl - 打开新窗口后如何运行初始子程序

Question

在我的 Perl/Tk 脚本中，我正在打开新窗口，并且我希望窗口打开将运行一个初始子程序（当窗口打开时）我该怎么做？

Answer 1

一种方法是从创建和/或引发窗口的代码中调用子例程。如果您希望调用绑定到操作本身而不是调用该操作（可能是因为可以从代码中的多个位置打开窗口），您需要创建一个事件绑定。例如

$window->bind('<Map>', \&mysub);

根据您尝试执行的具体操作，您可能希望绑定到Create、Activate或Visibility事件。有关详细信息，请参阅Tk 事件类型文档。