perl-win32-gui-cvscommit

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

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

Modified Files:
	CHANGELOG GUI.pm 
Log Message:
remove legacy GUI namespace

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** GUI.pm	3 Aug 2006 22:19:40 -0000	1.53
--- GUI.pm	7 Sep 2006 18:45:50 -0000	1.54
***************
*** 17,27 ****
  @ISA = qw( DynaLoader );
  
- # Reserves GUI in the main namespace for us (uhmmm...)
- *GUI:: = \%Win32::GUI::;
- 
  ###############################################################################
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.03_04";     # For MakeMaker
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
--- 17,24 ----
  @ISA = qw( DynaLoader );
  
  ###############################################################################
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.03_05";     # For MakeMaker
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
***************
*** 2414,2418 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my $self = {};
  
--- 2411,2414 ----
***************
*** 2449,2453 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my $menu = shift;
      $menu = $menu->{-handle} if ref($menu);
--- 2445,2448 ----
***************
*** 2501,2505 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my $menu = shift;
      return undef unless ref($menu) =~ /^Win32::GUI::Menu/;
--- 2496,2499 ----
***************
*** 2568,2572 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my $window = shift;
      my $name = shift;
--- 2562,2565 ----
***************
*** 2753,2757 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my $window = shift;
  
--- 2746,2749 ----
***************
*** 2964,2968 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
  
      my $self = {};
--- 2956,2959 ----
***************
*** 3021,3025 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
  
      my $self = {};
--- 3012,3015 ----
***************
*** 3056,3060 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
  
      my $handle = Create(@_);
--- 3046,3049 ----
***************
*** 3106,3110 ****
  sub new {
      my $class = shift;
-     $class = "Win32::" . $class if $class =~ /^GUI::/;
      my($k, $v);
      my $flag = 0;
--- 3095,3098 ----

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.97
retrieving revision 1.98
diff -C2 -d -r1.97 -r1.98
*** CHANGELOG	30 Aug 2006 21:57:58 -0000	1.97
--- CHANGELOG	7 Sep 2006 18:45:50 -0000	1.98
***************
*** 6,9 ****
--- 6,13 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 30 August 2006 - remove legacy GUI namespace
+     - GUI.pm - remove legacy aliasing between Win32::GUI
+       namespace and GUI namespace.
+ 
  + [Robert May] : 30 August 2006 - Cygwin build fixes
      - GUI_Helpers.cpp - SelectObject cast to HFONT