A radiobutton is a widget that has a textual string and a circle. In the following code, without the mouse hovering on the radiobutton, the background colors of the circle and the text are white and khaki separately. With the mouse hovering, the background colors of the circle and the text are both khaki. Is there a way to make the background color of the circle stay white? Or is this some kind of compatibility issue with Tk running on Windows (I'm running Tk 804.29 with ActivePerl 5.12.1 on Win XP)? A WxPerl radiobutton does not seem to give me this problem.

use strict; 
use warnings;
use Tk;

my $mw = MainWindow -> new();

my $frame = $mw -> Frame()-> pack( ); 

my $id = 0;
my $bg_color = 'khaki';
my $radio_button1 
    = $frame -> Radiobutton (
                                -text => 'RadioButton1',
                                -value =>0, 
                                -variable => \$id,         
                                -bg => $bg_color,
                                -activebackground => $bg_color,
                                -activeforeground => 'red',
                            ) -> pack ();
my $radio_button2 
    = $frame -> Radiobutton (
                                -text => 'RadioButton1',
                                -value =>1, 
                                -variable => \$id, 
                                -bg => $bg_color,
                                -activebackground => $bg_color,
                                -activeforeground => 'red',
                            ) -> pack ();

MainLoop;
[download]