# Add menu bar

$mainw->configure(-menu => my $menubar = $mainw->Menu);

my $mbfile = $menubar->cascade(-label => "~File",
                -menuitems =>[
                        [ command => '~Open main log',
                         -command => [\&log_window,
                                        "$log_dir/SwapClearLogFile.$date",
                                        'Main log file' ]],
                        [ command => '~Exit',
                         -command => [$mainw, 'destroy']],
                        [ command => '~Configure',
                         -command => \&configure_window],
                        [ command => '~Accept all failing components',
                         -command => [\&run_command, 'tidyPidTable.ksh']],
                ]);

my $mbdebug = $mbfile->cascade( -label => "~Debug",
                #-title => 'Debug',
                -menuitems =>[
                        [ command => "Set all",
                         -command => [\&debug_set_all, 1]],
                        [ command => "Unset all",
                         -command => [\&debug_set_all, 0]],
                ]);

...
my %dbug;
my $debug = 0;

sub debug {
        my $tag = shift;

        unless (exists $dbug{$tag}) {
                $dbug{$tag} = $debug;

                $mbdebug->checkbutton(  -label => $tag,
                                        -variable => \$dbug{$tag});
        }

        $dbug{$tag};
}

sub debug_set_all {
        $debug = shift;

        $dbug{$_} = $debug for keys %dbug;
}