perl - Curses::UI::Dialog がエンターキーに反応しない

Question

Curses::UI アプリケーションを作成しようとしています。これまでのところすべてが機能していますが、私のダイアログは閉じるためのエンターキーに応答したくないようです。サンプルを試してみましたが、うまくいきましたが、何らかの理由でこのようにすると、ダイアログがキーを押しても反応しません。ほら、メインウィンドウのコンテンツが画面いっぱいになり、x秒ごとに更新されるので、ダイアログを画面に重ねて入力時に閉じるようにしたいと思います。これが私のテストスクリプトのコードです。

これを実行すると、画面は 10 秒ごとに更新され、左側に時間が表示されます。更新後、X を押してダミー ダイアログを表示します。次の更新では、画面データはまだアクティブなダイアログ ボックスをカバーします。Enter キーを押してダイアログを終了すると、終了できます。

私の目標は、この対話をすべての上に置くことです。

#!/usr/local/bin/perl

use strict;
use warnings;
use Curses::UI;

my ($dialog, $main, $ui, $container, $content);
my $last_update = 0;
my $first_run = 0;
$ui = Curses::UI->new(
    -color_support  =>  1,
    -mouse_support  =>  0,
    -border         =>  1,
    -debug          =>  0
);

$main = $ui->add(
    "main", "Window",
    -bfg        =>  "black",
    -x      =>  0,
    -y      =>  0,
    -height     =>  $ui->height,
    -width      =>  $ui->width
);

$main->focus();

$ui->set_binding( sub { $ui->leave_curses; exit(0); }, "q");
$ui->set_binding( \&exit, "x");
$ui->add_callback("callback", \&callback );
$ui->{-read_timeout} = 0.1;
$ui->mainloop;

sub callback {
    if($first_run == 0) {
        update_body();
        $first_run = 1;
    }

    my $now = time;
    if($now - $last_update >= 10) {
        update_body();
        $last_update = time;
    }
}

sub update_body {
    for(my $x = 0; $x < 2000; $x++) {
        $main->delete("body$x");
    }

    for(my $x = 0; $x < ($ui->height - 5); $x++) {
        my $now = time;
        $main->add(
            "body$x",       "Label",
            -x      =>  0,
            -y      =>  $x,
            -text       =>  $now,
            -width      =>  $ui->width
        )->draw();
    }
}

sub exit {
    my $return = $ui->dialog(
        -message   => "Test dialog",
        -title     => "Test",
        -buttons   => ['ok'],
    );
}