Gestionnaire de fichiers - Editer - /usr/share/doc/perl-Curses-UI-0.9609/examples/mouse_focustest
Arrière
#!/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;
| ver. 1.4 |
Github
|
.
| PHP 8.0.30 | Génération de la page: 0 |
proxy
|
phpinfo
|
Réglages