如何在Perl/Tk + AnyEvent中停止AnyEvent

Question

我正在编写Perl/Tk程序，它使用AnyEvent的计时器。如果计时器是活动的，关闭窗口会有问题。我让这个窗口关闭处理程序：

$self -> {window} -> protocol( 'WM_DELETE_WINDOW' => sub {
                                                   undef $self -> {timer};
                                                   $self -> {window} -> destroy;
});

如果在关闭窗口时计时器处于活动状态，则计时器停止，窗口关闭，但MainLoop不停止。怎么了？

Answer 1

根据AnyEvent::Impl::Tk文档，创建了一个隐藏的Tk MainWindow以使其正常工作。但这个隐藏的窗口似乎从未被自动摧毁过。作为一种解决办法，你可以自己做：

$AnyEvent::Impl::Tk::mw->destroy;