use 5.032; 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: ', pack => { side => 'left' }, ); $fps->insert( InputLine => text => '60', pack => { side => 'left' }, ); $fps->insert( Label => text => 'FPS', pack => { side => 'left' }, ); my $res = $main->insert( Widget => pack => { side => 'top' }, ); $res->insert( Label => text => "Spectral resolution", pack => { side => 'left' }, ); $res->insert( InputLine => text => '10', pack => { side => 'left' }, ); $res->insert( Label => text => 'Hz', pack => { side => 'left' }, ); my $limit = $main->insert( Widget => pack => { side => 'top' }, ); $limit->insert( Label => text => "Show spectrum up to", pack => { side => 'left' }, ); $limit->insert( InputLine => text => '5000', pack => { side => 'left' }, ); $limit->insert( Label => text => 'Hz', pack => { side => 'left' }, ); Prima->run;
In reply to Re^2: Prima: How to get a "table" layout?
by haj
in thread Prima: How to get a "table" layout?
by haj
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |