In the following code, Radiobuttons "first" and "second" have the same -value. The "third" has a different -value. When you run it, clicking either the "first" or "second" selects both of them; clicking the "third" selects just that one.

use strict;
use warnings;
use Tk;
use Tk::Radiobutton;
my $rb_value;
my $mw = Tk::MainWindow->new;
$mw->Radiobutton(-text=>'first',-value=>'one',-variable=>\$rb_value)->
+pack;
$mw->Radiobutton(-text=>'second',-value=>'one',-variable=>\$rb_value)-
+>pack;
$mw->Radiobutton(-text=>'third',-value=>'three',-variable=>\$rb_value)
+->pack;
MainLoop;
print $rb_value,$/;
[download]

Thanks for the feed back.

Ive tried the following (as posted above)...
-value=>"@$names[0]" ($names[0] = ID for that file)
When toggling, each row will stay independent, but selecting one button will also select the other, both working together and not toggling back and forth, per row.



-value=>"one"
-value=>"two"
[download]

Toggling "Install" will select all 'install' buttons for all rows, toggling "update" will de-select the "install" rows and select all 'update' rows (being 'one' and 'two' are now constants ??).



-value=>"both_@$names[0]"
-value=>"install_@$names[0]"
[download]

($names[0] = ID for that file)
Makes all buttons independent, no matter what row is selected, the buttons will toggle to that single button.

In the while-loop, i have my $FileFrame = $extFileFrame -> Frame();
Doesnt that create a new "instance" of a frame which will be placed in the "parent" container/frame '$extFileFrame' ?
If so, by placing the two radio buttons (install and update) with $rdb = $FileFrame -> Radiobutton() they are being placed in there own container, and since each container is a new row, rows should not effect each other ???


Only reason im tring to go with this route now, is because i cant get it working ;) and being new to perl i would like to learn what im doing wrong.

An alternative which would fit my needs is just create a label with the 'type' flag in it so i can visualy see if the file is for Install or for Update and then place two "normal" cmd_Buttons next to the row, it does not have to be nice and pritty, but i would like to know what im doing wrong with the code above.


_

Radiobuttons that have the same -value and -variable are effectively the same button, even if there are dozens of instances.

Putting Radiobuttons in different Frames does not group them; they are grouped by sharing the same -variable and distinguished within the group by different -values.

The -variable for the Radiobutton should be a reference to a scalar, e.g. \$something, \$hash{key}, \$array[6], etc. When the Radiobutton is selected - by the user or by calling $rdb->select - the -variable assigned to it is set to its -value. The reverse is also true: if the code sets the $something to a value matching a Radiobutton's -value, that Radiobutton becomes selected.

use strict;
use warnings;
use Tk;
use Tk::Radiobutton;
my $mw = Tk::MainWindow->new;

my $rb_value; # undef, no Radiobutton selected
$mw->Radiobutton(-text=>'first',-value=>'one',-variable=>\$rb_value)->
+pack(-anchor=>'w');
$mw->Radiobutton(-text=>'second',-value=>'one',-variable=>\$rb_value)-
+>pack(-anchor=>'w');
$mw->Radiobutton(-text=>'third',-value=>'three',-variable=>\$rb_value)
+->pack(-anchor=>'w');

$mw->Label(-text=>'------------------------')->pack;

my $other_value = '0000ff'; # preset blue
$mw->Radiobutton(-text=>'RED',-value=>'ff0000',-variable=>\$other_valu
+e)->pack(-anchor=>'w');
$mw->Radiobutton(-text=>'GREEN',-value=>'00ff00',-variable=>\$other_va
+lue)->pack(-anchor=>'w');
$mw->Radiobutton(-text=>'BLUE',-value=>'0000ff',-variable=>\$other_val
+ue)->pack(-anchor=>'w');

MainLoop;
print 'rb:',$rb_value,$/;
print 'other:',$other_value,$/;
[download]

In addition to the clear explanations provided by keszler, here is a small demo that you may find useful, I hope:

use strict;
use warnings;
use Tk;

my $top = MainWindow->new;
$top->title("Radio");

my %wb; # radio buttons hash

# Create 4 radio buttons trick;
# cant't remember from where I got it :(
# -variable is set to default (see man page)
# -value is lower case of label
foreach my $label (qw/Top Left Right Bottom/) {
    my $lower = lc $label;
    $wb{$lower} = $top->Radiobutton(
        -text        => $label,
        -relief      => 'flat',
        -value       => $lower,
        -indicatoron => 0,
        -width       => 7,
        -command     => [\&cb_rbutton,$lower],
    )->pack;
}

$top->Button(
    -text => 'Flash',
    -width => 10,
    -command => [\&cb_button, \%wb],
)->pack;

Tk::MainLoop;

sub cb_rbutton {

    # Radio button selected
    my $rb = shift;
    print ucfirst($rb), " is on\n";
    return;
}

sub cb_button {

    # Button released
    my $rb = shift;

    foreach my $label ( keys %{$rb} ) {
        my $variable = $rb->{$label}->cget('-variable');

        if ( ! defined ${$variable} ) {
            # No check button selected
            print " Select a button!\n";
            last;
        }
        # When a check button is selected, all 4 buttons value will be
        # set to $label of the selected check button
        # To find out which one is selected:
        print " CB: $label -> ${$variable}\t";
        if ( ${$variable} eq $label ) {
            print "selected, flashing";
            $rb->{$label}->flash;
            print " ...\n";
        }
        else {
            print "\n";
        }
    }
    return;
}
[download]