[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.123, 1.124 GUI.pm, 1.64, 1.65

[Robert May]

Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14418

Modified Files:
        CHANGELOG GUI.pm 
Log Message:
Fixup misuse of constants in Win32::GUI::AcceptFiles()

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** GUI.pm      16 Jul 2007 19:24:51 -0000      1.64
--- GUI.pm      16 Jul 2007 19:26:23 -0000      1.65
***************
*** 293,297 ****
      my $accept = shift;
  
!     my $old_accept = $win->GetWindowLong(GWL_EXSTYLE) & WS_EX_ACCEPTFILES() ? 
1 : 0;
  
      if(defined $accept) {
--- 293,298 ----
      my $accept = shift;
  
!     # my $old_accept = $win->GetWindowLong(GWL_EXSTYLE) & WS_EX_ACCEPTFILES() 
? 1 : 0;
!     my $old_accept = $win->GetWindowLong(-20) & 0x00000010 ? 1 : 0;
  
      if(defined $accept) {

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.123
retrieving revision 1.124
diff -C2 -d -r1.123 -r1.124
*** CHANGELOG   16 Jul 2007 19:24:51 -0000      1.123
--- CHANGELOG   16 Jul 2007 19:26:23 -0000      1.124
***************
*** 9,12 ****
--- 9,13 ----
      - GUI.pm - fix Win32::GUI::Imagelist::AddMasked (Tracker: 1734697)
      - GUI.pm - fix -prompt option to Textfield (Tracker: 1734697)
+     - GUI.pm - remove constants from AcceptFiles() [Joseph Cordero]
  
  + [Robert May] : 15 July 2007 -  Bug Fixes