对话框后应用程序未从 MainLoop 退出

Question

我有这个问题。

我已经解决了，但它是否适用于大型应用程序（将来:)？

#!/usr/bin/perl

use strict;
use warnings;

use lib '.';
use MyApp;
use LoginFrame;

my $f = LoginFrame->new;
$f->ShowModal;
if(int($f->GetReturnCode)) {
    print '['.$f->GetReturnCode."]\n";
    $f->Destroy;

    my $app = new MyApp;
    $app->MainLoop;

} else {
    print "PLEASE NOT THIS CRAP AGAIN!!!\n";
    print '['.$f->GetReturnCode."]\n";
}

Answer 1

“在有顶层窗口之前，（主）循环不会终止。”

• wxPerl教程http://wxperl.sourceforge.net/tutorial/tutorial2.html#id4690123