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(