[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.103, 1.104 Combobox.xs, 1.7, 1.8 GUI.pm, 1.56, 1.

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	CHANGELOG Combobox.xs GUI.pm GUI.xs 
Log Message:
Bug Fixes

Index: GUI.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v
retrieving revision 1.62
retrieving revision 1.63
diff -C2 -d -r1.62 -r1.63
*** GUI.xs	16 Jul 2006 13:02:29 -0000	1.62
--- GUI.xs	31 Oct 2006 22:24:15 -0000	1.63
***************
*** 2882,2886 ****
      ###########################################################################
      # (@)METHOD:AbsLeft([LEFT])
!     # Gets or sets the absolute left co-ordinate of an object.
      #
      # See also Left()
--- 2882,2886 ----
      ###########################################################################
      # (@)METHOD:AbsLeft([LEFT])
!     # Gets or sets the absolute left (screen) co-ordinate of a window.
      #
      # See also Left()
***************
*** 2891,2920 ****
  PREINIT:
      RECT myRect;
  PPCODE:
      if(!GetWindowRect(handle, &myRect)) {
          XSRETURN_UNDEF;
!     } else {
!         if(items > 1) {
!             if(SetWindowPos(
!                 handle, (HWND) NULL,
!                 (int) SvIV(ST(1)), (int) myRect.top, (int) myRect.right, (int) myRect.bottom,
!                 SWP_NOZORDER | SWP_NOOWNERZORDER | SWP_NOSIZE | SWP_DEFERERASE
!             )) {
!                 XSRETURN_YES;
!             }
!             else {
!                 XSRETURN_NO;
!             }
          }
          else {
!             EXTEND(SP, 1);
!             XST_mIV(0, myRect.left);
!             XSRETURN(1);
          }
      }
  
      ###########################################################################
      # (@)METHOD:AbsTop([TOP])
!     # Gets or sets the absolute top co-ordinate of an object.
      #
      # See also Top()
--- 2891,2926 ----
  PREINIT:
      RECT myRect;
+     HWND parent;
  PPCODE:
      if(!GetWindowRect(handle, &myRect)) {
          XSRETURN_UNDEF;
!     }
! 
!     /* Set */
!     if(items > 1) {
!         myRect.left = SvIV(ST(1));
! 
!         /* If we're a child window convert to parent's client co-ordinates */
!         if(parent = GetAncestor(handle, GA_PARENT)) {
!             ScreenToClient(parent, (LPPOINT)&myRect);
!         }
! 
!         if(SetWindowPos(handle, NULL, (int)myRect.left, (int)myRect.top,
!                          0, 0, SWP_NOZORDER | SWP_NOSIZE)) {
!             XSRETURN_YES;
          }
          else {
!             XSRETURN_NO;
          }
      }
  
+     /* Get */
+     EXTEND(SP, 1);
+     XST_mIV(0, myRect.left);
+     XSRETURN(1);
+ 
      ###########################################################################
      # (@)METHOD:AbsTop([TOP])
!     # Gets or sets the absolute top (screen) co-ordinate of a window.
      #
      # See also Top()
***************
*** 2925,2951 ****
  PREINIT:
      RECT myRect;
  PPCODE:
      if(!GetWindowRect(handle, &myRect)) {
          XSRETURN_UNDEF;
!     } else {
!         if(items > 1) {
!             if(SetWindowPos(
!                 handle, (HWND) NULL,
!                 (int) myRect.left, (int) SvIV(ST(1)), (int) myRect.right, (int) myRect.bottom,
!                 SWP_NOZORDER | SWP_NOOWNERZORDER | SWP_NOSIZE | SWP_DEFERERASE
!             )) {
!                 XSRETURN_YES;
!             }
!             else {
!                 XSRETURN_NO;
!             }
          }
          else {
!             EXTEND(SP, 1);
!             XST_mIV(0, myRect.top);
!             XSRETURN(1);
          }
      }
  
      ###########################################################################
      # (@)METHOD:ScreenToClient(X, Y)
--- 2931,2963 ----
  PREINIT:
      RECT myRect;
+     HWND parent;
  PPCODE:
      if(!GetWindowRect(handle, &myRect)) {
          XSRETURN_UNDEF;
!     }
! 
!     /* Set */
!     if(items > 1) {
!         myRect.top = SvIV(ST(1));
! 
!         /* If we're a child window convert to parent's client co-ordinates */
!         if(parent = GetAncestor(handle, GA_PARENT)) {
!             ScreenToClient(parent, (LPPOINT)&myRect);
!         }
! 
!         if(SetWindowPos(handle, NULL, (int)myRect.left, (int)myRect.top,
!                          0, 0, SWP_NOZORDER | SWP_NOSIZE)) {
!             XSRETURN_YES;
          }
          else {
!             XSRETURN_NO;
          }
      }
  
+     /* Get */
+     EXTEND(SP, 1);
+     XST_mIV(0, myRect.top);
+     XSRETURN(1);
+ 
      ###########################################################################
      # (@)METHOD:ScreenToClient(X, Y)

Index: Combobox.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Combobox.xs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Combobox.xs	16 Oct 2005 08:03:20 -0000	1.7
--- Combobox.xs	31 Oct 2006 22:24:15 -0000	1.8
***************
*** 552,563 ****
      ###########################################################################
      # (@)METHOD:SetEditSel(START,END)
!     # Select characters in the textfield.
  LRESULT
  SetEditSel(handle,start,end)
      HWND handle
!     WPARAM start
!     WPARAM end
  CODE:
!     RETVAL = SendMessage(handle, CB_SETEDITSEL, start, (LPARAM) end);
  OUTPUT:
      RETVAL
--- 552,576 ----
      ###########################################################################
      # (@)METHOD:SetEditSel(START,END)
!     # Select characters in the textfield.  START and END are the
!     # (zero-based) index of the characters to be selected.  START
!     # is the index of the first character to be selected, and END
!     # is the index of the first character following the selection.
!     # For example to select the first 4 characters:
!     # 
!     #    $combobox->SetEditSel(0,4);
!     #
!     # If START is -1, the any selection is removed.  If END is -1,
!     # then the selection is from START to the last character in the
!     # textfield.
!     #
!     # Returns 1 on success, 0 on failure and -1 if sent to a
!     # Combobox that does not have a textfield (C<-dropdownlist => 1>).
  LRESULT
  SetEditSel(handle,start,end)
      HWND handle
!     UINT start
!     UINT end
  CODE:
!     RETVAL = SendMessage(handle, CB_SETEDITSEL, 0, MAKELPARAM(start, end));
  OUTPUT:
      RETVAL

Index: GUI.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** GUI.pm	15 Oct 2006 14:07:45 -0000	1.56
--- GUI.pm	31 Oct 2006 22:24:15 -0000	1.57
***************
*** 20,24 ****
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.04";        # For MakeMaker
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
--- 20,24 ----
  # STATIC OBJECT PROPERTIES
  #
! $VERSION             = "1.04_01";     # For MakeMaker
  $XS_VERSION          = $VERSION;      # For dynaloader
  $VERSION             = eval $VERSION; # For Perl  (see perldoc perlmodstyle)
***************
*** 2774,2782 ****
      $self->{-balloon_icon} = $args{-balloon_icon};
  
!     my $result = Win32::GUI::NotifyIcon::_Add($self->{-handle}, %args);
! 
!     return undef unless $result;
! 
!     # Only modify parent if we were created successfully
      # Store name in parent's notifyicons hash
      $window->{-notifyicons}->{$args{-id}} = $args{-name};
--- 2774,2780 ----
      $self->{-balloon_icon} = $args{-balloon_icon};
  
!     # ParseNotifyIconOptions() needs these values to be set in order
!     # to correctly sore NEM events, so set them before calling
!     # _Add().
      # Store name in parent's notifyicons hash
      $window->{-notifyicons}->{$args{-id}} = $args{-name};
***************
*** 2784,2788 ****
      $window->{$args{-name}} = $self;
  
!     return $self;
  }
  
