Re: [Harbour] hb_gtInfoEx( pGT, nGtInfo, xValue, xValue2 ) - Feature Request

[Pritpal Bedi]

Hello Przemek

<<<
   function hb_gtInfoEx( pGT, ... )
      local pCurrGT := hb_gtSelect( pGT ), xResult
      xResult := hb_gtInfo( pGT, ... )
      hb_gtSelect( pCurrGT )
      return xResult
>>>

<<<
   function hb_gtCurrent()
      return hb_gtSelect()
>>>

FUNCTION Main()
   LOCAL pGT

   pGT := hb_gtSelect()   //  gives me current GT pointer, right ?

   ? pGT // displays 012850AC   

   ? hb_gtInfo( HB_GTI_WINTITLE ) // return windows title => OK

   ? hb_gtInfo( pGT, HB_GTI_WINTITLE ) // appln disappears

   RETURN NIL


source/rtl/gtfunc.c

HB_FUNC( HB_GTINFO )
{
   if( ISNUM( 1 ) )
   {
      HB_GT_INFO gtInfo;

      gtInfo.pNewVal  = hb_param( 2, HB_IT_ANY );
      gtInfo.pNewVal2 = hb_param( 3, HB_IT_ANY );
      gtInfo.pResult  = NULL;

      hb_gtInfo( hb_parni( 1 ), &gtInfo );
      if( gtInfo.pResult )
         hb_itemReturnRelease( gtInfo.pResult );
   }
   else
      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, HB_ERR_FUNCNAME,
HB_ERR_ARGS_BASEPARAMS );
}

May be I am missing something, I suppose 
xResult := hb_gtInfo( pGT, ... )
functionality is not implemented yet. Right ?

Regards
Pritpal Bedi

-- 
View this message in context: 
http://www.nabble.com/hb_gtInfoEx%28-pGT%2C-nGtInfo%2C-xValue%2C-xValue2-%29---Feature-Request-tp20414605p20445886.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour