fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* contrib/libct/screen1.c

Browse Source 
! Now return correctly a numeric value.
This commit is contained in:
Walter Negro
2002-05-30 03:46:39 +00:00
parent fca862ab0c
commit 72fa84b903
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/contrib/libct/screen1.c
View File

@@ -56,7 +56,7 @@
/* $DOC$
* $FUNCNAME$
* SCREENATTE()
* SCREENATTR()
* $CATEGORY$
* CT3 video functions
* $ONELINER$
@@ -102,19 +102,19 @@ HB_FUNC( SCREENATTR )
iCol = hb_parni( 2 );
hb_gtRectSize( iRow, iCol, iRow, iCol, &uiSize );
pcPos = (char * ) hb_xalloc( uiSize );
pcPos = (char * ) hb_xalloc( uiSize + 1 );
if( pcPos != NULL )
{
hb_gtSave( iRow, iCol, iRow, iCol, pcPos );
pcPos[1] = pcPos[2];
pcPos[2] = 0x00;
hb_retc_buffer( pcPos );
hb_retni( ( int ) pcPos[1] );
}
else
hb_retc( NULL );
hb_retni( 0 );
hb_xfree( pcPos );
}