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

2008-10-23 04:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/gtapi.c
    * LOCK/UNLOCK GT in hb_gtBeginWrite()/hb_gtEndWrite()

  * harbour/contrib/hbct/showtime.prg
    ! added missing common.ch

  * harbour/contrib/hbct/screen2.c
    % use hb_gtPutText() in _HB_CTDSPTIME()

  * harbour/contrib/hbct/screen1.c
    * forrmatting
This commit is contained in:
Przemyslaw Czerpak
2008-10-23 02:35:36 +00:00
parent afea8ee0dd
commit 0acecef1af
5 changed files with 29 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -8,6 +8,19 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-23 04:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtapi.c
* LOCK/UNLOCK GT in hb_gtBeginWrite()/hb_gtEndWrite()
* harbour/contrib/hbct/showtime.prg
! added missing common.ch
* harbour/contrib/hbct/screen2.c
% use hb_gtPutText() in _HB_CTDSPTIME()
* harbour/contrib/hbct/screen1.c
* forrmatting
2008-10-23 04:01 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtxwc/gtxwc.h
* harbour/source/rtl/gtxwc/gtxwc.c

2
harbour/contrib/hbct/screen1.c
View File

@@ -389,7 +389,7 @@ HB_FUNC( INVERTWIN )
{
BYTE bColor, bAttr;
USHORT usChar;
hb_gtGetChar( iTop, iCol, &bColor, &bAttr, &usChar );
bColor = ( bColor & 0x88 ) |
( ( bColor & 0x07 ) << 4 ) |

5
harbour/contrib/hbct/screen2.c
View File

@@ -442,8 +442,5 @@ HB_FUNC( _HB_CTDSPTIME )
if( szTime[0] == '0' )
szTime[0] = ' ';
hb_gtDispBegin();
for( i = 0; i < iLen; ++sCol, ++i )
hb_gtPutScrChar( sRow, sCol, iColor, 0, szTime[i] );
hb_gtDispEnd();
hb_gtPutText( sRow, sCol, ( BYTE * ) szTime, iLen, iColor );
}

2
harbour/contrib/hbct/showtime.prg
View File

@@ -51,6 +51,8 @@
*
*/
#include "common.ch"
FUNCTION SHOWTIME( nRow, nCol, lNoSec, cColor, l12, lAmPm )
STATIC s_hTimer := NIL

14
harbour/source/rtl/gtapi.c
View File

@@ -675,11 +675,20 @@ HB_EXPORT ERRCODE hb_gtPutChar( USHORT uiRow, USHORT uiCol, BYTE bColor, BYTE bA
HB_EXPORT ERRCODE hb_gtBeginWrite( void )
{
ERRCODE errCode = FAILURE;
PHB_GT pGT;
HB_TRACE(HB_TR_DEBUG, ("hb_gtBeginWrite()"));
/* Do nothing in Harbour */
pGT = hb_gt_Base();
if( pGT )
{
if( HB_GTSELF_LOCK( pGT ) )
errCode = SUCCESS;
hb_gt_BaseFree( pGT );
}
return SUCCESS;
return errCode;
}
HB_EXPORT ERRCODE hb_gtEndWrite( void )
@@ -692,6 +701,7 @@ HB_EXPORT ERRCODE hb_gtEndWrite( void )
if( pGT )
{
HB_GTSELF_FLUSH( pGT );
HB_GTSELF_UNLOCK( pGT );
hb_gt_BaseFree( pGT );
return SUCCESS;
}