[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG,1.64,1.65 Combobox.xs,1.6,1.7 Listbox.xs,1.3,1.4

[jw]

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

Modified Files:
        CHANGELOG Combobox.xs Listbox.xs 
Log Message:
Bug fix - not enough space malloc'ed for strings

Index: Combobox.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Combobox.xs,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Combobox.xs 26 Jun 2005 16:40:59 -0000      1.6
--- Combobox.xs 16 Oct 2005 08:03:20 -0000      1.7
***************
*** 399,403 ****
      cbString = SendMessage(handle, CB_GETLBTEXTLEN, index, 0);
      if(cbString != LB_ERR) {
!         szString = (char *) safemalloc(cbString);
          if(SendMessage(handle, CB_GETLBTEXT,
                         index, (LPARAM) (LPCTSTR) szString) != LB_ERR) {
--- 399,403 ----
      cbString = SendMessage(handle, CB_GETLBTEXTLEN, index, 0);
      if(cbString != LB_ERR) {
!         szString = (char *) safemalloc(cbString+1);
          if(SendMessage(handle, CB_GETLBTEXT,
                         index, (LPARAM) (LPCTSTR) szString) != LB_ERR) {

Index: Listbox.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Listbox.xs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Listbox.xs  4 Apr 2004 18:01:34 -0000       1.3
--- Listbox.xs  16 Oct 2005 08:03:20 -0000      1.4
***************
*** 404,408 ****
      cbString = SendMessage(handle, LB_GETTEXTLEN, index, 0);
      if(cbString != LB_ERR) {
!         szString = (char *) safemalloc(cbString);
          if(SendMessage(handle, LB_GETTEXT, index, (LPARAM) (LPCTSTR) 
szString) != LB_ERR) {
              EXTEND(SP, 1);
--- 404,408 ----
      cbString = SendMessage(handle, LB_GETTEXTLEN, index, 0);
      if(cbString != LB_ERR) {
!         szString = (char *) safemalloc(cbString+1);
          if(SendMessage(handle, LB_GETTEXT, index, (LPARAM) (LPCTSTR) 
szString) != LB_ERR) {
              EXTEND(SP, 1);

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** CHANGELOG   5 Oct 2005 22:20:48 -0000       1.64
--- CHANGELOG   16 Oct 2005 08:03:19 -0000      1.65
***************
*** 6,9 ****
--- 6,12 ----
  Win32-GUI ChangeLog
  ===================
+ + [Jeremy White] : Bug fix - not enough space malloc'ed for strings
+     - Combobox.xs: added 1 to safemalloc
+     - Listbox.xs: added 1 to safemalloc
  
  + [Robert May] : 4 Oct 2005 - Bug fixes and preparing for 1.03 release