在perl-tk中使用网格几何管理器时,在网格中垂直放置网格

时间:2011-05-04 09:49:31

标签: perl grid tk perltk

我在框架内使用网格,我想将网格定位到框架的底部。目前我通过在第4行(#114 here)上添加一个虚拟标签来做到这一点。有没有更好的方法来解决它。

    $frm_sig->grid(-row=>0, -column=>0, -sticky=>'news', -padx=>2);
    $frm_sig->gridColumnconfigure(0, -weight=>1);
    {
        $lbl_sig_dummy->grid(-row=>0, -column=>0, -columnspan=>2);
        $rdb_sig_type_se->grid(-row=>1, -column=>0, -sticky=>'w');
        $rdb_sig_type_diff->grid(-row=>1, -column=>1, -sticky=>'w');

        $lbl_sig_val->grid(-row=>2, -column=>0, -sticky=>'w');
        $txt_sig_val->grid(-row=>2, -column=>1, -sticky=>'w');

        $lbl_sign_val->grid(-row=>3, -column=>0, -sticky=>'w');
        $txt_sign_val->grid(-row=>3, -column=>1, -sticky=>'w');
    }

1 个答案:

答案 0 :(得分:1)

您应该能够通过在第一行设置非零权重将网格的 rest 移动到底部,而不用虚拟标签或框架填充(但如果您想要那里的东西,那绝对没问题:

$frm_sig->gridRowconfigure(0, -weight=>1);

使用足够新的Tk,您可以将整个网格区域锚定到其包含小部件的一个边缘,但我不知道您是否有足够新的版本。