Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27009
Modified Files:
CHANGELOG GUI.xs ImageList.xs ListView.xs
Log Message:
Enhancements from Reini Urban - Part 1
Index: ImageList.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/ImageList.xs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ImageList.xs 16 Mar 2006 21:11:11 -0000 1.9
--- ImageList.xs 16 Mar 2006 23:14:31 -0000 1.10
***************
*** 480,483 ****
--- 480,484 ----
# if no parameter is given, returns a 2 element array (X, Y),
# otherwise sets the size to the given parameters.
+ # If X and Y is given, also removes all images from the list.
void
Size(handle,...)
Index: GUI.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** GUI.xs 16 Mar 2006 21:31:42 -0000 1.51
--- GUI.xs 16 Mar 2006 23:14:31 -0000 1.52
***************
*** 1001,1005 ****
###########################################################################
! # (@)METHOD:DoEvents()
# Performs all pending GUI events and returns the status. If DoEvents()
# returns -1, your GUI has normally terminated.
--- 1001,1005 ----
###########################################################################
! #
(@)METHOD:DoEvents(hwnd=NULL,wMsgFilterMin=0,wMsgFilterMax=0,wRemoveMsg=PM_REMOVE)
# Performs all pending GUI events and returns the status. If DoEvents()
# returns -1, your GUI has normally terminated.
***************
*** 1011,1016 ****
# see also Dialog()
DWORD
! DoEvents(hwnd=NULL)
HWND hwnd
PREINIT:
MSG msg;
--- 1011,1019 ----
# see also Dialog()
DWORD
! DoEvents(hwnd=NULL,wMsgFilterMin=0,wMsgFilterMax=0,wRemoveMsg=PM_REMOVE)
HWND hwnd
+ UINT wMsgFilterMin
+ UINT wMsgFilterMax
+ UINT wRemoveMsg
PREINIT:
MSG msg;
***************
*** 1026,1030 ****
fIsDialog = FALSE;
while(stayhere) {
! stayhere = PeekMessage(&msg, hwnd, 0, 0, PM_REMOVE);
#ifdef PERLWIN32GUI_STRONGDEBUG
printf("XS(DoEvents): PeekMessage returned %d\n", stayhere);
--- 1029,1033 ----
fIsDialog = FALSE;
while(stayhere) {
! stayhere = PeekMessage(&msg, hwnd, wMsgFilterMin, wMsgFilterMax,
wRemoveMsg);
#ifdef PERLWIN32GUI_STRONGDEBUG
printf("XS(DoEvents): PeekMessage returned %d\n", stayhere);
***************
*** 1430,1433 ****
--- 1433,1440 ----
// Attempt to load from current EXE:
bitmap = (HBITMAP) LoadImage((HINSTANCE) moduleHandle, filename, iType,
iX, iY, LR_DEFAULTCOLOR);
+ // Try OEM ressource
+ if(bitmap == NULL) {
+ bitmap = (HBITMAP) LoadImage((HINSTANCE) NULL,
MAKEINTRESOURCE(filename), iType, iX, iY, LR_DEFAULTCOLOR);
+ }
if(bitmap == NULL) {
// Ok, that failed. So attempt to load from file:
***************
*** 1749,1752 ****
--- 1756,1802 ----
###########################################################################
+ # (@)METHOD:SetWindowPos(INSERTAFTER,X,Y,cx,cy,FLAGS)
+ # The SetWindowPos function changes the size, position,
+ # and Z order of a child, pop-up, or top-level
+ # window. Child, pop-up, and top-level windows are
+ # ordered according to their appearance on the
+ # screen. The topmost window receives the highest rank
+ # and is the first window in the Z order.
+ #
+ # INSERTAFTER - window to precede the positioned window
+ # in the Z order. This parameter must be a window object,
+ # a window handle or one of the following integer values.
+ # HWND_BOTTOM
+ # Places the window at the bottom of the Z order. If
+ # the WINDOW parameter identifies a topmost window,
+ # the window loses its topmost status and is placed
+ # at the bottom of all other windows.
+ # HWND_NOTOPMOST
+ # Places the window above all non-topmost windows
+ # (that is, behind all topmost windows). This flag
+ # has no effect if the window is already a
+ # non-topmost window.
+ # HWND_TOP
+ # Places the window at the top of the Z order.
+ # HWND_TOPMOST
+ # Places the window above all non-topmost
+ # windows. The window maintains its topmost position
+ # even when it is deactivated.
+ BOOL
+ SetWindowPos(handle,insertafter,X,Y,cx,cy,flags)
+ HWND handle
+ HWND insertafter
+ int X
+ int Y
+ int cx
+ int cy
+ int flags
+ CODE:
+ RETVAL = SetWindowPos(handle, insertafter, X, Y, cx, cy, flags);
+ OUTPUT:
+ RETVAL
+
+
+
###########################################################################
# (@)METHOD:GetWindow(COMMAND)
# Returns handle of the window that has the specified
Index: CHANGELOG
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** CHANGELOG 16 Mar 2006 21:31:42 -0000 1.73
--- CHANGELOG 16 Mar 2006 23:14:31 -0000 1.74
***************
*** 6,9 ****
--- 6,15 ----
Win32-GUI ChangeLog
===================
+ + [Robert May] : 16 Mar 2006 - Changes from Reini Urban
+ - GUI.xs Add more options to DoEvents(). Add SetWindowPos().
+ - GUI.xs enhance LoadImage to try OEM resources
+ - ImageList.xs additional documentation
+ - other documentation typos
+
+ [Robert May] : 16 Mar 2006 - bug fix and addition of GetKeyState
- Added Win32::GUI::GetKeyState
Index: ListView.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/ListView.xs,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ListView.xs 16 Mar 2006 21:11:11 -0000 1.12
--- ListView.xs 16 Mar 2006 23:14:31 -0000 1.13
***************
*** 866,870 ****
###########################################################################
# (@)METHOD:GetNextItem(index,[mask=LVNI_ALL])
! # Searches for a list view item that has the specified properties and
bears the specified relationship to a specified item.
UINT
GetNextItem(handle,index,mask=LVNI_ALL)
--- 866,871 ----
###########################################################################
# (@)METHOD:GetNextItem(index,[mask=LVNI_ALL])
! # Searches for a list view item that has the specified properties and
bears
! # the specified relationship to a specified item.
UINT
GetNextItem(handle,index,mask=LVNI_ALL)
***************
*** 938,942 ****
###########################################################################
# (@)METHOD:GetStringWidth(STRING)
! # Determines the width of a specified string using the specified
ListView's current font.
int
GetStringWidth(handle,string)
--- 939,944 ----
###########################################################################
# (@)METHOD:GetStringWidth(STRING)
! # Determines the width of a specified string using the specified
ListView's
! # current font.
int
GetStringWidth(handle,string)
