Select Code to Download

sub addOptions
{
...
    }
   my $len = length($label);
   [snip]

     ($label, $val) = @$val;
     if ($vvar == $tvar)
...
       my $new = $label;
       $w->configure(-textvariable => ($tvar = \$new));
      }