2

コード:

#!/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 ウィジェットを水平および垂直に配置する方法は何ですか?

4

1 に答える 1