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

对话框后，App不会退出MainLoop

1 个答案: