byp4a55 professor6T9

Linux vps-223903.laweb30.com.mx 3.10.0-1160.95.1.el7.x86_64 #1 SMP Mon Jul 24 13:59:37 UTC 2023 x86_64
Apache
162.214.112.52

File Name : 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;

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2020-06-17 06:11:22
..	dir	-	root/root	0755	2020-06-17 06:11:22
color_editor	text/x-perl	6.2 KB	root/root	0644	2011-09-01 02:07:49
demo-add	text/x-perl	1.99 KB	root/root	0644	2011-09-01 02:07:49
demo-buttonbox	text/x-perl	875 B	root/root	0644	2011-09-01 02:07:49
demo-color	text/x-perl	886 B	root/root	0644	2011-09-01 02:07:49
demo-cuml	text/x-perl	857 B	root/root	0644	2011-09-01 02:07:49
demo-language	text/x-perl	951 B	root/root	0644	2011-09-01 02:07:49
demo-notebook	text/x-perl	2.55 KB	root/root	0644	2011-09-01 02:07:49
demo-widgets	text/x-perl	25.91 KB	root/root	0644	2011-09-01 02:07:49
editor	text/x-perl	5.06 KB	root/root	0644	2011-09-01 02:07:49
hello_world	text/x-perl	177 B	root/root	0644	2011-09-01 02:07:49
mouse_focustest	text/x-perl	1.09 KB	root/root	0644	2011-09-01 02:07:49
pop3_reader	text/x-perl	6.85 KB	root/root	0644	2011-09-01 02:07:49
tutorial	text/x-perl	1.16 KB	root/root	0644	2011-09-01 02:07:49

Team Anon Force

https://t.me/Professor6T9x