I am creating a dialog for comparing two files. For matching purposes, the user needs to tell the program how to handle fields (for instance excel columns). Thus, the interface needs to a) specify that column i in file A corresponds to column j in file B and b) whether these matching columns are First name, last name or neither. This is important because an exact match will be performed for last name, but a first digit match will be performed on first name, e.g. 'Tim' vs. 'Timothy' should be a match. So I am adding a radiobutton for each column with the choices 'First, last and no name'. The trick is that once there is only one 'First name' and 'last name' column, so once the user has specified that this is a first name, this option should not be available to other columns.

Apart from this, which I am not sure how to do there seem to be 2 more issues with the code below: First, the Radiobutton part seems to give a strange message Second, the Browseentry appears to be filled in the box instead of the expanding list

use Tk;
use Tk::BrowseEntry;

my $top=MainWindow->new();
 $top->title("Match Specifications");
 my @names=('Last Name','First Name','Not a name');
my $value=2;  #no name is default
my $indicator=0;#start looping over names, indicator=0=>Last, 1=>first
+, 2=>no name
%main::A={1=>['Tim','Doe','other_info1'],
2=>['Mick','Lu','other_info_2']};
%main::B={1=>['Timothy','Doe','other_info1','moreinfo1'],
2=>['Michail','Lu','other_info_2','moreinfo2']};
$main::headers[0]=['F','L','O']; $main::headers[1]=['M','J','P','JJ'];
my $fr=$top->Frame(-relief=>'sunken')->pack(-anchor=>'nw',-fill=>'both
+'); 
my $counter0=0; 
my @selector;
my $col=0;my $colshow=0;
my @keys00=sort keys %main::A;my @keys0=();
 push @keys0,$keys00[0];
 push @keys0,$keys00[1]; 
my @keys200=sort keys %main::B;
my @keys20=();
push @keys20,$keys200[0];
 push @keys20,$keys200[1];
my $row1=0;
foreach my $el(@{$main::headers[0]}){
my $row=0;
 $selector[$col]=$fr->Scrolled('BrowseEntry',-label=>$el,-variable=>\$
+main::matchhash{$col},
-browsecmd=>[\&show,$el,\@headers2,\@keys200]);
my $h2cnt=0 ; my $h2cntall=0;
##### this is the part that must be repopulated dynamically
foreach my $el2(@{$main::headers[1]}){
$selector[$col]->insert("end", $el2);
$h2cnt++;
$h2cntall++;}#foreach el2
$selector[$col]->grid(-row=>$row,-column=>$colshow);
#### end of part to repopulate dynamically
$row++;

#row nonzero
$fr->Label(-text=>$main::A{$keys0[0]}->[$col])->grid(-row=>$row,-colum
+n=>$colshow);$row++;
$fr->Label(-text=>$main::A{$keys0[1]}->[$col])->grid(-row=>$row,-colum
+n=>$colshow);$row++;
 foreach my $name(@names){
 $fr->RadioButton( -text=>$name,-variable=>\$indicator,-value=>$value)
+->grid(-row=>$row,
-column=>$colshow);
$row++;}
             $colshow++;  $row1=$row;

                              $col++;}#foreach el
#######
$fr->Button(-text=>'Run',-bg=> 'firebrick1'     ,-command=>sub{ }    )
+->grid(-row=>$row1,-column=>1);
&MainLoop(); 
sub show{my $el=shift; my $rheaders=shift; my $rkeys=shift;
}

[download]

In reply to Tk question: Dynamically disable radiobutton choices by chafelix

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.