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 <[EMAIL PROTECTED]>
#
! # 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 <[EMAIL PROTECTED]>
#
[...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 ---
