[Hwgui-developers] For each in syntax

[Itamar M. L. J. L. <ita...@gm...>]

Hi!
Mr. Alexander, you can remove if desired directive to "FOR EACH" because
harbour include from 2010 year of hdialog.prg and others.

FUNCTION hwg_ReleaseAllWindows( hWnd )

   LOCAL oItem, iCont, nCont

   //  Vamos mandar destruir as filhas
   // Destroi as CHILD's desta MAIN
#ifdef __XHARBOUR__ //can remove these lines

   FOR EACH oItem IN HWindow():aWindows
      IF oItem:oParent != Nil .AND. oItem:oParent:handle == hWnd
         hwg_Sendmessage( oItem:handle, WM_CLOSE, 0, 0 )
      ENDIF
   NEXT
/*
#else //
   nCont := Len( HWindow():aWindows )

   FOR iCont := nCont TO 1 STEP - 1

      IF HWindow():aWindows[iCont]:oParent != Nil .AND. ;
            HWindow():aWindows[iCont]:oParent:handle == hWnd
         hwg_Sendmessage( HWindow():aWindows[iCont]:handle, WM_CLOSE, 0, 0 )
      ENDIF

   NEXT
#endif
*/

Best regards,
Itamar M. Lins Jr.