From: Robert M. <rob...@us...> - 2006-05-16 18:57:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/samples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32576/samples Modified Files: Animation.pl BitmapScroll.pl DateTime.pl Draw.pl EventModel.pl GetOpenFileName.pl MDI.pl MonthCal.pl Notepad.pl NotifyIcon.pl Region.pl SplashScreen.pl listview_drag_drop.pl Log Message: More Win32::GUI::Constants support Index: MDI.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/MDI.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** MDI.pl 30 Apr 2004 18:05:57 -0000 1.2 --- MDI.pl 16 May 2006 18:57:26 -0000 1.3 *************** *** 1,8 **** ! #! perl # # MDI sample # - use Win32::GUI; use strict; # My child counter for unique name. --- 1,9 ---- ! #! perl -w # # MDI sample # use strict; + use warnings; + use Win32::GUI(); # My child counter for unique name. *************** *** 80,82 **** # TextField take all client aera $self->{Edit}->Resize($width, $height) if exists $self->{Edit}; ! } \ No newline at end of file --- 81,83 ---- # TextField take all client aera $self->{Edit}->Resize($width, $height) if exists $self->{Edit}; ! } Index: Draw.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Draw.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Draw.pl 2 Oct 2004 12:47:52 -0000 1.1 --- Draw.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 3,9 **** # Drawing sample # ! use Win32::GUI; ! $Menu = Win32::GUI::MakeMenu( "&Draw" => "&Draw", "> &Dots" => "DrawDots", --- 3,12 ---- # Drawing sample # ! use strict; ! use warnings; ! use Win32::GUI(); ! ! my $Menu = Win32::GUI::MakeMenu( "&Draw" => "&Draw", "> &Dots" => "DrawDots", *************** *** 13,17 **** ); ! $Win = new Win32::GUI::Window( -left => 100, -top => 100, --- 16,20 ---- ); ! my $Win = new Win32::GUI::Window( -left => 100, -top => 100, *************** *** 23,27 **** ); ! $Timer = $Win->AddTimer("Timer1", 1); srand(); --- 26,30 ---- ); ! my $Timer = $Win->AddTimer("Timer1", 1); srand(); *************** *** 75,79 **** --- 78,84 ---- my $bottom; my $P; + my $oldP; my $B; + my $oldB; if($Menu->{DrawDots}->Checked) { *************** *** 93,98 **** [ rand()*255, rand()*255, rand()*255 ] ); ! $DC->SelectObject($P); ! $DC->SelectObject($B); $left = rand()*$W; $top = rand()*$H; --- 98,103 ---- [ rand()*255, rand()*255, rand()*255 ] ); ! $oldP = $DC->SelectObject($P); ! $oldB = $DC->SelectObject($B); $left = rand()*$W; $top = rand()*$H; *************** *** 108,113 **** [ rand()*255, rand()*255, rand()*255 ] ); ! $DC->SelectObject($P); ! $DC->SelectObject($B); $left = rand()*$W; $top = rand()*$H; --- 113,118 ---- [ rand()*255, rand()*255, rand()*255 ] ); ! $oldP = $DC->SelectObject($P); ! $oldB = $DC->SelectObject($B); $left = rand()*$W; $top = rand()*$H; *************** *** 120,124 **** -width => rand()*5, ); ! $DC->SelectObject($P); $DC->BeginPath(); $DC->MoveTo(rand()*$W, rand()*$H); --- 125,129 ---- -width => rand()*5, ); ! $oldP = $DC->SelectObject($P); $DC->BeginPath(); $DC->MoveTo(rand()*$W, rand()*$H); *************** *** 127,132 **** $DC->StrokePath(); } } - - - --- 132,139 ---- $DC->StrokePath(); } + + # put the old brush/pen back, so that the new ones are correctly + # released when their destructors are called + $DC->SelectObject($oldP) if defined $oldP; + $DC->SelectObject($oldB) if defined $oldB; } Index: GetOpenFileName.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/GetOpenFileName.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** GetOpenFileName.pl 17 May 2004 21:23:01 -0000 1.1 --- GetOpenFileName.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 1,4 **** use strict; ! use Win32::GUI; # This sample demonstrates GetOpenFileName --- 1,6 ---- + #!perl -w use strict; ! use warnings; ! use Win32::GUI(); # This sample demonstrates GetOpenFileName *************** *** 8,11 **** --- 10,14 ---- # single file with graphics file filters + { my ( @file, $file ); my ( @parms ); *************** *** 21,32 **** -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = & Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; ! # allow multiple files, only one filter ! my ( @file, $file ); my ( @parms ); --- 24,35 ---- -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; ! } # allow multiple files, only one filter ! { my ( @file, $file ); my ( @parms ); *************** *** 39,52 **** -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = & Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; ! # old style dialog, multiple file selection enabled, no filters. # User has to type in a filter, to see anything. Always good to have a # filter. But it isn't required.... ! my ( @file, $file ); my ( @parms ); --- 42,55 ---- -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; ! } # old style dialog, multiple file selection enabled, no filters. # User has to type in a filter, to see anything. Always good to have a # filter. But it isn't required.... ! { my ( @file, $file ); my ( @parms ); *************** *** 57,62 **** -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = & Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; --- 60,66 ---- -title => 'Select a file'; push @parms, -file => $lastfile if $lastfile; ! @file = Win32::GUI::GetOpenFileName ( @parms ); print "$_\n" for @file; print "index of null:", index( $file[ 0 ], "\0" ), "\n"; print "index of space:", index( $file[ 0 ], " " ), "\n"; + } Index: NotifyIcon.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/NotifyIcon.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** NotifyIcon.pl 14 Apr 2006 01:52:28 -0000 1.2 --- NotifyIcon.pl 16 May 2006 18:57:26 -0000 1.3 *************** *** 809,813 **** =item Icon ! Set the system icon that is disaplyed next to the balloon tooltip title. One of: none (no icon), info, warn or error. The icon is not displayed if there is no title. --- 809,813 ---- =item Icon ! Set the system icon that is displyed next to the balloon tooltip title. One of: none (no icon), info, warn or error. The icon is not displayed if there is no title. Index: Region.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Region.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Region.pl 1 May 2004 09:13:19 -0000 1.2 --- Region.pl 16 May 2006 18:57:26 -0000 1.3 *************** *** 1,6 **** #This example uses regions to create clipping areas in an DC. - - use Win32::GUI; use strict; my $regiontype=0; --- 1,10 ---- + #!perl -w #This example uses regions to create clipping areas in an DC. use strict; + use warnings; + + use Win32::GUI 1.03_03, qw( SB_THUMBTRACK SB_LINEDOWN SB_LINEUP + WS_CAPTION WS_SIZEBOX WS_CHILD + WS_CLIPCHILDREN WS_EX_CLIENTEDGE RGN_DIFF); my $regiontype=0; *************** *** 59,63 **** my $H = $ChildWin->ScaleHeight; ! #set the scroll bar range and position based upon the height of the child window. $ChildWin->ScrollRange(0,0,$H); $ChildWin->ScrollPos(0,$H/2); --- 63,68 ---- my $H = $ChildWin->ScaleHeight; ! #set the scroll bar range and position based upon ! #the height of the child window. $ChildWin->ScrollRange(0,0,$H); $ChildWin->ScrollPos(0,$H/2); *************** *** 69,83 **** sub Scroll { ! #scoll handler. ! my($win,$scrollbar, $operation, $position) = @_; ! if($operation == SB_THUMBTRACK) { ! $win->ScrollPos(0,$position); } - elsif($operation == SB_LINEDOWN) { - $win->ScrollPos(0,$win->ScrollPos(0)+1); - } - elsif($operation == SB_LINEUP) { - $win->ScrollPos(0,$win->ScrollPos(0)-1); - } } --- 74,88 ---- sub Scroll { ! #scoll handler. ! my($win,$scrollbar, $operation, $position) = @_; ! if($operation == SB_THUMBTRACK) { ! $win->ScrollPos(0,$position); ! } ! elsif($operation == SB_LINEDOWN) { ! $win->ScrollPos(0,$win->ScrollPos(0)+1); ! } ! elsif($operation == SB_LINEUP) { ! $win->ScrollPos(0,$win->ScrollPos(0)-1); } } *************** *** 87,138 **** my $H = $ChildWin->ScaleHeight; my $DC = $ChildWin->GetDC; ! my ($left,$top,$right,$bottom,$P,$B,$region,$size); ! #We could draw directly to the window, but to remove drawing flicker we ! #create a memory DC and draw to that. Once drawing has been finished, we BitBlt ! #the memory DC direct into the window DC. # ! #For a large amount of GDI drawing, the use of a memory DC can also be quicker. # ! #We create a Compatible DC, and a Compatible Bitmap. To improve performance you would ! #only recreate these objects if the dimentions of the source DC have change. my $DC2=$DC->CreateCompatibleDC(); my $bit=$DC->CreateCompatibleBitmap($W,$H); #Select the bitmap into the new DC ! $DC2->SelectObject($bit); #The size of the region is based upon the scroll bar position ! $size=$ChildWin->ScrollPos(0); if ($regiontype==0) { ! #create a rectangle region ! $region=CreateRectRgn Win32::GUI::Region(0,0,$size,$size); } elsif ($regiontype==1) { ! #create a Elliptic region (in this case a circle) ! $region=CreateEllipticRgn Win32::GUI::Region(0,0,$size,$size); } else { ! $region=CreateRoundRectRgn Win32::GUI::Region(0,0,$size,$size,20,20); } ! #Use the region for clipping for all GDI operations. $DC2->SelectClipRgn($region); for(1..40) { ! #create a randon pen and brush, and select them into the DC ! $P = new Win32::GUI::Pen(-color => [ rand()*255, rand()*255, rand()*255 ], -width => rand()*5); ! $B = new Win32::GUI::Brush([ rand()*255, rand()*255, rand()*255]); ! $DC2->SelectObject($P); ! $DC2->SelectObject($B); ! $left = rand()*$W; ! $top = rand()*$H; ! $right = $left + rand()*($W-$left); ! $bottom = $top + rand()*($H-$top); ! #create a random rectangle ! $DC2->Rectangle($left, $top, $right, $bottom); ! $P = new Win32::GUI::Pen(-color => [ rand()*255, rand()*255, rand()*255 ], -width => rand()*5,); ! $DC2->SelectObject($P); ! #create a random line ! $DC2->Line(rand()*$W,rand()*$H,rand()*$W, rand()*$H ); } #We now update the screen in one action $DC->BitBlt(0, 0, $W,$H,$DC2, 0, 0); ! #We now delete the DC $DC2->DeleteDC(); ! } \ No newline at end of file --- 92,179 ---- my $H = $ChildWin->ScaleHeight; my $DC = $ChildWin->GetDC; ! #We could draw directly to the window, but to remove ! #drawing flicker we create a memory DC and draw to that. ! #Once drawing has been finished, we BitBlt the memory DC ! #direct into the window DC. # ! #For a large amount of GDI drawing, the use of a memory DC ! #can also be quicker. # ! #We create a Compatible DC, and a Compatible Bitmap. To ! #improve performance you would ! #only recreate these objects if the dimentions of the source ! #DC have change. my $DC2=$DC->CreateCompatibleDC(); my $bit=$DC->CreateCompatibleBitmap($W,$H); #Select the bitmap into the new DC ! my $oldbit = $DC2->SelectObject($bit); ! #The size of the region is based upon the scroll bar position ! #Don't allow it to be zero ! my $size=$ChildWin->ScrollPos(0) || 1; ! ! #Create a region ! my $region; if ($regiontype==0) { ! #create a rectangle region ! $region=CreateRectRgn Win32::GUI::Region(0,0,$size,$size); } elsif ($regiontype==1) { ! #create a Elliptic region (in this case a circle) ! $region=CreateEllipticRgn Win32::GUI::Region(0,0,$size,$size); } else { ! #create a rectangle region with rounded corners ! $region=CreateRoundRectRgn Win32::GUI::Region(0,0,$size,$size,20,20); } ! ! #Clear the area outside the region we are painting into: ! my $region2 = CreateRectRgn Win32::GUI::Region(0,0,$W,$H); ! my $region3 = CreateRectRgn Win32::GUI::Region(0,0,$W,$H); ! $region3->CombineRgn($region2,$region,RGN_DIFF); ! $DC2->PaintRgn($region3); ! ! #Use the region for clipping for the rest of the GDI operations. $DC2->SelectClipRgn($region); + for(1..40) { ! #create a randon pen and brush, and select them into the DC ! my $P1 = new Win32::GUI::Pen( ! -color => [ rand()*255, rand()*255, rand()*255 ], ! -width => rand()*5, ! ); ! my $B = new Win32::GUI::Brush([ rand()*255, rand()*255, rand()*255]); ! my $oldP = $DC2->SelectObject($P1); ! my $oldB = $DC2->SelectObject($B); ! my $left = rand()*$W; ! my $top = rand()*$H; ! my $right = $left + rand()*($W-$left); ! my $bottom = $top + rand()*($H-$top); ! #create a random rectangle ! $DC2->Rectangle($left, $top, $right, $bottom); ! ! my $P2 = new Win32::GUI::Pen( ! -color => [ rand()*255, rand()*255, rand()*255 ], ! -width => rand()*5, ! ); ! $DC2->SelectObject($P2); ! #create a random line ! $DC2->Line(rand()*$W,rand()*$H,rand()*$W, rand()*$H ); ! ! #restore the original Pen and Brush so that the new ones ! #are not selected into the DC, and they get destroyed ! #when they go out of scope, otherwise we have a huge ! #resource leak, and quickly stop drawing correctly ! $DC2->SelectObject($oldP); ! $DC2->SelectObject($oldB); } + #We now update the screen in one action $DC->BitBlt(0, 0, $W,$H,$DC2, 0, 0); ! ! #As for the Pen and Brush above, restore the original bitmap ! $DC2->SelectObject($oldbit); ! ! #We now delete the memory DC $DC2->DeleteDC(); ! } Index: Animation.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Animation.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Animation.pl 2 Oct 2004 12:47:52 -0000 1.1 --- Animation.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 4,8 **** # use strict; ! use Win32::GUI; # Create your main window --- 4,8 ---- # use strict; ! use Win32::GUI(); # Create your main window *************** *** 40,44 **** ); ! # Add a load button. $Window->AddButton ( -name => "Start", --- 40,44 ---- ); ! # Add a start button. $Window->AddButton ( -name => "Start", *************** *** 49,53 **** ); ! # Add a load button. $Window->AddButton ( -name => "Stop", --- 49,53 ---- ); ! # Add a stop button. $Window->AddButton ( -name => "Stop", Index: Notepad.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/Notepad.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Notepad.pl 31 May 2004 17:41:29 -0000 1.1 --- Notepad.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 5,9 **** use strict; ! use Win32::GUI; my $CurrentFile = ""; --- 5,11 ---- use strict; ! use warnings; ! use Win32::GUI qw( MB_ICONQUESTION MB_ICONINFORMATION MB_YESNOCANCEL ! MB_OK IDYES IDCANCEL ); my $CurrentFile = ""; Index: EventModel.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/EventModel.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EventModel.pl 25 Mar 2004 22:46:56 -0000 1.1 --- EventModel.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 2,6 **** # # This sample show different event model availlabnle in Win32::GUI ! # - OEM (Old Event Model) : Call a function venet based on control name and event name # - NEM (Nem Event Model) : Associate a sub event for a control. # It present how to use both event model for a control. --- 2,6 ---- # # This sample show different event model availlabnle in Win32::GUI ! # - OEM (Old Event Model) : Call a function evnet based on control name and event name # - NEM (Nem Event Model) : Associate a sub event for a control. # It present how to use both event model for a control. *************** *** 11,18 **** # use strict; ! use Win32::GUI; # Load a cursor bitmap ! my $C = new Win32::GUI::Bitmap("harrow.cur", 2); # Register a BUTTON class with cursor --- 11,21 ---- # use strict; ! use warnings; ! ! use Win32::GUI qw(BS_NOTIFY); ! use FindBin(); # Load a cursor bitmap ! my $C = new Win32::GUI::Bitmap("$FindBin::Dir/harrow.cur", 2); # Register a BUTTON class with cursor *************** *** 183,185 **** sub BOTH_MouseMove { print "BOTH_MouseMouve using OEM !!!\n"; ! } \ No newline at end of file --- 186,188 ---- sub BOTH_MouseMove { print "BOTH_MouseMouve using OEM !!!\n"; ! } Index: MonthCal.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/MonthCal.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MonthCal.pl 8 May 2004 17:31:22 -0000 1.1 --- MonthCal.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 4,8 **** # use strict; ! use Win32::GUI; # main Window --- 4,9 ---- # use strict; ! use warnings; ! use Win32::GUI(); # main Window Index: SplashScreen.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/SplashScreen.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SplashScreen.pl 15 Nov 2004 10:48:58 -0000 1.1 --- SplashScreen.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 1,17 **** ! use Win32::GUI; use strict; - my ($width,$height); - my $mainwin; - #try to load the splash bitmap from the exe that is running my $splashimage= new Win32::GUI::Bitmap('SPLASH'); unless ($splashimage) { ! #bitmap is not in exe, load from file ! $splashimage= new Win32::GUI::Bitmap('SPLASH.bmp'); ! die 'could not find splash bitmap' unless $splashimage; ! #get the dimensions of the bitmap ! ($width,$height) = $splashimage->Info(); ! } #create the splash window --- 1,26 ---- ! #!perl -w ! ! # Demonstrate how to do a Splash Screen for your application ! # Original code by Jeremy White, modified by Robert May ! # Note that the package Win32::GUI::SplashScreen, available ! # from CPAN and from http://www.robmay.me.uk/win32gui/ can ! # do all this and more for you ! use strict; + use warnings; + use FindBin(); + use Win32::GUI qw( WS_POPUP WS_CAPTION WS_THICKFRAME WS_EX_TOPMOST ); #try to load the splash bitmap from the exe that is running my $splashimage= new Win32::GUI::Bitmap('SPLASH'); + unless ($splashimage) { ! #bitmap is not in exe, load from file ! $splashimage= new Win32::GUI::Bitmap("$FindBin::Dir/SPLASH.bmp"); ! } ! ! die 'could not find splash bitmap' unless $splashimage; ! #get the dimensions of the bitmap ! my ($width,$height) = $splashimage->Info(); #create the splash window *************** *** 37,70 **** -bitmap => $splashimage, ); - $bitmap->SetImage( $splashimage ); #center the splash and show it ! $splash->Center; $splash->Show(); #call do events - not Dialog - this will display the window and let us #build the rest of the application. ! Win32::GUI::DoEvents; ! #A good way of building your application is to keep everything in packages, and eval those ! #into scope in this phase. In this case, we'll create the main window and sleep to simulate ! #some work. ! my $string = q ` ! $mainwin = new Win32::GUI::Window ( ! -name => "Main", ! -text => "Main window", ! -height => 400, ! -width => 400, ! ); ! sleep(2); ! $mainwin->Center(); ! $mainwin->Show(); ! `; ! #eval the code and report any errors ! eval $string; ! if ($@) { ! my $message = $@; ! Win32::GUI::MessageBox($splash, $message ,"Build Error", MB_OK | MB_ICONWARNING); ! } ! #hide the splash and enter the Dialog phase $splash->Hide; ! Win32::GUI::Dialog(); \ No newline at end of file --- 46,76 ---- -bitmap => $splashimage, ); #center the splash and show it ! $splash->Center(); $splash->Show(); #call do events - not Dialog - this will display the window and let us #build the rest of the application. ! Win32::GUI::DoEvents(); ! #In this case, we'll create the main window and ! #sleep to simulate doing some work. ! my $mainwin = new Win32::GUI::Window ( ! -name => "Main", ! -text => "Main window", ! -height => 400, ! -width => 500, ! ); ! $mainwin->Center(); ! ! sleep(2); ! ! #Show the main window ... ! $mainwin->Show(); ! Win32::GUI::DoEvents(); ! ! sleep(1); ! ! # ... hide the splash and enter the Dialog phase $splash->Hide; ! Win32::GUI::Dialog(); Index: listview_drag_drop.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/listview_drag_drop.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** listview_drag_drop.pl 3 Aug 2005 21:45:59 -0000 1.1 --- listview_drag_drop.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 8,12 **** use warnings; ! use Win32::GUI 1.02; use Win32::GUI::BitmapInline (); --- 8,17 ---- use warnings; ! use Win32::GUI 1.03_03, qw(TPM_LEFTALIGN TPM_TOPALIGN TPM_RIGHTBUTTON ! ILC_COLOR ILC_COLOR24 ILC_MASK ! WM_CONTEXTMENU CW_USEDEFAULT ! LVS_ICON LVS_REPORT LVS_SMALLICON LVS_LIST ! LVIR_SELECTBOUNDS LVSIL_SMALL); ! use Win32::GUI::BitmapInline (); *************** *** 24,55 **** ###################################################################### - # Some Useful Constants - # This style for defining constants is more compatible with older - # versions of Perl than 'use constant', and still gets inlined. - - # ImageList Create - sub ILC_COLOR() {0}; - sub ILC_COLOR24() {24}; - sub ILC_MASK() {1}; - - # Window Message - sub WM_CONTEXTMENU() {123}; - - # Create Window - sub CW_USEDEFAULT() {0x80000000}; - - # ListView Styles - sub LVS_ICON() {0}; - sub LVS_REPORT() {1}; - sub LVS_SMALLICON() {2}; - sub LVS_LIST() {3}; - - # ListView Image Rect - sub LVIR_SELECTBOUNDS() {3}; - - # ListView Set Image List - sub LVSIL_SMALL() {1}; - - ###################################################################### # Cursor for use when dragging my $curDrag = newCursor Win32::GUI::BitmapInline( q( --- 29,32 ---- Index: DateTime.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/DateTime.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DateTime.pl 2 Oct 2004 12:47:52 -0000 1.1 --- DateTime.pl 16 May 2006 18:57:26 -0000 1.2 *************** *** 4,8 **** # use strict; ! use Win32::GUI; # main Window --- 4,10 ---- # use strict; ! use warnings; ! ! use Win32::GUI(); # main Window Index: BitmapScroll.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/samples/BitmapScroll.pl,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** BitmapScroll.pl 1 Oct 2004 02:43:29 -0000 1.5 --- BitmapScroll.pl 16 May 2006 18:57:26 -0000 1.6 *************** *** 2,8 **** #a hooked event to paint to the window directly, rather than using a Graphic #Control. - - use Win32::GUI; use strict; #create a new class which stops the WM_ERASEBKGND message from erasing the background --- 2,11 ---- #a hooked event to paint to the window directly, rather than using a Graphic #Control. use strict; + use warnings; + + use Win32::GUI qw(WS_CLIPCHILDREN WS_CAPTION WS_SIZEBOX + WS_CHILD WS_EX_CLIENTEDGE + SB_ENDSCROLL SB_THUMBPOSITION); #create a new class which stops the WM_ERASEBKGND message from erasing the background |