Tk 表格的宽度

#禁止窗口缩放#$mw->resizable(0,0);require Tk::Table; $table_frame = $mw->Frame()->pack(-expand => 1,-fill => 'both'); $table = $table_frame->Table(-columns => 10,                                -rows =>1 ,                                -fixedrows => 1,                                -scrollbars => 'oe',                                -relief => 'raised');#@arr1 = qw/HOST FILESYSTEM TYPE SIZE# USED AVAIL USE MOUNTED SYSDATE/;##使用hash数组my %hash=("1","USER_ID",          "2","HOST_IP",          "3","SDATE",        "4","ERR_INFO"); foreach  $key (sort keys %hash){     $var = $hash{$key};#print "\$var is  $var\n";      $tmp_label = $table->Label(-text =>  $var, -width => 64, -relief =>'raised');

表格的宽带有<pre name="code" class="sql">-width => 64 控制