perl messagebox为何得不到返回值?谢谢

perlplus33

代码如下，得不到返回值。

use Tk;
use strict ;
my $mw =MainWindow->new;
my $yesno_button=> $mw->messageBox(-message => "jsut a test",-type => "okcancel",-icon => "question" ) ;

$mw->messageBox( -message => "your choice: $yesno_button", -type => "ok" ) ;
if ($yesno_button eq "Ok" ) {
        exit;
}

MainLoop;

zhlong8

只用过 Tkx 的路过

perlplus33

啊，Tk是比较老了。。。

看看有同志没？

perlplus33

结帖，汗死 ，，，， "="  成了 "=>", 1个小时的时间啊，，，