[Perl-win32-gui-cvscommit] Win32-GUI/scripts win32-gui-demos.pl, 1.1, 1.2

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

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

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

Index: win32-gui-demos.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/scripts/win32-gui-demos.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** win32-gui-demos.pl	26 Jun 2006 18:28:35 -0000	1.1
--- win32-gui-demos.pl	27 Jun 2006 18:32:14 -0000	1.2
***************
*** 9,13 ****
  
  # TODO:
- # help window
  # mouse feedback on launching events
  # hide console windows on launch
--- 9,12 ----
***************
*** 15,19 ****
  #   (and progress bar?)
  
! our $VERSION = '0.01';
  
  my $progname  = "Win32::GUI Demo Launcher";
--- 14,19 ----
  #   (and progress bar?)
  
! our $VERSION = '0.02';
! $VERSION = eval $VERSION;
  
  my $progname  = "Win32::GUI Demo Launcher";
***************
*** 412,420 ****
  ######################################################################
  sub showHelp {
-     my $parent = shift;
  	my $win;
  
  	$win = Win32::GUI::Window->new(
-         -parent      => $parent,
  		-title       => "$progname Help",
  		-left        => CW_USEDEFAULT,
--- 412,418 ----
***************
*** 422,426 ****
  		-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 showHelp().  Ref count to $win forced
                                                   # to zero on Terminate event.
--- 420,424 ----
  		-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 showHelp().  Ref count to $win forced
                                                   # to zero on Terminate event.
***************
*** 434,438 ****
  		-visible => 0,
  		-cancel  => 1,
! 		-onClick => sub { undef $win; 0; },     # See comments above
  	);
  
--- 432,436 ----
  		-visible => 0,
  		-cancel  => 1,
! 		-onClick => sub { undef $win; 1; },     # See comments above
  	);