示例curses/ncurses Perl小部件？

Question

我试图围绕Curses/NCurses(仍然不明白区别)和perl,更确切地说是Curses::UI模块,更确切地说是Curses :: UI :: Widget包 - 请参阅http://search.cpan.org /~mdxi/Curses-UI/lib/Curses/UI/Widget.pm.

为了理解它,我希望看到一些超级简单的"Hello World" Curses::UI::Widget从那里开始.

在Curses::UI::Widget文档中有一个简单的例子,但是这不起作用,因为它调用$this->generic_focus它并且它是未定义的,我不知道它应该实际做什么.

是否有一些编写Curses::UI小部件的实际教程,或者至少有一些工作示例？

编辑:为了使自己清楚:文档中的基本文本编辑器是我的工作,但现在我想编写自己的小部件,我不确定要实现哪些功能以及如何实现.

主要是,我不确定方法应focus该做什么以及是否必须实现该方法generic_focus.

编辑2:

例如,在上面的链接文档中,函数generic_focus被编写为好像是在其中实现的Curses::UI::Widget,但它实际上并没有在任何地方实现.到底发生了什么？

Answer 1

借用本教程的示例

#!/usr/bin/perl -w

use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1 );
my @menu = (
    { -label => 'File',
        -submenu => [
            { -label => 'Exit      ^Q', -value => \&exit_dialog  }
        ]
    },
);
sub exit_dialog()
{
    my $return = $cui->dialog(
        -message   => "Do you really want to quit?",
        -title     => "Are you sure???",
        -buttons   => ['yes', 'no'],

    );

    exit(0) if $return;
}
my $menu = $cui->add(
    'menu','Menubar',
    -menu => \@menu,
    -fg  => "blue",
);
my $win1 = $cui->add(
    'win1', 'Window',
    -border => 1,
    -y    => 1,
    -bfg  => 'red',
);
my $texteditor = $win1->add("text", "TextEditor",
    -text => "Here is some text\n"
    . "And some more");
$cui->set_binding(sub {$menu->focus()}, "\cX");
$cui->set_binding( \&exit_dialog , "\cQ");
$texteditor->focus();
$cui->mainloop();

curses和ncurses之间的区别在于ncurses是curses的开源克隆.请参阅/sf/answers/106243791/