Gecko [ www.casapremiada.novaexata.com.br ]

Name	Size	Permission
color_editor	6.2 KB	-rw-r--r--
demo-add	1.99 KB	-rw-r--r--
demo-buttonbox	875 B	-rw-r--r--
demo-color	886 B	-rw-r--r--
demo-cuml	857 B	-rw-r--r--
demo-language	951 B	-rw-r--r--
demo-notebook	2.55 KB	-rw-r--r--
demo-widgets	25.91 KB	-rw-r--r--
editor	5.06 KB	-rw-r--r--
hello_world	177 B	-rw-r--r--
mouse_focustest	1.09 KB	-rw-r--r--
pop3_reader	6.85 KB	-rw-r--r--
tutorial	1.16 KB	-rw-r--r--

Code Editor : tutorial

#!/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();

${this.title}

Code Editor : tutorial