コード:
#!/usr/bin/perl -w
use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1 );
my $win = $cui->add(
'win', 'Window',
-border => 1,
-y => 1,
-bfg => 'red',
);
my $listbox = $win->add(
'mylistbox', 'Listbox',
-values => [1, 2, 3],
-labels => { 1 => 'One',
2 => 'Two',
3 => 'Three' },
-radio => 1,
-height => 15,
);
my $buttons = $win->add(
'mybuttons', 'Buttonbox',
-buttons => [
{
-label => '< Ok >',
-value => 1,
-onpress => sub { die "Do not press this button!\n"; },
}
],
);
$listbox->focus();
$cui->mainloop();
プログラムを実行してクリックした後の出力<tab>
:
ご覧のとおり、ボタンはリストボックスの後ろに配置されました。次のように、ボタンをリストボックスの下に配置して、水平方向の中央に配置するにはどうすればよいですか。
また、他のウィジェットに関連して、Perl で ncurses ウィジェットを水平および垂直に配置する方法は何ですか?