Thread: [Perl-win32-gui-cvscommit] Win32-GUI/samples Tutorial_Part4_NotifyIcon.pl, 1.2, 1.3

Update of /cvsroot/perl-win32-gui/Win32-GUI/samples
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23105/samples

Modified Files:
	Tutorial_Part4_NotifyIcon.pl 
Log Message:
Remove unnecessary -id option and bring in line with tutorial docs

Index: Tutorial_Part4_NotifyIcon.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part4_NotifyIcon.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Tutorial_Part4_NotifyIcon.pl	23 Jun 2006 18:35:34 -0000	1.2
--- Tutorial_Part4_NotifyIcon.pl	26 Jun 2006 23:21:58 -0000	1.3
***************
*** 6,13 ****
  
  my $main = Win32::GUI::Window->new(
! 	-name => 'Main',
! 	-text => 'Perl',
! 	-width => 200,
!        	-height => 200
  );
  
--- 6,13 ----
  
  my $main = Win32::GUI::Window->new(
!     -name => 'Main',
!     -text => 'Perl',
!     -width => 200,
!     -height => 200,
  );
  
***************
*** 15,22 ****
  
  my $ni = $main->AddNotifyIcon(
! 	-name => "NI",
! 	-id => 1,
! 	-icon => $icon,
!        	-tip => "Hello"
  );
  
--- 15,21 ----
  
  my $ni = $main->AddNotifyIcon(
!     -name => "NI",
!     -icon => $icon,
!     -tip => "Hello",
  );
  
***************
*** 26,41 ****
  
  sub Main_Terminate {
! 	return -1;
  }
  
  sub Main_Minimize {
! 	$main->Disable();
! 	$main->Hide();
! 	return 1;
  }
  
  sub NI_Click {
! 	$main->Enable();
! 	$main->Show();
! 	return 1;
  }
--- 25,40 ----
  
  sub Main_Terminate {
!     return -1;
  }
  
  sub Main_Minimize {
!     $main->Disable();
!     $main->Hide();
!     return 1;
  }
  
  sub NI_Click {
!     $main->Enable();
!     $main->Show();
!     return 1;
  }