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

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;