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

[Robert May]

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;
  }