perl tk中使用grid如何紧密排列？

hwlyic

use Tk;
use Encode;
use Tk::BrowseEntry;
require Tk::BrowseEntry;


sub cb_print {
        my $tmp_var = $_[0];
        if ($tmp_var eq '1') {
                print "yes\n";
        }else {
                print "no\n";
        }
}

sub repack {
}



$version_info = "1.0";


$window_name="PCIe 数据链路层 Frame Generator ".$version_info;
$window_name=decode("cp936",$window_name);
my $mw = MainWindow->new(-title=>$window_name);
#$mw->configure(-background=>'grey');


$name = "循环次数";
$name=decode("cp936",$name);
$cycle_times_label = $mw->Label(-text=>"$name",-foreground =>'blue',-font => [-size => 10],-height=>'1',-width=> '10');


$cycle_times_entry = $mw->Entry(-textvariable => \$cycle_times,-insertwidth => 5,
                -insertontime => 500,-insertborderwidth => 1000,
                -foreground => 'red',-selectbackground => 'green1',
                -selectforeground => 'blue2',-width=>10,-font=>[-size=>12]);


#$name = "TLP data random enable";
#$tlp_data_random_label = $mw->Label(-text=>"$name",-foreground =>'blue',-font => [-size => 12])->pack;
$name = "  TLP帧数据域内容随机使能  ";
$name=decode("cp936",$name);
$tlp_data_random_cb = $mw->Checkbutton(
    -text=>$name,
        -width=>25,
        -height=>1,
        -variable => \$tlp_data_random_mode,
        -onvalue => '1',
        -offvalue => '0',
        -command => sub {&cb_print($dlp_reserved_inverted_mode)}
);


$name = "  DLP帧保留域填充值按协议反转使能  ";
$name=decode("cp936",$name);
$dlp_reserved_inverted_cb = $mw->Checkbutton(
    -text=>$name,
        -width=>30,
        -height=>1,
        -variable => \$dlp_reserved_inverted_mode,
        -onvalue => '1',
        -offvalue => '0',
        -command => sub {&cb_print($dlp_reserved_inverted_mode)}
);

$cycle_times_label->grid($cycle_times_entry,$tlp_data_random_cb,$dlp_reserved_inverted_cb);



#######################################################################################################
#ack_frame
#######################################################################################################
$name = "ack_frame";
$name=decode("cp936",$name);
$ack_frame_label = $mw->Label(-text=>"$name",-foreground =>'blue',-font => [-size => 10],-height=>'1',-width=> '10');
$ack_frame_label->pack();

$name = "帧使能";
$name=decode("cp936",$name);
$ack_frame_gen_cb = $mw->Checkbutton(
    -text=>$name,
        -width=>5,
        -height=>1,
        -variable => \$ack_frame_gen_enable,
        -onvalue => '1',
        -offvalue => '0',
        -command => sub {&cb_print($ack_frame_gen_enable)}
);
$ack_frame_gen_cb->pack(-after=>$ack_frame_label,-side=>'left');

$name = "CRC加错使能";
$name=decode("cp936",$name);
$ack_frame_crc_error_cb = $mw->Checkbutton(
    -text=>$name,
        -width=>10,
        -height=>1,
        -variable => \$ack_frame_crc_error_mode,
        -onvalue => '1',
        -offvalue => '0',
        -command => sub {&cb_print($ack_frame_crc_error_mode)}
);
$ack_frame_crc_error_cb->pack(-after=>$ack_frame_gen_cb,-side=>'left');

$name = "起始seq_num";
$name=decode("cp936",$name);
$ack_frame_begin_sequence_label = $mw->Label(-text=>"$name",-font => [-size => 10],-height=>'1',-width=> '10');
$ack_frame_begin_sequence_label->pack();

$ack_frame_begin_sequence_entry = $mw->Entry(-textvariable => \$ack_frame_begin_sequence,-insertwidth => 5,
                -insertontime => 20,-insertborderwidth => 20,
                -foreground => 'red',-selectbackground => 'green1',
                -selectforeground => 'blue2',-width=>5,-font=>[-size=>12]);
$ack_frame_begin_sequence_entry->pack();

$name = "结束seq_num";
$name=decode("cp936",$name);
$ack_frame_end_sequence_label = $mw->Label(-text=>"$name",-font => [-size => 10],-height=>'1',-width=> '10');
$ack_frame_end_sequence_label->pack();

$ack_frame_end_sequence_entry = $mw->Entry(-textvariable => \$ack_frame_end_sequence,-insertwidth => 5,
                -insertontime => 20,-insertborderwidth => 20,
                -foreground => 'red',-selectbackground => 'green1',
                -selectforeground => 'blue2',-width=>5,-font=>[-size=>12]);
$ack_frame_end_sequence_entry->pack();


$name = "ack_frame在多帧中顺序";
$name=decode("cp936",$name);
$ack_frame_index_browseentry = $mw->BrowseEntry(-label => "$name",
                -choices => ["1", "2", "3", "4","5", "6", "7", "8","9", "10", "11", "12", "13", "14", "15", "16"],
                -variable => \$ack_frame_index, -browsecmd => \&repack);
$ack_frame_index_browseentry->pack();



$ack_frame_label->grid($ack_frame_gen_cb, $ack_frame_crc_error_cb, $ack_frame_begin_sequence_label, $ack_frame_begin_sequence_entry,
$ack_frame_end_sequence_label, $ack_frame_end_sequence_entry, $ack_frame_index_browseentry,-sticky => "nsew");

MainLoop;