Update of /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21242/docs/GUI/Tutorial
Modified Files:
Part1.pod Part2.pod Part4.pod Part5.pod
Log Message:
Doc updates and add Win32::GUI::ReleaseNotes
Index: Part2.pod
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part2.pod,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Part2.pod 26 Jun 2005 16:41:00 -0000 1.1
--- Part2.pod 16 Jul 2006 11:09:33 -0000 1.2
***************
*** 47,51 ****
So, our basic application is
! use Win32::GUI;
$main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl',
--- 47,51 ----
So, our basic application is
! use Win32::GUI();
$main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl',
Index: Part1.pod
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part1.pod,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Part1.pod 5 Oct 2005 22:20:49 -0000 1.2
--- Part1.pod 16 Jul 2006 11:09:33 -0000 1.3
***************
*** 14,18 ****
To start with, we load Win32::GUI.
! use Win32::GUI;
We are working in a windowing environment, so we need a window. Main windows
--- 14,18 ----
To start with, we load Win32::GUI.
! use Win32::GUI();
We are working in a windowing environment, so we need a window. Main windows
***************
*** 101,105 ****
So, let's put it all together.
! use Win32::GUI;
$main = Win32::GUI::Window->new(
-name => 'Main',
--- 101,105 ----
So, let's put it all together.
! use Win32::GUI();
$main = Win32::GUI::Window->new(
-name => 'Main',
***************
*** 180,184 ****
options can be set using variables, not just constant values).
! use Win32::GUI;
$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
--- 180,184 ----
options can be set using variables, not just constant values).
! use Win32::GUI();
$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
***************
*** 351,355 ****
glory.
! use Win32::GUI;
$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
--- 351,355 ----
glory.
! use Win32::GUI();
$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";
Index: Part4.pod
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part4.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Part4.pod 11 Jan 2006 21:39:41 -0000 1.4
--- Part4.pod 16 Jul 2006 11:09:33 -0000 1.5
***************
*** 98,105 ****
Many utility programs these days add an icon to the Windows "System Tray" -
the small area on the taskbar near the clock. Once again, this is easy with
! Win32::GUI - you simply use the AddNotifyIcon() method. A notify icon has four
key properties - a name (which is used for event handling, just like for any
! other Win32::GUI object), an ID (which is just a unique number, used
! internally, you specify it and then ignore it), a tooltip (a string which is
displayed when you hold the mouse pointer over the icon) and an icon (a
Win32::GUI::Icon object - you create this using the new() constructor, passing
--- 98,104 ----
Many utility programs these days add an icon to the Windows "System Tray" -
the small area on the taskbar near the clock. Once again, this is easy with
! Win32::GUI - you simply use the AddNotifyIcon() method. A notify icon has
three
key properties - a name (which is used for event handling, just like for any
! other Win32::GUI object), a tooltip (a string which is
displayed when you hold the mouse pointer over the icon) and an icon (a
Win32::GUI::Icon object - you create this using the new() constructor, passing
***************
*** 114,142 ****
The simplest way to demonstrate this is to show some working code...
! use Win32::GUI;
! $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl',
! -width => 200, -height => 200);
! $icon = new Win32::GUI::Icon('GUIPERL.ICO');
! $ni = $main->AddNotifyIcon(-name => "NI", -id => 1,
! -icon => $icon, -tip => "Hello");
Win32::GUI::Dialog();
sub Main_Terminate {
! -1;
}
sub Main_Minimize {
! $main->Disable();
! $main->Hide();
! 1;
}
sub NI_Click {
! $main->Enable();
! $main->Show();
! 1;
}
--- 113,148 ----
The simplest way to demonstrate this is to show some working code...
! use Win32::GUI();
! my $main = Win32::GUI::Window->new(
! -name => 'Main',
! -text => 'Perl',
! -width => 200,
! -height => 200
! );
! my $icon = new Win32::GUI::Icon('GUIPERL.ICO');
! my $ni = $main->AddNotifyIcon(
! -name => "NI",
! -icon => $icon,
! -tip => "Hello"
! );
Win32::GUI::Dialog();
sub Main_Terminate {
! return -1;
}
sub Main_Minimize {
! $main->Disable();
! $main->Hide();
! return 1;
}
sub NI_Click {
! $main->Enable();
! $main->Show();
! return 1;
}
Index: Part5.pod
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part5.pod,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Part5.pod 5 Oct 2005 22:20:49 -0000 1.2
--- Part5.pod 16 Jul 2006 11:09:33 -0000 1.3
***************
*** 46,50 ****
several independent windows:
! use Win32::GUI;
$W1 = new Win32::GUI::Window(
--- 46,50 ----
several independent windows:
! use Win32::GUI();
$W1 = new Win32::GUI::Window(
***************
*** 93,97 ****
user clicks the button on the first window:
! use Win32::GUI;
$W1 = new Win32::GUI::Window(
--- 93,97 ----
user clicks the button on the first window:
! use Win32::GUI();
$W1 = new Win32::GUI::Window(
***************
*** 183,187 ****
not cause any of the windows to be destroyed. Here's the full code:
! use Win32::GUI;
my $W1 = Win32::GUI::Window->new(
--- 183,187 ----
not cause any of the windows to be destroyed. Here's the full code:
! use Win32::GUI();
my $W1 = Win32::GUI::Window->new(
