perl-win32-gui-cvscommit

[Robert M. <rob...@us...>]

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