[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG,1.82,1.83 GUI.pm,1.41,1.42 GUI.xs,1.56,1.57 Makefile.PL,1.20,1.21 GUI_Constants.cpp,1.6,NONE

[Robert M. <rob...@us...>]

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

Modified Files:
	CHANGELOG GUI.pm GUI.xs Makefile.PL 
Removed Files:
	GUI_Constants.cpp 
Log Message:
More Win32::GUI::Constants support

Index: GUI.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** GUI.xs	20 Apr 2006 22:20:20 -0000	1.56
--- GUI.xs	16 May 2006 18:57:25 -0000	1.57
***************
*** 30,40 ****
  
       ##########################################################################
!      # (@)INTERNAL:constant(NAME, ARG)
  DWORD
! constant(name,arg)
      char *name
-     int arg
  CODE:
!     RETVAL = constant(NOTXSCALL name, arg);
  OUTPUT:
      RETVAL
--- 30,102 ----
  
       ##########################################################################
!      # (@)INTERNAL:_constant(NAME)
  DWORD
! _constant(name)
      char *name
  CODE:
!     if (strEQ(name, "WIN32__GUI__WINDOW"))
!         RETVAL = WIN32__GUI__WINDOW;
!     else if (strEQ(name, "WIN32__GUI__DIALOG"))
!         RETVAL = WIN32__GUI__DIALOG;
!     else if (strEQ(name, "WIN32__GUI__STATIC"))
!         RETVAL = WIN32__GUI__STATIC;
!     else if (strEQ(name, "WIN32__GUI__BUTTON"))
!         RETVAL = WIN32__GUI__BUTTON;
!     else if (strEQ(name, "WIN32__GUI__EDIT"))
!         RETVAL = WIN32__GUI__EDIT;
!     else if (strEQ(name, "WIN32__GUI__LISTBOX"))
!         RETVAL = WIN32__GUI__LISTBOX;
!     else if (strEQ(name, "WIN32__GUI__COMBOBOX"))
!         RETVAL = WIN32__GUI__COMBOBOX;
!     else if (strEQ(name, "WIN32__GUI__CHECKBOX"))
!         RETVAL = WIN32__GUI__CHECKBOX;
!     else if (strEQ(name, "WIN32__GUI__RADIOBUTTON"))
!         RETVAL = WIN32__GUI__RADIOBUTTON;
!     else if (strEQ(name, "WIN32__GUI__TOOLBAR"))
!         RETVAL = WIN32__GUI__TOOLBAR;
!     else if (strEQ(name, "WIN32__GUI__PROGRESS"))
!         RETVAL = WIN32__GUI__PROGRESS;
!     else if (strEQ(name, "WIN32__GUI__STATUS"))
!         RETVAL = WIN32__GUI__STATUS;
!     else if (strEQ(name, "WIN32__GUI__TAB"))
!         RETVAL = WIN32__GUI__TAB;
!     else if (strEQ(name, "WIN32__GUI__RICHEDIT"))
!         RETVAL = WIN32__GUI__RICHEDIT;
!     else if (strEQ(name, "WIN32__GUI__LISTVIEW"))
!         RETVAL = WIN32__GUI__LISTVIEW;
!     else if (strEQ(name, "WIN32__GUI__TREEVIEW"))
!         RETVAL = WIN32__GUI__TREEVIEW;
!     else if (strEQ(name, "WIN32__GUI__TRACKBAR"))
!         RETVAL = WIN32__GUI__TRACKBAR;
!     else if (strEQ(name, "WIN32__GUI__UPDOWN"))
!         RETVAL = WIN32__GUI__UPDOWN;
!     else if (strEQ(name, "WIN32__GUI__TOOLTIP"))
!         RETVAL = WIN32__GUI__TOOLTIP;
!     else if (strEQ(name, "WIN32__GUI__ANIMATION"))
!         RETVAL = WIN32__GUI__ANIMATION;
!     else if (strEQ(name, "WIN32__GUI__REBAR"))
!         RETVAL = WIN32__GUI__REBAR;
!     else if (strEQ(name, "WIN32__GUI__HEADER"))
!         RETVAL = WIN32__GUI__HEADER;
!     else if (strEQ(name, "WIN32__GUI__COMBOBOXEX"))
!         RETVAL = WIN32__GUI__COMBOBOXEX;
!     else if (strEQ(name, "WIN32__GUI__DTPICK"))
!         RETVAL = WIN32__GUI__DTPICK;
!     else if (strEQ(name, "WIN32__GUI__GRAPHIC"))
!         RETVAL = WIN32__GUI__GRAPHIC;
!     else if (strEQ(name, "WIN32__GUI__GROUPBOX"))
!         RETVAL = WIN32__GUI__GROUPBOX;
!     else if (strEQ(name, "WIN32__GUI__SPLITTER"))
!         RETVAL = WIN32__GUI__SPLITTER;
!     else if (strEQ(name, "WIN32__GUI__MDIFRAME"))
!         RETVAL = WIN32__GUI__MDIFRAME;
!     else if (strEQ(name, "WIN32__GUI__MDICLIENT"))
!         RETVAL = WIN32__GUI__MDICLIENT;
!     else if (strEQ(name, "WIN32__GUI__MDICHILD"))
!         RETVAL = WIN32__GUI__MDICHILD;
!     else if (strEQ(name, "WIN32__GUI__MONTHCAL"))
!         RETVAL = WIN32__GUI__MONTHCAL;
!     else
!         RETVAL = 0xFFFFFFFF;
  OUTPUT:
      RETVAL

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.82
retrieving revision 1.83
diff -C2 -d -r1.82 -r1.83
*** CHANGELOG	13 May 2006 15:39:30 -0000	1.82
--- CHANGELOG	16 May 2006 18:57:25 -0000	1.83
***************
*** 6,9 ****
--- 6,34 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 16 May 2006 - More Win32::GUI::Constants
+     --- Win32::GUI core ---
+     - GUI_constants.cpp removed
+     - Makefile.PL remove GUI_Constants.cpp
+     - GUI.xs change constants() to _constants and support only
+       the Win32__GUI__ constants here
+     - GUI.pm remove EXPORTER and @EXPORT_OK, replace with import()
+       that delegates to Win32::GUI::Constants. Fix AUTOLOAD() to
+       delegate to Win32::GUI::Constants.  Introduce
+       Win32::GUI::constant() that delegates to Win32::GUI::Constants
+       for backwards compatibility.  Changes to Win32::GUI::AUTOLOAD()
+       required removal of unnecessary inheritance on some
+       Win32::GUI::Menu::* classes
+     - samples\* Fix all samples not to warn under new constants
+     support.  Fix terrrible resource leaks inDraw.pl and region.pl.
+     use $FindBin::Dir where we use local files, so that they are
+     found even if the samples directory is not the working directory.
+     Add SPLASH.bmp so that the SplashScreen example does something.
+     - up version to 1.03_03
+     --- Win32::GUI::Constants ---
+     - Constants.PL add more constants: LVSIL_, LVIR_, THT_
+     - Tags.pm add new constants to suitable tags
+     - t\* fix tests not to warn under new constants support. Minor
+       typo corrections, add new constants to 52_tags.t
+ 
  + [Robert May] : 13 May 2006 - Add Win32::GUI::Constants
      - add Win32-GUI-Constants directory and new files

Index: Makefile.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Makefile.PL,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Makefile.PL	25 Apr 2006 21:24:52 -0000	1.20
--- Makefile.PL	16 May 2006 18:57:25 -0000	1.21
***************
*** 175,179 ****
  my @c_files = qw(
      GUI
-     GUI_Constants
      GUI_Events
      GUI_Helpers
--- 175,178 ----

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** GUI.pm	14 Apr 2006 01:52:25 -0000	1.41
--- GUI.pm	16 May 2006 18:57:25 -0000	1.42
***************
*** 5,11 ****
  # 29 Jan 1997 by Aldo Calpini <da...@pe...>
  #
! # Version: 1.02 (10 July 2005)
! #
! # Copyright (c) 1997..2005 Aldo Calpini. All rights reserved.
  # This program is free software; you can redistribute it and/or
  # modify it under the same terms as Perl itself.
--- 5,9 ----
  # 29 Jan 1997 by Aldo Calpini <da...@pe...>
  #
[...998 lines suppressed...]
  
!     return Win32::GUI->_new(Win32::GUI::_constant("WIN32__GUI__GRAPHIC"), @_);
  }
  
***************
*** 2533,2537 ****
  #
  package Win32::GUI::MenuButton;
- @ISA = qw(Win32::GUI);
  
      ###########################################################################
--- 2200,2203 ----
***************
*** 2579,2583 ****
  #
  package Win32::GUI::MenuItem;
- @ISA = qw(Win32::GUI);
  
      ###########################################################################
--- 2245,2248 ----

--- GUI_Constants.cpp DELETED ---