$Mode="Mode1";
 
my $entry26 = $lf21->new_ttk__radiobutton(-text => "Mode1", -variable => \$Mode, -value => "Mode1");
my $entry27 = $lf21->new_ttk__radiobutton(-text => "Mode2", -variable => \$Mode, -value => "Mode2");
my $entry28 = $lf21->new_ttk__radiobutton(-text => "Other:", -variable => \$Mode, -value =>  $OtherMode  );
 
my $entry29 = $lf21->new_ttk__entry(
-validate        => 'focusout',
-textvariable => \$OtherMode,
);