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

Question

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

Answer 1

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

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

根据您要执行的操作，您可能希望绑定到 Create、Activate 或 Visibility 事件。请参阅Tk event type documentation 了解更多信息。