如何在打開新窗口後運行初始子程序

Question

在我的Perl/Tk腳本中，我打開了新窗口，並且我希望窗口打開將運行一個初始子程序（當窗口打開時） 我該怎麼辦它？

Answer 1

一種方法是從創建和/或引發窗口的代碼調用子例程。如果您希望將呼叫綁定到該動作的動作本身而不是調用（可能是因爲該窗口可能會從代碼中的多個位置打開），您需要創建一個事件綁定。例如

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

取決於你想要做什麼確切的說，你可能要綁定到Create，Activate，或Visibility事件，而不是。請參閱Tk event type documentation瞭解更多信息。