This is an automatically generated mail from the syncmail system. Do not reply
directly to this email. Further discussion should take place on the hackers
list: [EMAIL PROTECTED]
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
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-win32-gui-cvscommit mailing list
Perl-win32-gui-cvscommit@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit
http://perl-win32-gui.sourceforge.net/
