對話後應用程序未退出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