dialog - ダイアログの後でアプリが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