view release on metacpan or  search on metacpan

scripts/FINANCE_QUANT_TRAY  view on Meta::CPAN

sub click {

   
   return 1;
}


#right click menu
sub menu {
   my $menu = Gtk2::Menu->new();

   #VCI
   my $menu_VCI = Gtk2::ImageMenuItem->new_with_label("CLI UI");
   $menu_VCI->set_image(Gtk2::Image->new_from_stock('gtk-refresh',
'menu'));

      $menu_VCI->signal_connect(activate => sub {
print system ('financequant &');
   });


   $menu->add($menu_VCI);

   #configure
   my $menu_pref = Gtk2::ImageMenuItem->new_with_label("XML DUMP");
      $menu_pref->signal_connect(activate => sub {
my $response=0;
 my $error =0;
print system ('FINANCE_QUANT_XML_RESULTS');

print $response;
   });
   $menu_pref->set_image(Gtk2::Image->new_from_stock('gtk-preferences','menu'));
   $menu->add($menu_pref);



   #configure
   my $menu_http = Gtk2::ImageMenuItem->new_with_label("HTTP REPORTS");
      $menu_http->signal_connect(activate => sub {
            system("FINANCE_QUANT_HTTP_SERVER &");
   });
   $menu_http->set_image(Gtk2::Image->new_from_stock('gtk-media-play','menu'));
   $menu->add($menu_http);



   #separator
   my $menu_sep = Gtk2::SeparatorMenuItem->new();
   $menu->add($menu_sep);

   #Quit
   my $menu_quit = Gtk2::ImageMenuItem->new_with_label("Quit");
   $menu_quit->signal_connect(activate => sub {Gtk2->main_quit});
   $menu_quit->set_image(Gtk2::Image->new_from_stock('gtk-quit', 'menu'));
   $menu->add($menu_quit);


   
   return $menu;
}



#Program interfaces
sub interface {
   my $interface = Gtk2::Menu->new;

   #menu items for VCI
   #Progress bar for number of downloads; just a countng bar

   #Add the correct controls to menu
   my $menu_vci_connect = Gtk2::ImageMenuItem->new_with_label("Connect");
   $interface->add($menu_vci_connect);
   my $menu_vci_stop = Gtk2::ImageMenuItem->new_with_label("Stop");
   $interface->add($menu_vci_stop);

   $interface->show_all;
    
   

}

scripts/financequant  view on Meta::CPAN

    nl 

    pause 
}


# Purpose  - Display a menu on screen
function show_menu(){
    date
    echo "---------------------------"
    echo "   Main Menu"
    echo "---------------------------"
    echo "0. exit"
    echo "1. Operating system info"
    echo "2. Hostname and dns info"
    echo "3. Network info"
    echo "4. Who is online"
    echo "5. Last logged in users"
    echo "6. Free and used memory info"
    echo "7. Create Db"
    echo "8. Scann IBES for strong buy"