[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-ReleaseNotes RN_1_04.pod, 1.4, 1.5

[Robert May]

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

Modified Files:
RN_1_04.pod 
Log Message:
remove legacy GUI namespace

Index: RN_1_04.pod
===
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_04.pod,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** RN_1_04.pod 30 Aug 2006 21:58:39 -  1.4
--- RN_1_04.pod 7 Sep 2006 18:45:51 -   1.5
***
*** 336,339 
--- 336,346 
$NI->Delete(-id => 1);
  
+ =head2 Removal of GUI:: namespace
+ 
+ For at least the last 6 years the Win32::GUI namespace has been
+ aliased to the GUI namespace for backwards compatibility with
+ very early scripts.  This aliasing has been removed, and any
+ remaining scripts will need updating.
+ 
  =head1 Contributors to this release
  

[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.97, 1.98 GUI.pm, 1.53, 1.54

[Robert May]

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 -   1.53
--- GUI.pm  7 Sep 2006 18:45:50 -   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 -  1.97
--- CHANGELOG   7 Sep 2006 18:45:50 -   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