add result explorer

scripts/TUI.pm

@@ -13,6 +13,7 @@ sub init_cui {
     if ( !defined $_cui ) {
         $_cui = new Curses::UI(
             -color_support => 1,
+            -mouse_support => 1,
 
             # -clear_on_exit => 1,
         );
@@ -34,7 +35,6 @@ sub select_from_list {
     my @selection;
 
     my $cui = init_cui();
-
     my $win = $cui->add( 'root', 'Window', );
 
     my $listbox = $win->add(
@@ -53,21 +53,21 @@ sub select_from_list {
     $win->add(
         'info', 'Label',
         -y    => -1,
-        -text => "Space/Enter = toggle, c = confirm, q = quit",
+        -text => "Space/Enter = toggle, C = confirm, Q = quit",
     );
 
     $listbox->clear_binding('loose-focus');
 
     $listbox->set_binding(
         sub {
-            my @picked = $listbox->get;
+            my @picked = $listbox->get();
             if ( $multiselect && grep { $_ eq '__ALL__' } @picked ) {
                 @selection = @items;
             }
             else {
                 @selection = @picked;
             }
-            $cui->mainloopExit;
+            $cui->mainloopExit();
         },
         'c',
     );
@@ -75,15 +75,15 @@ sub select_from_list {
     $listbox->set_binding(
         sub {
             @selection = ();
-            $cui->mainloopExit;
+            $cui->mainloopExit();
         },
         'q',
     );
 
-    $listbox->focus;
-    $cui->mainloop;
+    $listbox->focus();
+    $cui->mainloop();
 
-    $cui->leave_curses;
+    $cui->leave_curses();
     $cui->delete('root');
 
     return @selection;