[Perl-win32-gui-cvscommit] Win32-GUI/samples Tutorial_Part1_hello1.pl, 1.1, 1.2 Tutorial_Part1_hello2.pl, 1.1, 1.2 Tutorial_Part1_hello3.pl, 1.1, 1.2 Tutorial_Part1_hello4.pl, 1.1, 1.2 Tutorial_Part1_hello5.pl, 1.1, 1.2 Tutorial_Part1_hello6.pl, 1.1, 1.2 Tutorial_Part2_framework.pl, 1.1, 1.2 Tutorial_Part3_DialogBox.pl, 1.1, 1.2 Tutorial_Part4_NotifyIcon.pl, 1.1, 1.2 Tutorial_Part4_StatusBar.pl, 1.1, 1.2 Tutorial_Part4_timer.pl, 1.1, 1.2 Tutorial_Part5_modalWindow.pl, 1.1, 1.2 Tutorial_Part5_popupWindow1.pl, 1.1, 1.2 Tutorial_Part5_popupWindow2.pl, 1.1, 1.2 Tutorial_Part5_twoWindows.pl, 1.1, 1.2 Tutorial_Part9_noDosWindow.pl, 1.1, 1.2

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

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

Modified Files:
	Tutorial_Part1_hello1.pl Tutorial_Part1_hello2.pl 
	Tutorial_Part1_hello3.pl Tutorial_Part1_hello4.pl 
	Tutorial_Part1_hello5.pl Tutorial_Part1_hello6.pl 
	Tutorial_Part2_framework.pl Tutorial_Part3_DialogBox.pl 
	Tutorial_Part4_NotifyIcon.pl Tutorial_Part4_StatusBar.pl 
	Tutorial_Part4_timer.pl Tutorial_Part5_modalWindow.pl 
	Tutorial_Part5_popupWindow1.pl Tutorial_Part5_popupWindow2.pl 
	Tutorial_Part5_twoWindows.pl Tutorial_Part9_noDosWindow.pl 
Log Message:
Add ClassData() method and fix memory leaks

Index: Tutorial_Part4_timer.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part4_timer.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part4_timer.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part4_timer.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $main = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $main = Win32::GUI::Window->new(

Index: Tutorial_Part5_popupWindow1.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part5_popupWindow1.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part5_popupWindow1.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part5_popupWindow1.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $W1 = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $W1 = Win32::GUI::Window->new(

Index: Tutorial_Part3_DialogBox.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part3_DialogBox.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part3_DialogBox.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part3_DialogBox.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $main = Win32::GUI::DialogBox->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $main = Win32::GUI::DialogBox->new(

Index: Tutorial_Part1_hello6.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello6.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello6.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello6.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  # Get text to diaply from the command line
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  # Get text to diaply from the command line

Index: Tutorial_Part4_NotifyIcon.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part4_NotifyIcon.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part4_NotifyIcon.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part4_NotifyIcon.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $main = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $main = Win32::GUI::Window->new(

Index: Tutorial_Part1_hello4.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello4.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello4.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello4.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

Index: Tutorial_Part2_framework.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part2_framework.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part2_framework.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part2_framework.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,13 ****
  use warnings;
  
! use Win32::GUI;
  
  my $main = Win32::GUI::Window->new(
! 	-name => 'Main',
! 	-text => 'Perl',
! 	-width => 200,
!        	-height => 200
  );
  
--- 3,13 ----
  use warnings;
  
! use Win32::GUI();
  
  my $main = Win32::GUI::Window->new(
!     -name => 'Main',
!     -text => 'Perl',
!     -width => 200,
!     -height => 200
  );
  
***************
*** 17,20 ****
  
  sub Main_Terminate {
! 	return -1;
  }
--- 17,20 ----
  
  sub Main_Terminate {
!     return -1;
  }

Index: Tutorial_Part1_hello5.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello5.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello5.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello5.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

Index: Tutorial_Part4_StatusBar.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part4_StatusBar.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part4_StatusBar.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part4_StatusBar.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $main = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $main = Win32::GUI::Window->new(

Index: Tutorial_Part5_modalWindow.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part5_modalWindow.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part5_modalWindow.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part5_modalWindow.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $W1 = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $W1 = Win32::GUI::Window->new(

Index: Tutorial_Part1_hello3.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello3.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello3.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello3.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

Index: Tutorial_Part5_popupWindow2.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part5_popupWindow2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part5_popupWindow2.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part5_popupWindow2.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $W1 = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $W1 = Win32::GUI::Window->new(

Index: Tutorial_Part5_twoWindows.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part5_twoWindows.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part5_twoWindows.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part5_twoWindows.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $W1 = Win32::GUI::Window->new(
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $W1 = Win32::GUI::Window->new(

Index: Tutorial_Part1_hello1.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello1.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello1.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello1.pl	23 Jun 2006 18:35:33 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  # Create a window, saving it in variable $main
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  # Create a window, saving it in variable $main

Index: Tutorial_Part1_hello2.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part1_hello2.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part1_hello2.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part1_hello2.pl	23 Jun 2006 18:35:33 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  # Get the text to put in the label from the command line,
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  # Get the text to put in the label from the command line,

Index: Tutorial_Part9_noDosWindow.pl
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Tutorial_Part9_noDosWindow.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tutorial_Part9_noDosWindow.pl	5 Oct 2005 22:20:49 -0000	1.1
--- Tutorial_Part9_noDosWindow.pl	23 Jun 2006 18:35:34 -0000	1.2
***************
*** 3,7 ****
  use warnings;
  
! use Win32::GUI;
  
  my $DOS = Win32::GUI::GetPerlWindow();
--- 3,7 ----
  use warnings;
  
! use Win32::GUI();
  
  my $DOS = Win32::GUI::GetPerlWindow();