Re: Tk question: Dynamically disable radiobutton choices

First, make sure your code runs. Yours has an error, so always copy'n'paste a working example.

$fr->RadioButton(
SHOULD BE
$fr->Radiobutton(
[download]

also you should have

use warnings;
use strict;
[download]

which would give you errors like this:

"my" variable %main::A can't be in a package at ./1218747.pl line 14, 
+near "my %main::A"
Global symbol "@headers2" requires explicit package name (did you forg
+et to declare "my @headers2"?) at ./1218747.pl line 37.
[download]

Your code is hopelessly broken by you trying to setup a bizarre data structure. Where did you get the syntax for %main::A?

Here are a few simple examples of manipulating BrowseEntry widgets. You can modify the @arrays to achieve your limiting of choices. Look at the BrowseEntry widget's browsecmd. Like -browsecmd => \&do_whatever to my selections. You probably don't even need radio buttons.

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;

my $var = '';
my $var1= '';
my @fruits = qw( apple orange bananna grape); 
my @colors = qw( red orange green purple);

my $widget1; # declare here so you can modify it
             # from first $widget

my %options;
$options{'Fruits'} = \@fruits;
$options{'Colors'} =  \@colors;
#print "@{$options{'Fruits'}}\n";

my $mw = tkinit;
      my $widget = $mw->BrowseEntry(
          -label => 'Select the Journal Name:',
          -variable => \$var,
          -state => 'normal',
          -choices => [qw(Colors Fruits)],
         
          -browsecmd=>sub{
               #print "@_\n";
               my $selected = $_[1];
               print "$selected\n";
               $widget1->configure(
                   -choices => $options{$var},
                   );               
               $mw->update;
              }
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');


       $widget1 = $mw->BrowseEntry(
          -label => 'Select:',
          -variable => \$var1,
          -state => 'normal',
          -choices => $options{$var},
         #-width  => 45
        )->pack(
            -side   => 'top',
            -pady => '10',
            -anchor => 'w');

MainLoop();
[download]

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::LabFrame;
use Tk::BrowseEntry;

my $main = MainWindow->new();

$main->fontCreate('big', -size=> 24 );

    my $tx  = 'Larry';

    my $fr = $main->LabFrame(
        -label     => '3 Stooges',
        -labelside => 'acrosstop',
    )->pack();

    my @choices = ( 'Curly', 'Larry', 'Moe' );
   
    my $be = $fr->BrowseEntry(
        -label     => 'Whoop Whoop',
        -labelPack => [
            -side   => 'left',
            -anchor => 'w',
            -expand => 1,
            -padx   => 4
        ],
        -font => 'big',
        -width    => 20,
        -state    => 'normal',
        -choices  => \@choices,
        -variable => \$tx
    )->pack( -side => 'top', -anchor => 'e' );

    $be->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'red'
    );
    $be->Subwidget("slistbox")->configure( -background => 'white' );

    $be->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'red'
    );
    $be->Subwidget("slistbox")->configure( -background => 'white' );

 
    my @choices1 = ( 'A', 'B', 'C' );
    my $tx1 = 'B';
   
    my $be1 = $fr->BrowseEntry(
        -label     => 'Select',
        -labelPack => [
            -side   => 'left',
            -anchor => 'w',
            -expand => 1,
            -padx   => 4
        ],
        -font => 'big',
        -width    => 20,
        -state    => 'normal',
        -choices  => \@choices1,
        -variable => \$tx1
    )->pack( -side => 'top', -anchor => 'e' );

    $be1->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'blue'
    );
    $be1->Subwidget("slistbox")->configure( -background => 'white' );

    $be1->Subwidget('entry')->Subwidget('entry')->configure(
        '-background' => 'white',
        '-fg'         => 'blue'
    );
    $be1->Subwidget("slistbox")->configure( -background => 'white' );

MainLoop();
[download]

A browsecmd example

#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::BrowseEntry;

my @typeChoices = qw(1553 1554);
my $paramType = $typeChoices[0];

my $mw = MainWindow->new();

my $be = $mw->BrowseEntry(
 -label    => 'List Test',
 -choices  => [@typeChoices],
 -variable => \$paramType,
 -browsecmd=>sub{
         if ($paramType eq '1553'){
                         func1553();}
             elsif($paramType eq '1554'){
                         func1554();}
                         }

)->pack();

$mw->Button(-text=>'simulate file setting',
            -command => sub{
             $paramType = set_type();

                 # add a new type by pushing it into
         # the array @typeChoices
                 push @typeChoices, time;
                
        #move type to first position in list if desired
         for(1..$#typeChoices){
             if( $paramType == $typeChoices[0]){last}
             push (@typeChoices,shift(@typeChoices)); #circular list
            }
              $be->configure( -choices  => [@typeChoices],  );     
        })->pack();

MainLoop;

sub func1553{ print "1553 running\n" }

sub func1554{ print "1554 running\n" }

sub set_type{
    my $rand_num = int(rand(1) + .5);
    if( $rand_num == 0){ return 1553 }else{ return 1554  }      
}
[download]

I'm not really a human, but I play one on earth. ..... an animated JAPH

Comment on Re: Tk question: Dynamically disable radiobutton choices Select or Download Code