perl/tk求助

有没有linux的perl/tk高手帮忙看看。

$mw->Entry(-background => '#FFFFFFFFCECE', -foreground => 'white',-foreground => 'red',-width => 20,-textvariable => \$job)->pack(-side => "left");

如果光是这个这样的输入行那么可以在里面输入，但是如果在下面加一个部件那这个入口就不能输入字了。
只有enfry这个部件在最下面的时候那才可以输入，在win里面就全部可以输入，高手们看下这是怎么回事?

如：

$mw->Entry(-background => '#FFFFFFFFCECE', -foreground => 'white',-foreground => 'red',-width => 20,-textvariable => \$job)->pack(-side => "left");

$mw->Button(-text => "Jobs", -background => '#9B9BDBDBDBDB',-width => 5,-command =>sub{&job_list})->pack(-side => "left",-padx =>5, -pady => 2);

这样在linux里面enfry部件不能输入，在win里面可以输入。

$mw->Button(-text => "Jobs", -background => '#9B9BDBDBDBDB',-width => 5,-command =>sub{&job_list})->pack(-side => "left",-padx =>5, -pady => 2);

$mw->Entry(-background => '#FFFFFFFFCECE', -foreground => 'white',-foreground => 'red',-width => 20,-textvariable => \$job)->pack(-side => "left");

这样可以输入，意思就是只是enfry部件在最下面才可以输入。

高手们看看有什么解决办法?

48382291 想学的话,联系我！

不就是想找人家要钱吧?呵呵

加QQ 493915335
   一起研究~~