--- 2782,2794 ----
      $window->{$args{-name}} = $self;
  
!     my $result = Win32::GUI::NotifyIcon::_Add($self->{-handle}, %args);
! 
!     return $self if $result;
! 
!     # Failed to create the Notfiy Icon, so tidy up parent
!     delete $window->{-notifyicons}->{$args{-id}};
!     delete $window->{$args{-name}};
! 
!     return; # return undef or empty list
  }
  

Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.103
retrieving revision 1.104
diff -C2 -d -r1.103 -r1.104
*** CHANGELOG	15 Oct 2006 14:07:45 -0000	1.103
--- CHANGELOG	31 Oct 2006 22:24:15 -0000	1.104
***************
*** 6,9 ****
--- 6,18 ----
  Win32-GUI ChangeLog
  ===================
+ + [Robert May] : 30 October 2006 - Bug Fixes
+     - GUI.pm - up version to 1.04_01
+     - GUI.pm - Fix NEM events for NotifyIcon class (Tracker: 1585293)
+     - Combobox.xs - Fix SetEditSel method (Tracker: 1586617)
+     - GUI.xs - Fix AbsLeft and AbsTop method (Tracker: 1578492)
+     --- Win32::GUI::ReleaseNotes ---
+     - RN_1_05.pod - add file
+     - ReleaseNotes.pod - add 1.05 release notes
+ 
  + [Robert May] : 15 October 2006 - 1.04 Release
      - Win32::GUI 1.04 release.  Up versions, fix docs etc.

[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.103, 1.104 Combobox.xs, 1.7, 1.8 GUI.pm, 1.56, 1.

[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG, 1.103, 1.104 Combobox.xs, 1.7, 1.8 GUI.pm, 1.56, 1.57 GUI.xs, 1.62, 1.63