foreach $jrow (sort
	$ref_spv->{$a}->{Symbol} <=> $ref_spv->{$b}->{Symbol}
			||
	$ref_spv->{$b}->{Sel120} <=> $ref_spv->{$a}->{Sel120}
 			||
	$ref_spv->{$a}->{Sel119} cmp $ref_spv->{$b}->{Sel119}
		} keys %$ref_spv) {
	push(@$ref_new_order, $jrow);
}

##</code><code>##


	$ref_spv->{$a}->{Symbol} <=> $ref_spv->{$b}->{Symbol}
			||
	$ref_spv->{$b}->{Sel120} <=> $ref_spv->{$a}->{Sel120}
 			||
	$ref_spv->{$a}->{Sel119} cmp $ref_spv->{$b}->{Sel119}

##</code><code>##

foreach $jrow (sort {
		eval($sort_str);
	} keys %$ref_spv) {
(@$ref_new_order

##</code><code>##

$t->tagConfigure($tag_name, -state => 'disabled', -bg => 'black');

##</code><code>##

$t->tagCell($tag_name, $cell_index);

##</code><code>##

$t->tagConfigure($tag_name,  eval($tag_string));