Perl 诅咒::UI

Question

我正在尝试使用 http://search.cpan.org/ 中的 Curses:UI 库dist/Curses-UI/ 在 Linux karmic 上构建 UI。

我可以创建一个简单的用户界面，例如：

#!usr/usr/bin/perl

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

$ui = new Curses::UI(-color_support=>1,-clear_on_exit=>1,-intellidraw=>1);
my $window = $ui->add('window', 'Window',-intellidraw=>1);
my $message = $window->add(-text=>"Hello!",-intellidraw=>1);
$window->focus(); 
$ui->mainloop();

问题：我需要某种方式向 UI 传达信息，即我有一个循环，它将等待消息到来并更改窗口中的文本。一旦出现此消息，将显示一个弹出窗口。 尝试：

my $ui = new Curses::UI(-color_support=>1,-clear_on_exit=>1,-intellidraw=>1);
my $window = $ui->add('window', 'Window',-intellidraw=>1);
my $message = $window->add(-text=>"Hello!",-intellidraw=>1);

pseudocode
while(true) #implemented a function to wait
{
    popup($window->text("Hello how are you?"));
}

$window->focus(); 
$ui->mainloop();

问题：以上方法不起作用。我看到一个黑屏，显示我的消息。我已阅读文档，当我将 $ui->mainloop() 重新定位到 while 循环上方时，我得到了用户界面，但现在没有任何内容与窗口进行通信。

巧合的问题：我需要某种方式来显示用户界面等待输入并显示消息。

有人可以帮我解决这个问题吗？谢谢你！

Answer 1

我只需用我自己的事件循环替换 $ui->mainloop() ，我自己的东西也会更新。

作为参考， $ui->mainloop() 的实现如下：

sub mainloop {
    my ($self) = @_;

    # Draw the initial screen.
    $self->focus(undef, 1); # 1 = forced focus
    $self->draw;
    doupdate();

    # Inifinite event loop.
    while (1) { $self->do_one_event }
}

所以我只需将您自己的 tick() 函数添加到 while 循环中。