[Perl-win32-gui-cvscommit] Win32-GUI/samples NotifyIcon.pl, 1.3, 1.4

[Robert May]

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

Modified Files:
        NotifyIcon.pl 
Log Message:
Fix help windows for win32-gui-demos and NotifyIcon.pl sample

Index: NotifyIcon.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/NotifyIcon.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NotifyIcon.pl       16 May 2006 18:57:26 -0000      1.3
--- NotifyIcon.pl       27 Jun 2006 18:32:14 -0000      1.4
***************
*** 25,29 ****
  sub WM_NOTIFYICON()   {32768 + 2};   # WM_APP + 2
  
! my $VERSION = "1.00";
  
  my %event_lookup = (
--- 25,29 ----
  sub WM_NOTIFYICON()   {32768 + 2};   # WM_APP + 2
  
! my $VERSION = "1.01";
  
  my %event_lookup = (
***************
*** 686,690 ****
                -pushstyle   => WS_CLIPCHILDREN,
                -onResize    => sub { $_[0]->TEXT->Resize($_[0]->ScaleWidth(), 
$_[0]->ScaleHeight); 1; },
!               -onTerminate => sub { undef $win; 0; },  # Closure prevents 
$win going out of scope
                                                         # at end of OnHelp().  
Ref count to $win forced
                                                         # to zero on Terminate 
event.
--- 686,690 ----
                -pushstyle   => WS_CLIPCHILDREN,
                -onResize    => sub { $_[0]->TEXT->Resize($_[0]->ScaleWidth(), 
$_[0]->ScaleHeight); 1; },
!               -onTerminate => sub { undef $win; 1; },  # Closure prevents 
$win going out of scope
                                                         # at end of OnHelp().  
Ref count to $win forced
                                                         # to zero on Terminate 
event.
***************
*** 698,702 ****
                -visible => 0,
                -cancel  => 1,
!               -onClick => sub { undef $win; 0; },     # See comments above
        );
  
--- 698,702 ----
                -visible => 0,
                -cancel  => 1,
!               -onClick => sub { undef $win; 1; },     # See comments above
        );