view release on metacpan or  search on metacpan

bin/utv_usage_tray.pl  view on Meta::CPAN

my $utv;
my $usage;


my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'UTV Usage',-width => 100, -height => 100);
my $icon = new Win32::GUI::Icon('GUIPERL.ICO');
my $ni = $main->AddNotifyIcon(-name => "NI", -id => 1,-icon => $icon, -tip => "retrieving data" );

my $popupMenu = Win32::GUI::Menu->new("Options" => "Options",
                                       ">Quit" => {-name => "Quit" , -onClick => sub { return -1; } } );

updateUsageText_Timer();
$main->AddTimer( "updateUsageText" , 60000 );


Win32::GUI::Dialog();
Win32::GUI::Show($DOS) if $hideConsole;


sub NI_RightClick
{	
   my ($x, $y) = Win32::GUI::GetCursorPos;
   Win32::GUI::TrackPopupMenu($main->{-handle}, $popupMenu->{Options}, $x, $y);
}


sub getUsageText
{
	unless($utv)
	{
		$utv = Business::UTV->login( $id , $password , { "name" => $name } );
	}