my $helix_result_list=$helix_lf->Scrolled('HList',
			  -scrollbars => 'oe',
			  -width => 50,
			  -height => 20,
			  -header => 1,
			  -columns => 5,
  			  -selectbackground=>'green',
			   -command =>\&change_hlist_bg
 )->pack(-expand=>1, -fill=>'both', -padx=>2, -pady=>2);

$helix_result_list->headerCreate( 0, -text => 'Chain');
$helix_result_list->headerCreate( 1, -text => 'Ssqno');
$helix_result_list->headerCreate( 2, -text => 'Esqno');
$helix_result_list->headerCreate( 3, -text => 'Class');
$helix_result_list->headerCreate( 4, -text => 'Sequence');

$helix_result_list->add($main::helix_result_count);
printf "$main::helix_result_count\n";

	$helix_result_list->itemCreate($main::helix_result_count,0,-text=>$chainid);
	$helix_result_list->itemCreate($main::helix_result_count,1,-text=>$value1);
	$helix_result_list->itemCreate($main::helix_result_count,2,-text=>$value2);
	$helix_result_list->itemCreate($main::helix_result_count,3,-text=>$class);
	$helix_result_list->itemCreate($main::helix_result_count,4,-text=>sprintf("%s",substr($main::seqres{$chainid},$value1,$value2-$value1+1)));