[Perl-win32-gui-cvscommit] Win32-GUI/docs/GUI/UserGuide Readme.pod,1.5,1.6

[Robert May]

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

Modified Files:
Readme.pod 
Log Message:
Bug fixes (1.03_01)

Index: Readme.pod
===
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/UserGuide/Readme.pod,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Readme.pod  21 Nov 2005 22:33:34 -  1.5
--- Readme.pod  3 Dec 2005 01:56:31 -   1.6
***
*** 158,162 
nmake ppm
  
! This procedure will generate a PPM for you current perl environment,
  including the HTML documentation, ready for installation as above.
  
--- 158,162 
nmake ppm
  
! This procedure will generate a PPM for your current perl environment,
  including the HTML documentation, ready for installation as above.
  

[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG,1.68,1.69 GUI.h,1.21,1.22 GUI.pm,1.35,1.36 GUI.xs,1.46,1.47 ListView.xs,1.9,1.10 Listbox.xs,1.4,1.5 Readme.html,1.4,1.5

[Robert May]

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

Modified Files:
CHANGELOG GUI.h GUI.pm GUI.xs ListView.xs Listbox.xs 
Readme.html 
Log Message:
Bug fixes (1.03_01)

Index: GUI.xs
===
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -d -r1.46 -r1.47
*** GUI.xs  13 Nov 2005 18:57:52 -  1.46
--- GUI.xs  3 Dec 2005 01:56:31 -   1.47
***
*** 950,967 
  }
  
! if(fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, &msg)) {
! continue;
! }
! 
! if(acc && TranslateAccelerator(phwnd, acc, &msg)) {
! continue;
! }
! 
! if(fIsDialog && IsDialogMessage(phwnd, &msg)) {
! continue;
  }
- 
- TranslateMessage(&msg);
- DispatchMessage(&msg);
  }
  
--- 950,960 
  }
  
! if( !( (fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, 
&msg)) ||
!(acc && TranslateAccelerator(phwnd, acc, &msg))
  ||
!(fIsDialog && IsDialogMessage(phwnd, &msg)) ) 
!   ){
! TranslateMessage(&msg);
! DispatchMessage(&msg);
  }
  }
  
***
*** 1025,1042 
  }
  
! if(fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, 
&msg)) {
! continue;
! }
! 
! if(acc && TranslateAccelerator(phwnd, acc, &msg)) {
! continue;
! }
! 
! if(fIsDialog && IsDialogMessage(phwnd, &msg)) {
! continue;
  }
- 
- TranslateMessage(&msg);
- DispatchMessage(&msg);
  }
  }
--- 1018,1028 
  }
  
! if( !( (fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, 
&msg)) ||
!(acc && TranslateAccelerator(phwnd, acc, &msg))
  ||
!(fIsDialog && IsDialogMessage(phwnd, &msg)) ) 
!   ){
! TranslateMessage(&msg);
! DispatchMessage(&msg);
  }
  }
  }
***
*** 1136,1153 
  }
  
! if(fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, &msg)) {
! continue;
! }
! 
! if(acc && TranslateAccelerator(handle, acc, &msg)) {
! continue;
! }
! 
! if(fIsDialog && IsDialogMessage(handle, &msg)) {
! continue;
  }
- 
- TranslateMessage(&msg);
- DispatchMessage(&msg);
  }
  
--- 1122,1132 
  }
  
! if( !( (fIsMDI && TranslateMDISysAccel((HWND)perlud->dwData, 
&msg)) ||
!(acc && TranslateAccelerator(phwnd, acc, &msg))
  ||
!(fIsDialog && IsDialogMessage(phwnd, &msg)) ) 
!   ){
! TranslateMessage(&msg);
! DispatchMessage(&msg);
  }
  }
  

Index: GUI.pm
===
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** GUI.pm  21 Nov 2005 22:33:33 -  1.35
--- GUI.pm  3 Dec 2005 01:56:31 -   1.36
***
*** 25,29 
  # STATIC OBJECT PROPERTIES
  #
! $VERSION = "1.03";# For MakeMaker
  $XS_VERSION  = $VERSION;  # For dynaloader
  $VERSION = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
--- 25,29 
  # STATIC OBJECT PROPERTIES
  #
! $VERSION = "1.03_01"; # For MakeMaker
  $XS_VERSION  = $VERSION;  # For dynaloader
  $VERSION = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
***
*** 1845,1848 
--- 1845,1850 
  sub new {
  $Win32::GUI::RICHED = Win32::GUI::LoadLibrary("RICHED32") unless defined 
$Win32::GUI::RICHED;
+ #TODO: should FreeLibrary when last RichEdit control gets DESTROYed, 
rather than
+ #allowing the process tidy-up to do it.
  return Win32::GUI->_new(Win32::GUI::constant("WIN32__GUI__RICHEDIT", 0), 
@_);
  }
***
*** 3428,3438 
  );
  
- #$Win32::GUI::RICHED = Win32::GUI::LoadLibrary("RICHED32");
- 
- #END {
- # print "Freeing library RICHED32\n";
- #Win32::GUI::FreeLibrary($Win32::GUI::RICHED);
- #}
- 
  #Currently Autoloading is not implemented in Perl for win32
  # Autoload methods go after __END__, and are processed by the autosplit 
program.
--- 3430,3433 

Index: CHANGELOG
=