use strict; use warnings; use Prima qw(Application Buttons);

my $window = Prima::MainWindow->new(
	text => "Invisible Radios!",
	size => [300, 200],
);
my $box = $window->insert( Widget => name => "box", pack => { fill => "both", expand => 1, }, );

# Code straight from http://search.cpan.org/~karasik/Prima-1.41/Prima/Buttons.pm
# only change is $box instead of $widget
my $group = $box-> insert( 'Prima::GroupBox', 
	onRadioClick => sub { print $_[1]-> text, "\n"; }
);
$group-> insert( 'Prima::Radio', text => 'Selection 1');
$group-> insert( 'Prima::Radio', text => 'Selection 2', pressed => 1);
$group-> index(0);

# End of copied code!

Prima->run();