[Perl-win32-gui-cvscommit] Win32-GUI/samples NotifyIcon.pl,1.1,1.2

[Robert May]

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

Modified Files:
        NotifyIcon.pl 
Log Message:
Fix build/test on Perl 5.6.1

Index: NotifyIcon.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/NotifyIcon.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NotifyIcon.pl       11 Jan 2006 21:26:16 -0000      1.1
--- NotifyIcon.pl       14 Apr 2006 01:52:28 -0000      1.2
***************
*** 18,22 ****
  use warnings;
  
! use Win32;
  use Win32::GUI 1.03_02, qw(MB_OK MB_ICONHAND ES_WANTRETURN WS_CLIPCHILDREN 
WS_EX_TOPMOST);
  use Win32::GUI::BitmapInline();
--- 18,22 ----
  use warnings;
  
! use Win32();
  use Win32::GUI 1.03_02, qw(MB_OK MB_ICONHAND ES_WANTRETURN WS_CLIPCHILDREN 
WS_EX_TOPMOST);
  use Win32::GUI::BitmapInline();
***************
*** 52,56 ****
        icon        => undef,
        ni          => undef,
!       v5          => ($Win32::GUI::NotifyIcon::SHELLDLL_VERSION >= 5),
        events      => [],
        max_events  => 100,
--- 52,56 ----
        icon        => undef,
        ni          => undef,
!       'v5'        => ($Win32::GUI::NotifyIcon::SHELLDLL_VERSION >= 5),
        events      => [],
        max_events  => 100,
***************
*** 129,133 ****
  
  $mw->AddLabel(
!       -text  => "shell32.dll\t\t" . Win32::GetFileVersion("shell32"),
        -left  => $col1_ctrl_left,
        -top   => $row1_gb_top + (4 * $padding),
--- 129,133 ----
  
  $mw->AddLabel(
!       -text  => "shell32.dll\t\t" . Win32::GUI::GetDllVersion("shell32"),
        -left  => $col1_ctrl_left,
        -top   => $row1_gb_top + (4 * $padding),
***************
*** 401,404 ****
--- 401,405 ----
  Win32::GUI::Dialog();
  $mw->Hide();
+ undef $mw;
  exit(0);
  
***************
*** 574,586 ****
        }
  
!       {
!               my $text='';
!               for my $e (@{$cfg{events}}) {
!                       $text .= "$e\r\n";
!               }
! 
!               $win->ETF->SetSel(0,-1);
!               $win->ETF->ReplaceSel($text);
!       }
  
        return;
--- 575,580 ----
        }
  
!       $win->ETF->SetSel(0,-1);
!       $win->ETF->ReplaceSel(join("\r\n", @{$cfg{events}}));
  
        return;