Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-Curses-UI/examples

Name	Size	Perms	Modified	Actions
[ .. / .. ]
color_editor	6.2 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-add	1.99 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-buttonbox	875 B	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-color	886 B	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-cuml	857 B	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-language	951 B	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-notebook	2.55 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
demo-widgets	25.91 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
editor	5.06 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
hello_world	177 B	-rw-r--r--	2011-09-01 02:07:49	Edit Del
mouse_focustest	1.09 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
pop3_reader	6.85 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del
tutorial	1.16 KB	-rw-r--r--	2011-09-01 02:07:49	Edit Del

Editing: tutorial (1.16 KB)

#!/usr/bin/perl -w
# Tutorial example
# 2003 (c) by Marcus Thiesen (marcus@cpan.org)
# This file is a part of Curses::UI and might be distributed 
# under the same terms as perl itself.

# Use the libraries from the distribution, instead of 
# system wide libraries.
use FindBin;
use lib "$FindBin::RealBin/../lib";

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

my @menu = (
  { -label => 'File', 
    -submenu => [
      { -label => 'Exit      ^Q', -value => \&exit_dialog  }
    ]
  },
);
 
my $menu = $cui->add(
	'menu','Menubar', 
	-menu => \@menu,
	-fg  => "blue",
);

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


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 $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();