대화 상자 후 응용 프로그램이 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