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.
