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

Question

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

Answer 1

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

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

取决于你想要做什么确切的说，你可能要绑定到Create，Activate，或Visibility事件，而不是。请参阅Tk event type documentation了解更多信息。