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

2006-06-27 Thread 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 -  1.1
--- win32-gui-demos.pl  27 Jun 2006 18:32:14 -  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
);

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

2006-06-27 Thread 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 -  1.3
--- NotifyIcon.pl   27 Jun 2006 18:32:14 -  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
);