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
";
    	
	  $tmp_label = $table->Label(-text =>  $var, -width => 64, -relief =>'raised');

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