#!/usr/bin/env perl

use strict;
use Curses::UI;

my $cui = new Curses::UI( -color_support => 1 );

my @menus = (
    { 
        -label => 'File',
        -submenu => [
            { -label => 'Exit', -value => \&exit_dialog }
        ]
    }
);

sub exit_dialog {
    my $ret = $cui->dialog(
        -message => "Quit?",
        -title => "Quit",
        -buttons => [ 'yes', 'no' ]
    );
    exit(0) if $ret;
}

my $menu = $cui->add(
    'menu', 'Menubar',
    -menu => \@menus,
);

my $win1 = $cui->add(
    'win1', 'Window',
    -border => 0,
    -y => 1
);

my $texteditor = $win1->add(
    'text', 'TextEditor',
    -text => "Line1\n"."Line2\n"
);

$cui->set_binding(sub { $menu->focus() }, "\cx");
$cui->set_binding( \&exit_dialog, "\cq");

$texteditor->focus();
$cui->mainloop();