Select Code to Download

<I>
    my $tmatrix_select_font = [-family => 'Linotype Birka',
     -size => 15,
...
    $w->tagConfigure('sel', -bg=>'cyan', -fg=>'blue', -font=>$tmatrix_
+select_font);    
    </I>

$,='|'; 
print w->curselection;