<I>
    my $tmatrix_select_font = [-family => 'Linotype Birka',
     -size => 15,
     -weight => 'bold',
     -slant => 'roman',
     -underline => 1,
     -overstrike => 0
     ];	
    $w->tagConfigure('sel', -bg=>'cyan', -fg=>'blue', -font=>$tmatrix_select_font);	
	</I>
	
##</code><code>##

$,='|'; 
print w->curselection;