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'],
    );
}