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

Modified Files:
        CHANGELOG GUI.pm 
Log Message:
Fix 'bltr' direction in AnimateWindow

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** GUI.pm      9 Feb 2007 21:56:04 -0000       1.60
--- GUI.pm      15 Jul 2007 18:16:20 -0000      1.61
***************
*** 20,24 ****
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.05_01";     # For MakeMaker
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
--- 20,24 ----
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.05_02";     # For MakeMaker and CPAN
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
***************
*** 402,406 ****
      #     Animation time in milli-seconds
      #
!     #   -direction => (lr|tlbr|tb|trbl|rl|brtl|bt|blrt) default: 'lr'
      #     Animation direction (l=left, r=right, t=top, b=bottom).
      #     Ignored for animation types blend and center
--- 402,406 ----
      #     Animation time in milli-seconds
      #
!     #   -direction => (lr|tlbr|tb|trbl|rl|brtl|bt|bltr) default: 'lr'
      #     Animation direction (l=left, r=right, t=top, b=bottom).
      #     Ignored for animation types blend and center
***************
*** 439,446 ****
     }
  
!    if($direction !~ /lr|tlbr|tb|trbl|rl|brtl|bt|blrt/) {
         require Carp;
         Carp::carp "Animate: Unrecognised direction: $direction";
!        return undef;
     }
  
--- 439,446 ----
     }
  
!    if($direction !~ /lr|tlbr|tb|trbl|rl|brtl|bt|bltr/) {
         require Carp;
         Carp::carp "Animate: Unrecognised direction: $direction";
!        return undef unless $direction eq 'blrt'; # blrt allowed for 
deprection cycle
     }
  

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.108
retrieving revision 1.109
diff -C2 -d -r1.108 -r1.109
*** CHANGELOG   20 Jan 2007 19:45:44 -0000      1.108
--- CHANGELOG   15 Jul 2007 18:16:20 -0000      1.109
***************
*** 6,9 ****
--- 6,12 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 15 July 2007 -  Bug Fixes
+     - GUI.pm - fix bltr direction in Animate Window [Tim Hansell]
+ 
  + [Robert May] : 20 January 2007 - Restore Original WndProc
      - GUI_Helpers.cpp - restore the window's original wndproc


Reply via email to