[Perl-win32-gui-cvscommit] Win32-GUI CHANGELOG,1.73,1.74 GUI.xs,1.51,1.52 ImageList.xs,1.9,1.10 ListView.xs,1.12,1.13

[Robert M. <rob...@us...>]

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)