Server IP : 162.240.98.243 / Your IP : 18.117.99.152 Web Server : Apache System : Linux server.bti.yaw.mybluehostin.me 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64 User : btiyawmy ( 1003) PHP Version : 7.2.34 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Curses-1.28/ |
Upload File : |
#! /usr/bin/perl ## ## This code contributed by Yury Pshenichny <yura@zp.ua> ## based on demo.panel by Chris Leach <leachcj@bp.com> ## and pretty much redone by me use ExtUtils::testlib; use Curses; eval { new_menu() }; if ($@ =~ /not defined by your vendor/) { print STDERR "Curses was not compiled with menu function.\n"; exit 1; } my $ilist = [ [ "AAA" => "A descr" ], [ "BBB" => "B descr" ], [ "CCC" => "C descr" ], [ "DDD" => "D descr" ], [ "EEE" => "E descr" ], [ "FFF" => "F descr" ], [ "GGG" => "G descr" ], [ "HHH" => "H descr (This item has a very long descr) "] ]; initscr; noecho; my @il; my @pack; foreach my $I (@$ilist) { my $item = new_item($I->[0], $I->[1]); if ($item eq '') { fatal("new_item($I->[0], $I->[1]) failed: $item") } push @il, $item; push @pack, ${$item}; } push @pack, 0; my $menu = new_menu(pack "L!*", @pack); if ($menu eq '') { fatal("new_menu failed") } my $rows; my $cols; set_menu_mark($menu, '->'); set_menu_format($menu, 3, 1); scale_menu($menu, $rows, $cols); my $mwin = newwin($rows + 2, $cols + 2, 8, 15); my $msub = derwin($mwin, $rows, $cols, 1, 1); set_menu_win($menu, $mwin); set_menu_sub($menu, $msub); box($mwin, 0, 0); keypad($mwin, 1); post_menu($menu); addstr(0, 0, "Use KEY_UP/KEY_DOWN/KEY_PPAGE/KEY_NPAGE to navigate"); addstr(1, 0, "Press 'ENTER' to select item, or 'F1' to exit"); refresh(); my $ci; while(1) { my $ch = getch($mwin); if ($ch == KEY_UP) { menu_driver($menu, REQ_UP_ITEM); } elsif ($ch == KEY_DOWN) { menu_driver($menu, REQ_DOWN_ITEM); } elsif ($ch == KEY_PPAGE) { menu_driver($menu, REQ_SCR_UPAGE); } elsif ($ch == KEY_NPAGE) { menu_driver($menu, REQ_SCR_DPAGE); } elsif ($ch == KEY_F(1)) { last; } elsif ($ch eq "\r" or $ch eq "\n") { $ci = current_item($menu); last; } elsif ($ch =~ /^\S$/) { menu_driver($menu, $ch); } else { beep(); } } if ($ci) { addstr(0, 0, "You selected " . item_name($ci) . "\n"); } else { addstr(0, 0, "You didn't select anything\n"); } clrtoeol(1,0); refresh(); sleep 2; unpost_menu($menu); delwin($mwin); free_menu($menu); map { free_item($_) } @il; endwin(); exit 0; sub fatal { clrtobot(0, 0); addstr(0, 0, "@_\n"); refresh(); sleep 2; exit 1; }