Perl 刷新小部件

如果我有一个这样创建的窗口

my $cui = new Curses::UI( -color_support => 1 );
my $win1 = $cui->add(
                     'win1', 'Window',
                     -y    => 0,
             );

$win1->intellidraw();
...
$statusBar->intellidraw();

如何强制对其小部件进行更改

我试过了

$cui->refresh();

及

甚至

但它们都会导致致命的错误

argument 0 to Curses function 'refresh' is not a Curses window at ....

多亏了。小部件和窗口应该按如下方式绘制

my $cui = new Curses::UI( -color_support => 1 );
my $win1 = $cui->add(
                     'win1', 'Window',
                     -y    => 0,
             );

$win1->intellidraw();
...
$statusBar->intellidraw();

多亏了。小部件和窗口应该按如下方式绘制

my $cui = new Curses::UI( -color_support => 1 );
my $win1 = $cui->add(
                     'win1', 'Window',
                     -y    => 0,
             );

$win1->intellidraw();
...
$statusBar->intellidraw();

---

Curses:：UI

是在Curses之上基于事件的抽象。您需要将组件连接在一起，绑定键盘快捷键等，然后启动主循环。你看过报纸了吗？看过。我从EventHandlerSalright调用refresh（）。我想这就是你想要的。但不确定，我已经很久没有使用诅咒：：UI了。你是我的救星。谢谢<代码>诅咒：：UI是诅咒之上基于事件的抽象。您需要将组件连接在一起，绑定键盘快捷键等，然后启动主循环。你看过报纸了吗？看过。我从EventHandlerSalright调用refresh（）。我想这就是你想要的。但不确定，我已经很久没有使用诅咒：：UI了。你是我的救星。谢谢