应用程序在对话后不会退出主循环

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