use Prima qw(Application Label InputLine);
my $main = Prima::MainWindow->create(
text => 'Configuration',
backColor => cl::White,
menuItems =>
[ ['~File' => [['~Quit' => 'Ctrl+Q', '^Q',
sub { $::application->close } ], ],
],
]
);
my $fps = $main->insert(
Widget =>
pack => { side => 'top' },
);
$fps->insert(
Label =>
text => 'Refresh rate: ',
width => 200,
pack => { side => 'left' },
);
$fps->insert(
InputLine =>
text => '60',
width => 100,
pack => { side => 'left' },
);
$fps->insert(
Label =>
text => 'FPS',
width => 50,
pack => { side => 'left' },
);
my $res = $main->insert(
Widget =>
pack => { side => 'top' },
);
$res->insert(
Label =>
text => "Spectral resolution",
width => 200,
pack => { side => 'left' },
);
$res->insert(
InputLine =>
text => '10',
width => 100,
pack => { side => 'left' },
);
$res->insert(
Label =>
text => 'Hz',
width => 50,
pack => { side => 'left' },
);
my $limit = $main->insert(
Widget =>
pack => { side => 'top' },
);
$limit->insert(
Label =>
text => "Show spectrum up to",
width => 200,
pack => { side => 'left' },
);
$limit->insert(
InputLine =>
text => '5000',
width => 100,
pack => { side => 'left' },
);
$limit->insert(
Label =>
text => 'Hz',
width => 50,
pack => { side => 'left' },
);
Prima->run;
Update: Sorry, forgot about the "no counting pixels" criteria.
Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond
|