如何关闭 Perl/Tk 中的窗口？

Question

在我的 Perl/Tk 脚本中，我打开了两个窗口。单击特定按钮后我想关闭其中一个。我怎样才能做到这一点？这是我到目前为止所拥有的：

$main = new MainWindow;
$sidebar = $main->Frame(-relief => "raised", 
                        -borderwidth => 2)
                ->pack (-side=>"left" ,
                        -anchor => "nw", 
                        -fill   => "y");
$Button1 = $sidebar -> Button (-text=>"Open\nNetlist", 
                               -command=>  \&GUI_OPEN_NETLIST) 
                    ->pack(-fill=>"x");
MainLoop;

sub GUI_OPEN_NETLIST
{
    $component_dialog = new MainWindow;
    $Button = $component_dialog -> Button (-text=>"Open\nNetlist", 
                                           -command=>  **close new window**) 
                                ->pack(-fill=>"x"); 
    MainLoop;
}

Answer 1

最简单的方法是在按钮 -command 回调中调用 $component_dialog->destroy 。这样做的缺点是，如果您想稍后重新显示该窗口，则必须重新创建它。
withdraw 方法将隐藏窗口而不破坏它，以便您可以在需要时重新显示它。按下按钮时这将为您节省一些时间。当按下 Dialog 和 DialogBox 类中的某个按钮时，它们会自动为您执行此操作。如果您需要一个行为类似于传统对话框的窗口，他们可以提供一个更简单的选项来构建您自己的窗口。

另外，除了特殊情况外，您不需要多次调用 MainLoop。当回调 GUI_OPEN_NETLIST 返回时，MainLoop 将恢复，显式调用 MainLoop 可能会导致稍后出现奇怪的错误。

我认为这很接近你想要的，但我还没有测试过。

use strict;
use warnings;

my $main = new MainWindow;
my $sidebar = $main->Frame(-relief => "raised", 
                        -borderwidth => 2)
                ->pack (-side=>"left" ,
                        -anchor => "nw", 
                        -fill   => "y");
my $Button1 = $sidebar -> Button (-text=>"Open\nNetlist", 
                               -command=>  \&GUI_OPEN_NETLIST) 
                    ->pack(-fill=>"x");
my $component_dialog = $main->Dialog( -buttons => [ 'Close' ], );

MainLoop;

sub GUI_OPEN_NETLIST
{
    $component_dialog->Show();
}

如果您不需要对话框，则应考虑是否要创建第二个 MainWindow 或创建依赖于现有 MainWindow 的 Toplevel 窗口。
当 MainWindow 关闭时，Toplevel 将自动关闭，第二个 MainWindow 将在另一个 MainWindow 关闭后保持打开状态关闭。