#!/usr/bin/perl
use strict;
use Tk;

my $mw = tkinit;

my %cb;
my $f = $mw->Frame->pack(-anchor => 'w');
foreach (qw/Author Reviewer File Status Mine/) {
    $cb{$_} = $f->Checkbutton(-text => $_)->pack(-anchor => 'w');
}

my $on_off = 1;
foreach (['Enable', 1], ['Disable', 0]) {
    $mw->Radiobutton(
-text     => $_->[0],
-command  => [\&ChangeAuthor, $_->[1]],
-variable => \$on_off,
-value    => $_->[1],
    )->pack(-side => 'left');
}

MainLoop;

sub ChangeAuthor {
    if (shift) {
$cb{Author}->pack(-before => $cb{Reviewer}, -anchor => 'w');
    } else {
$cb{Author}->packForget;
    }
}