GENESIS-SCRIPTS中,我用PERL执行副程式.回存GENESIS时....
回贴时值为: TK::Entry=HASH(0x1d80424) 请问为什么呢? 请高手赐教.谢谢
部份程式码 如下:
$mw->title("程式");
$mw->Button(-text => "离开", -command =>sub{exit})->pack(-side =>'bottom');
$mw->Button(-text => "执行", -command =>\&addtxt)->pack(-side =>'bottom');
$e1=$mw->Entry(-textvariable=>$e1)->pack(-side =>'bottom');
MainLoop;
sub addtxt {
$f->COM(add_text,
attributes => "no",
type => string,
x =>1,
y =>1,
text => $e1,
x_size => 0.1,
y_size => 0.1,
w_factor => 0.5,
polarity => positive,
angle => 0,
mirror => "no",
fontname => standard,
ver => 1);
exit;
}
|