Gecko [ nbspublicschool.com ]

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 : mouse_focustest

#!/usr/bin/perl -w
use strict;

use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;

my $cui = new Curses::UI (-clear_on_exit => 1,
			  -mouse_support => 1);

my $sw = $cui->add(
    undef, 'Window',
    -y => -1,
    -height => 3,
    -width => -1,
    -border => 1,
);
my $status = $sw->add(
    undef, 'Label',
    -width => -1,
    -padright => 8,
    -text => 'Status: program started... Use the mouse to shift focus'
);
$sw->add(
    undef, 'Buttonbox',
    -buttons => [{
        -label=>'< Quit >',
	-onpress => sub {exit(0)},
    }],
    -width => 8,
    -buttonalignment => 'right',
    -x => -1,
);

for my $nr (1..5)
{
    $cui->add(
	undef, 'Window',
	-x => 12*$nr - 9,
	-y => 2*$nr - 1,
	-width => 20, 
	-height => 10,
	-border => 1,
	-title => "window $nr",
	-onfocus => sub{
	    $status->text("Status: Focus to window $nr"); 
	},
    );
}

$cui->set_binding(sub{exit}, "\cC", "\cQ");

if ($Curses::UI::ncurses_mouse) {
    $status->text($status->text() . " (mouse support enabled)"); 
} else {
    $status->text($status->text() . " (mouse support disabled)"); 
}

$cui->mainloop;

${this.title}

Code Editor : mouse_focustest