Prima::Radio in classic skin

[rsakakr]

Prima radio buttons don't paint properly in "classic" skin.

use Prima qw(Application Buttons);

my $main = Prima::MainWindow->new(
    size => [ 250, 100]
);

$main->insert(Radio =>
    skin => 'flat',
    text => 'Flat',
    checked => 1,
    pack => { anchor => 'w' }
);

$main->insert(Radio =>
    skin => 'classic',
    text => 'Classic',
    checked => 1,
    pack => { anchor => 'w' }
);

$main->insert(Radio =>
    skin => 'classic',
    text => (' ' x 7) . 'Classic',
    checked => 1,
    pack => { anchor => 'w' }
);

Prima->run;

looks like:

Prepending widget text with spaces acts as a workaround...

Test configuration:

• Windows 10 Pro 22H2
• Strawberry Perl 5.42.0.1
• Prima 1.77, built from CPAN sources