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