ダイアログ後にアプリケーションが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