1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl
use v5.20;
use warnings;
use Tickit;
use Tickit::Widgets qw( VBox RadioButton );
my $vbox = Tickit::Widget::VBox->new( spacing => 1 );
my $group = Tickit::Widget::RadioButton::Group->new;
foreach ( 1 .. 5 ) {
$vbox->add( Tickit::Widget::RadioButton->new(
class => "radio$_",
style => { fg => $_ },
label => "Radio $_",
group => $group,
) );
}
Tickit::Style->load_style_file( "./tickit.style" ) if -e "./tickit.style";
Tickit->new( root => $vbox )->run;
|
