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

[Robert May]

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