Mailing Lists Menu
▾
perl-win32-gui-cvscommit — Send-only list for receiving email when commits are made to project CVS
You can subscribe to this list here.
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(6) |
Nov
(31) |
Dec
(6) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2006 |
Jan
(6) |
Feb
|
Mar
(17) |
Apr
(17) |
May
(27) |
Jun
(67) |
Jul
(26) |
Aug
(15) |
Sep
(2) |
Oct
(24) |
Nov
(6) |
Dec
|
| 2007 |
Jan
(4) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(28) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
(21) |
Feb
(45) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
|
Feb
(3) |
Mar
|
Apr
(3) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| S | M | T | W | T | F | S |
|---|---|---|---|---|---|---|
|
|
|
|
|
|
1
(15) |
2
(5) |
|
3
|
4
|
5
|
6
|
7
|
8
(17) |
9
(6) |
|
10
|
11
|
12
|
13
(2) |
14
|
15
|
16
|
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
|
24
|
25
|
26
|
27
|
28
|
29
|
|
|
From: Robert M. <rob...@us...> - 2008-02-13 15:24:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22813/Win32-GUI-ReleaseNotes Modified Files: RN_1_06.pod Log Message: Prepare for V1.06 release Index: RN_1_06.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_06.pod,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** RN_1_06.pod 9 Feb 2008 12:53:44 -0000 1.9 --- RN_1_06.pod 13 Feb 2008 15:24:04 -0000 1.10 *************** *** 5,9 **** =head1 Release Date ! TBD =head1 Summary of Changes --- 5,9 ---- =head1 Release Date ! 13th February, 2008. =head1 Summary of Changes |
|
From: Robert M. <rob...@us...> - 2008-02-13 15:24:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22813 Modified Files: CHANGELOG GUI.pm GUI.rc Readme Readme.html Log Message: Prepare for V1.06 release Index: Readme.html =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Readme.html,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Readme.html 1 Feb 2008 13:33:22 -0000 1.11 --- Readme.html 13 Feb 2008 15:24:04 -0000 1.12 *************** *** 5,19 **** <title>Win32::GUI::UserGuide::Readme - Perl-Win32 Graphical User Interface Extension README</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> ! <link rev="made" href="mailto:ru...@x-..." /> </head> <body style="background-color: white"> ! <p><a name="__index__"></a></p> <!-- INDEX BEGIN --> <ul> <li><a href="#description">DESCRIPTION</a></li> <li><a href="#installing">INSTALLING</a></li> <ul> --- 5,23 ---- <title>Win32::GUI::UserGuide::Readme - Perl-Win32 Graphical User Interface Extension README</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> ! <link rev="made" href="mailto:" /> </head> <body style="background-color: white"> ! <!-- INDEX BEGIN --> + <div name="index"> + <p><a name="__index__"></a></p> <ul> + <li><a href="#name">NAME</a></li> <li><a href="#description">DESCRIPTION</a></li> + <li><a href="#availability">AVAILABILITY</a></li> <li><a href="#installing">INSTALLING</a></li> <ul> *************** *** 43,51 **** <li><a href="#copyright_and_licence">COPYRIGHT and LICENCE</a></li> </ul> <!-- INDEX END --> - <hr /> <p> </p> <h1><a name="description">DESCRIPTION</a></h1> <p>Win32::GUI is a Win32-platform native graphical user interface toolkit for --- 47,62 ---- <li><a href="#copyright_and_licence">COPYRIGHT and LICENCE</a></li> </ul> + + <hr name="index" /> + </div> <!-- INDEX END --> <p> </p> + <h1><a name="name">NAME</a></h1> + <p>Win32::GUI::UserGuide::Readme - Perl-Win32 Graphical User Interface Extension README</p> + <p> + </p> + <hr /> <h1><a name="description">DESCRIPTION</a></h1> <p>Win32::GUI is a Win32-platform native graphical user interface toolkit for *************** *** 53,61 **** user32.dll and gdi32.dll, with an object oriented perl interface and an event-based dialog model that mimic the functionality of visual basic.</p> ! <pre> ! ! =head1 AVAILABILITY</pre> ! <p>This is the README file for Win32::GUI v1.05_90 ! built on 01 Feb 2008.</p> <p>Source and ActiveState Perl PPMs are available from <a href="http://sourceforge.net/project/showfiles.php?group_id=16572">http://sourceforge.net/project/showfiles.php</a>.</p> --- 64,73 ---- user32.dll and gdi32.dll, with an object oriented perl interface and an event-based dialog model that mimic the functionality of visual basic.</p> ! <p> ! </p> ! <hr /> ! <h1><a name="availability">AVAILABILITY</a></h1> ! <p>This is the README file for Win32::GUI v1.06 ! built on 13 Feb 2008.</p> <p>Source and ActiveState Perl PPMs are available from <a href="http://sourceforge.net/project/showfiles.php?group_id=16572">http://sourceforge.net/project/showfiles.php</a>.</p> *************** *** 123,127 **** nmake install</pre> <p>Built this way the GUI.dll extension can be very large (~3MB). There is a ! module in the <em>build_tools</em> directory that works with <strong>Config_m</strong> and <a href="/ExtUtils/FakeConfig.html">Extutils::FakeConfig</a> to set the MinGW compiler flags more optimally. If you want to try this, then replace the first --- 135,139 ---- nmake install</pre> <p>Built this way the GUI.dll extension can be very large (~3MB). There is a ! module in the <em class="file">build_tools</em> directory that works with <strong>Config_m</strong> and <a href="/ExtUtils/FakeConfig.html">Extutils::FakeConfig</a> to set the MinGW compiler flags more optimally. If you want to try this, then replace the first *************** *** 140,145 **** gzip</pre> <p>Build instructions:</p> ! <p>unpack <em>perl-Win32-GUI-X.XX-X-src.tar.bz2</em>. If you use setup to install ! this src package, it will be unpacked under <em>/usr/src</em> automatically.</p> <pre> cd /usr/src --- 152,157 ---- gzip</pre> <p>Build instructions:</p> ! <p>unpack <em class="file">perl-Win32-GUI-X.XX-X-src.tar.bz2</em>. If you use setup to install ! this src package, it will be unpacked under <em class="file">/usr/src</em> automatically.</p> <pre> cd /usr/src *************** *** 169,173 **** by the make process. It can also be generated by issuing:</p> <pre> ! nmake poddocs;</pre> <p> </p> --- 181,186 ---- by the make process. It can also be generated by issuing:</p> <pre> ! <span class="variable">nmake</span> <span class="variable">poddocs</span><span class="operator">;</span> ! </pre> <p> </p> *************** *** 177,181 **** <p>The HTML documentation can also be generated by issuing:</p> <pre> ! nmake htmldocs;</pre> <p> </p> --- 190,195 ---- <p>The HTML documentation can also be generated by issuing:</p> <pre> ! <span class="variable">nmake</span> <span class="variable">htmldocs</span><span class="operator">;</span> ! </pre> <p> </p> *************** *** 195,201 **** <hr /> <h1><a name="version">VERSION</a></h1> ! <p>Documentation for Win32::GUI v1.05_90 created 01 Feb 2008</p> <p>This document is autogenerated by the build process. Edits made here will be lost. ! Edit <em>docs/GUI/UserGuide/Readme.pod</em> instead.</p> <p> </p> --- 209,215 ---- <hr /> <h1><a name="version">VERSION</a></h1> ! <p>Documentation for Win32::GUI v1.06 created 13 Feb 2008</p> <p>This document is autogenerated by the build process. Edits made here will be lost. ! Edit <em class="file">docs/GUI/UserGuide/Readme.pod</em> instead.</p> <p> </p> *************** *** 212,216 **** <p>This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.</p> - <p></p> </body> --- 226,229 ---- Index: Readme =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Readme,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Readme 1 Feb 2008 13:33:22 -0000 1.10 --- Readme 13 Feb 2008 15:24:04 -0000 1.11 *************** *** 14,18 **** AVAILABILITY ! This is the README file for Win32::GUI v1.05_90 built on 01 Feb 2008. Source and ActiveState Perl PPMs are available from --- 14,18 ---- AVAILABILITY ! This is the README file for Win32::GUI v1.06 built on 13 Feb 2008. Source and ActiveState Perl PPMs are available from *************** *** 162,166 **** VERSION ! Documentation for Win32::GUI v1.05_90 created 01 Feb 2008 This document is autogenerated by the build process. Edits made here --- 162,166 ---- VERSION ! Documentation for Win32::GUI v1.06 created 13 Feb 2008 This document is autogenerated by the build process. Edits made here Index: GUI.rc =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.rc,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** GUI.rc 5 Nov 2006 20:04:49 -0000 1.10 --- GUI.rc 13 Feb 2008 15:24:04 -0000 1.11 *************** *** 8,13 **** 1 VERSIONINFO ! FILEVERSION 1,05,00,00 ! PRODUCTVERSION 1,05,00,00 FILEOS VOS__WINDOWS32 FILETYPE VFT_DLL --- 8,13 ---- 1 VERSIONINFO ! FILEVERSION 1,06,00,00 ! PRODUCTVERSION 1,06,00,00 FILEOS VOS__WINDOWS32 FILETYPE VFT_DLL *************** *** 17,30 **** BLOCK "040904E4" { ! VALUE "Comments" , "Win32::GUI Perl module v1.05" VALUE "CompanyName" , "Open Source" VALUE "FileDescription" , "perl-win32-gui Perl extension" ! VALUE "FileVersion" , "1.05" VALUE "InternalName" , "GUI.dll" ! VALUE "LegalCopyright" , "Copyright © Aldo Caplini 1997..2006" VALUE "LegalTrademarks" , "GNU and Artistic licences" VALUE "OriginalFilename" , "GUI.dll" VALUE "ProductName" , "Win32::GUI" ! VALUE "ProductVersion" , "1.05" } } --- 17,30 ---- BLOCK "040904E4" { ! VALUE "Comments" , "Win32::GUI Perl module v1.06" VALUE "CompanyName" , "Open Source" VALUE "FileDescription" , "perl-win32-gui Perl extension" ! VALUE "FileVersion" , "1.06" VALUE "InternalName" , "GUI.dll" ! VALUE "LegalCopyright" , "Copyright © Aldo Caplini 1997..2008" VALUE "LegalTrademarks" , "GNU and Artistic licences" VALUE "OriginalFilename" , "GUI.dll" VALUE "ProductName" , "Win32::GUI" ! VALUE "ProductVersion" , "1.06" } } Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.68 retrieving revision 1.69 diff -C2 -d -r1.68 -r1.69 *** GUI.pm 8 Feb 2008 14:34:18 -0000 1.68 --- GUI.pm 13 Feb 2008 15:24:04 -0000 1.69 *************** *** 20,24 **** # STATIC OBJECT PROPERTIES # ! $VERSION = "1.05_91"; # For MakeMaker and CPAN $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) --- 20,24 ---- # STATIC OBJECT PROPERTIES # ! $VERSION = "1.06"; # For MakeMaker and CPAN $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.145 retrieving revision 1.146 diff -C2 -d -r1.145 -r1.146 *** CHANGELOG 9 Feb 2008 12:53:44 -0000 1.145 --- CHANGELOG 13 Feb 2008 15:24:04 -0000 1.146 *************** *** 6,9 **** --- 6,12 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 13 February 2008 - 1.06 Release + - Up version numbers to 1.06 + + [Robert May] : 9 February 2008 - Tweaks --- Win32::GUI::Scintilla --- |
|
From: Robert M. <rob...@us...> - 2008-02-09 12:53:42
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31738/Win32-GUI-ReleaseNotes Modified Files: RN_1_06.pod Log Message: Fix typo (Scintilla.PL) SendMessageNN -> SendMessage Index: RN_1_06.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_06.pod,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** RN_1_06.pod 1 Feb 2008 13:33:22 -0000 1.8 --- RN_1_06.pod 9 Feb 2008 12:53:44 -0000 1.9 *************** *** 306,309 **** --- 306,311 ---- =item Reini Urban + =item Jeremy White + =back |
|
From: Robert M. <rob...@us...> - 2008-02-09 12:53:41
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31738/Win32-GUI-Scintilla Modified Files: Scintilla.PL Log Message: Fix typo (Scintilla.PL) SendMessageNN -> SendMessage Index: Scintilla.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla/Scintilla.PL,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Scintilla.PL 1 Feb 2008 13:33:22 -0000 1.7 --- Scintilla.PL 9 Feb 2008 12:53:44 -0000 1.8 *************** *** 464,468 **** print 'sub GetText {', "\n"; print ' my $self = shift;', "\n"; ! print ' my $length = $self->SendMessageNN(2182, 0, 0); # includes trailing NUL', "\n"; print ' my $text = " " x $length;', "\n\n"; print ' $self->SendMessageNP (2182, $length, $text);', "\n"; --- 464,468 ---- print 'sub GetText {', "\n"; print ' my $self = shift;', "\n"; ! print ' my $length = $self->SendMessage(2182, 0, 0); # includes trailing NUL', "\n"; print ' my $text = " " x $length;', "\n\n"; print ' $self->SendMessageNP (2182, $length, $text);', "\n"; |
|
From: Robert M. <rob...@us...> - 2008-02-09 12:53:41
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31738 Modified Files: CHANGELOG Log Message: Fix typo (Scintilla.PL) SendMessageNN -> SendMessage Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.144 retrieving revision 1.145 diff -C2 -d -r1.144 -r1.145 *** CHANGELOG 9 Feb 2008 08:51:27 -0000 1.144 --- CHANGELOG 9 Feb 2008 12:53:44 -0000 1.145 *************** *** 7,10 **** --- 7,14 ---- =================== + [Robert May] : 9 February 2008 - Tweaks + --- Win32::GUI::Scintilla --- + - Scintilla.PL - fix SendMessageNN to SendMessage [Jeremy White] + + + [Robert May] : 9 February 2008 - Tweaks - build_tools/SrcParser.pm - minor change for perl 5.6.1 --- Win32::GUI::Constants --- |
|
From: Robert M. <rob...@us...> - 2008-02-09 08:51:23
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8972/Win32-GUI-Constants Modified Files: Constants.pm Log Message: Minor tweaks Index: Constants.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.pm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Constants.pm 1 Feb 2008 13:33:22 -0000 1.10 --- Constants.pm 9 Feb 2008 08:51:27 -0000 1.11 *************** *** 17,21 **** =cut ! our $VERSION = '0.03'; our $XS_VERSION = $VERSION; eval $VERSION; --- 17,21 ---- =cut ! our $VERSION = '0.04'; our $XS_VERSION = $VERSION; eval $VERSION; |
|
From: Robert M. <rob...@us...> - 2008-02-09 08:51:23
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8972 Modified Files: CHANGELOG Log Message: Minor tweaks Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.143 retrieving revision 1.144 diff -C2 -d -r1.143 -r1.144 *** CHANGELOG 8 Feb 2008 18:47:17 -0000 1.143 --- CHANGELOG 9 Feb 2008 08:51:27 -0000 1.144 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 9 February 2008 - Tweaks + - build_tools/SrcParser.pm - minor change for perl 5.6.1 + --- Win32::GUI::Constants --- + - Constants.pm - update version + + [Robert May] : 8 February 2008 - Add progress bar styles and messages --- Win32::GUI::Constants --- |
|
From: Robert M. <rob...@us...> - 2008-02-09 08:51:23
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/build_tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8972/build_tools Modified Files: SrcParser.pm Log Message: Minor tweaks Index: SrcParser.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/build_tools/SrcParser.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** SrcParser.pm 16 Mar 2006 23:14:31 -0000 1.5 --- SrcParser.pm 9 Feb 2008 08:51:27 -0000 1.6 *************** *** 207,211 **** sub get_package_list { ! return sort { uc $a cmp uc $b } keys %PACKAGES; } --- 207,214 ---- sub get_package_list { ! my @tmp = sort { uc $a cmp uc $b } keys %PACKAGES; ! # Extra @tmp copy needed on perl 5.6.1 to avoid error ! # 'sort routine did not return numeric value' ! return @tmp; } |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:47:15
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941 Modified Files: CHANGELOG Log Message: Add progress bar styles and messages Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.142 retrieving revision 1.143 diff -C2 -d -r1.142 -r1.143 *** CHANGELOG 8 Feb 2008 18:02:05 -0000 1.142 --- CHANGELOG 8 Feb 2008 18:47:17 -0000 1.143 *************** *** 6,9 **** --- 6,13 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 8 February 2008 - Add progress bar styles and messages + --- Win32::GUI::Constants --- + - Constants.PL, Tags.pm, 52_tags.t - add PBS_ and PBM_ constants + + [Robert May] : 8 February 2008 - Get GUI.rc updated correctly - Makefile.PL - make GUI.rc dependent on GUI.rc |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:47:13
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941/Win32-GUI-Constants/t Modified Files: 52_tags.t Log Message: Add progress bar styles and messages Index: 52_tags.t =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/t/52_tags.t,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** 52_tags.t 15 Jul 2007 19:06:09 -0000 1.5 --- 52_tags.t 8 Feb 2008 18:47:18 -0000 1.6 *************** *** 223,227 **** PS_JOIN_ROUND PS_ENDCAP_ROUND PS_DASH PS_JOIN_MASK PS_GEOMETRIC PS_DOT PS_USERSTYLE PS_NULL PS_ALTERNATE ) ], ! progressbar => [ qw( CLR_DEFAULT ) ], rebar => [ qw( CLR_DEFAULT RBBS_GRIPPERALWAYS RBBS_FIXEDBMP RBBS_VARIABLEHEIGHT RBBS_BREAK --- 223,231 ---- PS_JOIN_ROUND PS_ENDCAP_ROUND PS_DASH PS_JOIN_MASK PS_GEOMETRIC PS_DOT PS_USERSTYLE PS_NULL PS_ALTERNATE ) ], ! progressbar => [ ! qw( PBM_SETRANGE PBM_SETPOS PBM_DELTAPOS PBM_SETSTEP PBM_STEPIT PBM_SETRANGE32 ! PBM_GETRANGE PBM_GETPOS PBM_SETBARCOLOR PBM_SETBKCOLOR PBM_SETMARQUEE ! PBS_SMOOTH PBS_VERTICAL PBS_MARQUEE ! CLR_DEFAULT ) ], rebar => [ qw( CLR_DEFAULT RBBS_GRIPPERALWAYS RBBS_FIXEDBMP RBBS_VARIABLEHEIGHT RBBS_BREAK |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:47:13
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24941/Win32-GUI-Constants Modified Files: Constants.PL Tags.pm Log Message: Add progress bar styles and messages Index: Constants.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Constants.PL 15 Jul 2007 19:06:09 -0000 1.9 --- Constants.PL 8 Feb 2008 18:47:17 -0000 1.10 *************** *** 1850,1853 **** --- 1850,1871 ---- HS_DIAGCROSS 5 + # ProgressBar messages + PBM_SETRANGE 1025 #(WM_USER+1) + PBM_SETPOS 1026 #(WM_USER+2) + PBM_DELTAPOS 1027 #(WM_USER+3) + PBM_SETSTEP 1028 #(WM_USER+4) + PBM_STEPIT 1029 #(WM_USER+5) + PBM_SETRANGE32 1030 #(WM_USER+6) + PBM_GETRANGE 1031 #(WM_USER+7) + PBM_GETPOS 1032 #(WM_USER+8) + PBM_SETBARCOLOR 1033 #(WM_USER+9) + PBM_SETBKCOLOR 0x2001 #CCM_SETBKCOLOR (CCM_FIRST+1) + PBM_SETMARQUEE 1035 #(WM_USER+10) + + # ProgressBar styles + PBS_SMOOTH 0x01 + PBS_VERTICAL 0x04 + PBS_MARQUEE 0x08 + # Pen Styles PS_SOLID 0 Index: Tags.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Tags.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Tags.pm 15 Jul 2007 19:06:09 -0000 1.6 --- Tags.pm 8 Feb 2008 18:47:17 -0000 1.7 *************** *** 102,106 **** notifyicon => [ qw() ], pen => [ qw( ^PS_ ) ], ! progressbar => [ qw( ^CLR_DEFAULT$ ) ], rebar => [ qw( ^CLR_DEFAULT$ ^RBBS_ ) ], region => [ qw( ^RGN_ ) ], --- 102,106 ---- notifyicon => [ qw() ], pen => [ qw( ^PS_ ) ], ! progressbar => [ qw( ^PBS_ ^PBM_ ^CLR_DEFAULT$ ) ], rebar => [ qw( ^CLR_DEFAULT$ ^RBBS_ ) ], region => [ qw( ^RGN_ ) ], |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DropFiles/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-DropFiles/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::DropFiles test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that DropFiles.dll has the same version as DropFiles.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::DropFiles(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::DropFiles::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('DropFiles.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-Constants/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::Constants test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that Constants.dll has the same version as Constants.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::Constants(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::Constants::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('Constants.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495 Modified Files: CHANGELOG Makefile.PL MANIFEST Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.141 retrieving revision 1.142 diff -C2 -d -r1.141 -r1.142 *** CHANGELOG 8 Feb 2008 16:42:11 -0000 1.141 --- CHANGELOG 8 Feb 2008 18:02:05 -0000 1.142 *************** *** 6,9 **** --- 6,15 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 8 February 2008 - Get GUI.rc updated correctly + - Makefile.PL - make GUI.rc dependent on GUI.rc + - Add tests to all XS modules that the RC version number matches the + module + - MANIFEST - add new test files + + [Robert May] : 8 February 2008 - Correct number of tests - t\GUI_Helpers.cpp - fix another spot where we could be calling Index: Makefile.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Makefile.PL,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Makefile.PL 2 Feb 2008 12:50:23 -0000 1.30 --- Makefile.PL 8 Feb 2008 18:02:05 -0000 1.31 *************** *** 385,390 **** $rc_frag .= <<'RC_FRAG3' ! GUI.rc: $(PERL) -I$(BUILD_TOOLS) $(BUILD_TOOLS)/updateRC.pl RC_FRAG3 --- 385,391 ---- $rc_frag .= <<'RC_FRAG3' ! GUI.rc: GUI.pm $(PERL) -I$(BUILD_TOOLS) $(BUILD_TOOLS)/updateRC.pl + $(NOECHO) $(TOUCH) GUI.rc RC_FRAG3 Index: MANIFEST =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/MANIFEST,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** MANIFEST 2 Feb 2008 13:25:57 -0000 1.24 --- MANIFEST 8 Feb 2008 18:02:05 -0000 1.25 *************** *** 133,136 **** --- 133,137 ---- t/50_Font_GetMetrics.t t/50_Richedit_GetCharFormat.t + t/97_Version.t t/98_Pod.t t/99_pod_coverage.t *************** *** 167,170 **** --- 168,172 ---- Win32-GUI-AxWindow/t/01_load.t Win32-GUI-AxWindow/t/02_new.t + Win32-GUI-AxWindow/t/97_Version.t Win32-GUI-AxWindow/t/98_pod.t Win32-GUI-AxWindow/t/99_pod_coverage.t *************** *** 217,220 **** --- 219,223 ---- Win32-GUI-Constants/t/70_values.t Win32-GUI-Constants/t/71_invalid_values.t + Win32-GUI-Constants/t/97_Version.t Win32-GUI-Constants/t/98_pod.t Win32-GUI-Constants/t/99_pod_coverage.t *************** *** 271,274 **** --- 274,278 ---- Win32-GUI-DIBitmap/t/01_load.t Win32-GUI-DIBitmap/t/02_new.t + Win32-GUI-DIBitmap/t/97_Version.t Win32-GUI-DIBitmap/t/98_pod.t Win32-GUI-DIBitmap/t/99_pod_coverage.t *************** *** 293,296 **** --- 297,301 ---- Win32-GUI-DropFiles/t/10_Unicode.t Win32-GUI-DropFiles/t/11_invalid_handles.t + Win32-GUI-DropFiles/t/97_Version.t Win32-GUI-DropFiles/t/98_pod.t Win32-GUI-DropFiles/t/99_pod_coverage.t *************** *** 340,343 **** --- 345,349 ---- Win32-GUI-Grid/t/01_load.t Win32-GUI-Grid/t/02_new.t + Win32-GUI-Grid/t/97_Version.t Win32-GUI-Grid/t/98_pod.t Win32-GUI-Grid/t/99_pod_coverage.t *************** *** 378,381 **** --- 384,388 ---- Win32-GUI-Scintilla/t/03_LoadFile.t Win32-GUI-Scintilla/t/55_crash.t + Win32-GUI-Scintilla/t/97_Version.t Win32-GUI-Scintilla/t/98_pod.t Win32-GUI-Scintilla/t/99_pod_coverage.t |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-Scintilla/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::Scintilla test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that Scintilla.dll has the same version as Scintilla.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::Scintilla(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::Scintilla::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('Scintilla.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-Grid/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::Grid test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that Grid.dll has the same version as Grid.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::Grid(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::Grid::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('Grid.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:00
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that GUI.dll has the same version as GUI.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('GUI.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:00
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-DIBitmap/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::DIBitmap test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that DIBitmap.dll has the same version as DIBitmap.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::DIBitmap(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::DIBitmap::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('DIBitmap.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 18:02:00
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-AxWindow/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8495/Win32-GUI-AxWindow/t Added Files: 97_Version.t Log Message: Fix updating of GUI.rc and add tests for verions to all XS modules --- NEW FILE: 97_Version.t --- #!perl -wT # Win32::GUI::AxWindow test suite. # $Id: 97_Version.t,v 1.1 2008/02/08 18:02:04 robertemay Exp $ # Testing that AxWindow.dll has the same version as AxWindow.pm use strict; use warnings; BEGIN { $| = 1 } # Autoflush use Test::More tests => 4; use Win32::GUI(); use Win32::GUI::AxWindow(); my($maj_pm, $min_pm, $rc_pm); my $version = $Win32::GUI::AxWindow::VERSION . '00'; if($version =~ m/^(\d+)\.(\d\d)(\d\d)/) { ($maj_pm, $min_pm, $rc_pm) = ($1, $2, $3); } my ($maj_rc, $min_rc, $rc_rc, $extra) = Win32::GUI::GetDllVersion('AxWindow.dll'); ok($maj_pm == $maj_rc, "Major Version numbers the same"); ok($min_pm == $min_rc, "Minor Version numbers the same"); ok($rc_pm == $rc_rc, "RC numbers the same"); ok(!defined $extra, "No extra information"); |
|
From: Robert M. <rob...@us...> - 2008-02-08 16:42:08
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11771 Modified Files: CHANGELOG GUI_Helpers.cpp Log Message: perlud->svSelf is a weak ref, and will be undef is the thing it was referencing has been destroyed. Index: GUI_Helpers.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Helpers.cpp,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** GUI_Helpers.cpp 20 Jan 2007 19:45:44 -0000 1.24 --- GUI_Helpers.cpp 8 Feb 2008 16:42:11 -0000 1.25 *************** *** 66,70 **** // Check perlpud if (perlud != NULL) { ! HWND hwnd_self = handle_From(NOTXSCALL perlud->svSelf); // Free event hash --- 66,70 ---- // Check perlpud if (perlud != NULL) { ! HWND hwnd_self = SvOK(perlud->svSelf) ? handle_From(NOTXSCALL perlud->svSelf) : NULL; // Free event hash *************** *** 127,131 **** // If we stored an original wndproc, then restore it so that // WM_NCDESTORY messages get there. ! if (perlud->WndProc) { SetWindowLong(hwnd_self, GWL_WNDPROC, (LONG)(perlud->WndProc)); } --- 127,131 ---- // If we stored an original wndproc, then restore it so that // WM_NCDESTORY messages get there. ! if (hwnd_self && perlud->WndProc) { SetWindowLong(hwnd_self, GWL_WNDPROC, (LONG)(perlud->WndProc)); } Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.140 retrieving revision 1.141 diff -C2 -d -r1.140 -r1.141 *** CHANGELOG 8 Feb 2008 14:44:57 -0000 1.140 --- CHANGELOG 8 Feb 2008 16:42:11 -0000 1.141 *************** *** 7,10 **** --- 7,14 ---- =================== + [Robert May] : 8 February 2008 - Correct number of tests + - t\GUI_Helpers.cpp - fix another spot where we could be calling + handle_From() with a weak (and already freed) SV. + + + [Robert May] : 8 February 2008 - Correct number of tests - t\02_window.t - correct test count for new test added |
|
From: Robert M. <rob...@us...> - 2008-02-08 14:52:10
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1468 Modified Files: CHANGELOG Log Message: correct test count for new test added Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.139 retrieving revision 1.140 diff -C2 -d -r1.139 -r1.140 *** CHANGELOG 8 Feb 2008 14:34:18 -0000 1.139 --- CHANGELOG 8 Feb 2008 14:44:57 -0000 1.140 *************** *** 6,9 **** --- 6,12 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 8 February 2008 - Correct number of tests + - t\02_window.t - correct test count for new test added + + [Robert May] : 8 February 2008 - Prepare for 1.06 RC2 - GUI.pm - up version to 1.05_91 in preparation for 1.06 RC2 |
|
From: Robert M. <rob...@us...> - 2008-02-08 14:51:50
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1468/t Modified Files: 02_window.t Log Message: correct test count for new test added Index: 02_window.t =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/02_window.t,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** 02_window.t 8 Feb 2008 14:24:37 -0000 1.4 --- 02_window.t 8 Feb 2008 14:44:57 -0000 1.5 *************** *** 11,15 **** BEGIN { $| = 1 } # Autoflush ! use Test::More tests => 16; use Win32::GUI(); --- 11,15 ---- BEGIN { $| = 1 } # Autoflush ! use Test::More tests => 17; use Win32::GUI(); |
|
From: Robert M. <rob...@us...> - 2008-02-08 14:34:17
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30337 Modified Files: CHANGELOG GUI.pm Log Message: Prepare for 1.06 RC2 Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.67 retrieving revision 1.68 diff -C2 -d -r1.67 -r1.68 *** GUI.pm 1 Feb 2008 13:33:22 -0000 1.67 --- GUI.pm 8 Feb 2008 14:34:18 -0000 1.68 *************** *** 20,24 **** # STATIC OBJECT PROPERTIES # ! $VERSION = "1.05_90"; # For MakeMaker and CPAN $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) --- 20,24 ---- # STATIC OBJECT PROPERTIES # ! $VERSION = "1.05_91"; # For MakeMaker and CPAN $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.138 retrieving revision 1.139 diff -C2 -d -r1.138 -r1.139 *** CHANGELOG 8 Feb 2008 14:24:38 -0000 1.138 --- CHANGELOG 8 Feb 2008 14:34:18 -0000 1.139 *************** *** 6,9 **** --- 6,12 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 8 February 2008 - Prepare for 1.06 RC2 + - GUI.pm - up version to 1.05_91 in preparation for 1.06 RC2 + + [Robert May] : 8 February 2008 - Fix $w->{-handle} availability - GUI_Messageloops.cpp - when using WS_POPUP we discover that |
|
From: Robert M. <rob...@us...> - 2008-02-08 14:29:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26710/t Modified Files: 02_window.t Log Message: Fix 'uninitialised value in subroutine entry' reported to the users list by M2U (Matthias). Index: 02_window.t =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/t/02_window.t,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** 02_window.t 16 May 2006 18:57:26 -0000 1.3 --- 02_window.t 8 Feb 2008 14:24:37 -0000 1.4 *************** *** 56,57 **** --- 56,76 ---- is($W->Text ,"TestChanged", "Change winodw TITLE"); + # Adding style WS_POPUP causes a change in message ordering during + # CreateWindowEx(), esp. it adds a WM_SIZE, which we will try to + # dispatch. Prior to 1.05_90 we didn't have $win->{-handle} + # set before the callback, resuting in 'use of uninitialised + # value in subroutine entry' when calling handleFrom() in XS. + { + use warnings; + use Win32::GUI::Constants(); + + my $warning; + local $SIG{__WARN__} = sub { + $warning = $_[0]; + }; + + $warning = ''; + my $win = Win32::GUI::Window->new(-addstyle => Win32::GUI::Constants::WS_POPUP()); + undef $win; + is($warning, '', "Don't want warnings from constructors"); + } |
|
From: Robert M. <rob...@us...> - 2008-02-08 14:29:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26710 Modified Files: CHANGELOG GUI_MessageLoops.cpp Log Message: Fix 'uninitialised value in subroutine entry' reported to the users list by M2U (Matthias). Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.137 retrieving revision 1.138 diff -C2 -d -r1.137 -r1.138 *** CHANGELOG 2 Feb 2008 13:25:57 -0000 1.137 --- CHANGELOG 8 Feb 2008 14:24:38 -0000 1.138 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 8 February 2008 - Fix $w->{-handle} availability + - GUI_Messageloops.cpp - when using WS_POPUP we discover that + we're not setting {-handle} early enough. Fix this. + - t\02_window.t - add test for above problem + + [Robert May] : 2 February 2008 - Fix make PPM on 5.10 - MANIFEST - add new Scintilla test files. Index: GUI_MessageLoops.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_MessageLoops.cpp,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** GUI_MessageLoops.cpp 15 Jul 2007 18:47:13 -0000 1.23 --- GUI_MessageLoops.cpp 8 Feb 2008 14:24:38 -0000 1.24 *************** *** 206,209 **** --- 206,210 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag *************** *** 717,720 **** --- 718,722 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_MDIFRAME , 1); // Set MDI Frame flag *************** *** 798,801 **** --- 800,804 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_MDICHILD , 1); // Set MDI Frame flag *************** *** 834,837 **** --- 837,841 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag *************** *** 1031,1034 **** --- 1035,1039 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CONTAINER , 1); // Set Container flag *************** *** 1069,1072 **** --- 1074,1078 ---- PERLUD_FETCH; SetWindowLong(hwnd, GWL_USERDATA, (long) perlud); + hv_store_mg(NOTXSCALL (HV*)SvRV(perlud->svSelf), "-handle", 7, newSViv((long)hwnd), 0); SwitchBit(perlud->dwPlStyle, PERLWIN32GUI_CUSTOMCLASS, 1); // Set Custom class flag |
