From e34ceb5a1b5634af9fc93359d2c0b7dce999f2be Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 9 Feb 2001 15:43:49 +0000 Subject: [PATCH] HB_CLRAREA() function added --- harbour/source/rtl/shadow.c | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/shadow.c b/harbour/source/rtl/shadow.c index 877e62e619..d21cab53ee 100644 --- a/harbour/source/rtl/shadow.c +++ b/harbour/source/rtl/shadow.c @@ -4,7 +4,7 @@ /* * Harbour Project source code: - * HB_SHADOW(), DBGSHADOW() functions + * HB_SHADOW(), HB_CLRAREA(), DBGSHADOW() functions * * Copyright 1999 Antonio Linares * www - http://www.harbour-project.org @@ -46,6 +46,16 @@ HB_FUNC( HB_SHADOW ) ISNUM( 5 ) ? hb_parni( 5 ) : 7 ); } +HB_FUNC( HB_CLRAREA ) +{ + if( hb_pcount() > 4 ) + hb_gt_SetAttribute( hb_parni( 1 ), + hb_parni( 2 ), + hb_parni( 3 ), + hb_parni( 4 ), + hb_parni( 5 ) ); +} + #ifdef HB_C52_UNDOC HB_FUNC( DBGSHADOW ) @@ -54,4 +64,3 @@ HB_FUNC( DBGSHADOW ) } #endif -