From 4cc513140ed1d71df215ef110c58009c7d0c627d Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 27 Mar 2003 22:39:11 +0000 Subject: [PATCH] hb_clsIsParent() made public --- harbour/include/hbapi.h | 2 +- harbour/source/vm/classes.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/harbour/include/hbapi.h b/harbour/include/hbapi.h index 91046d28bd..44cc215760 100644 --- a/harbour/include/hbapi.h +++ b/harbour/include/hbapi.h @@ -440,6 +440,7 @@ extern double hb_numRound( double dResult, int iDec ); /* round a number to a /* class management */ extern void hb_clsReleaseAll( void ); /* releases all defined classes */ +extern BOOL hb_clsIsParent( USHORT uiClass, char * szParentName ); /* is a class handle inherited from szParentName Class ? */ /* object management */ extern char * hb_objGetClsName( PHB_ITEM pObject ); /* retrieves an object class name */ @@ -618,4 +619,3 @@ extern char * hb_getenv( const char * name ); #endif #endif /* HB_APIEXT_H_ */ - diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index 47983ecc85..22c62436d5 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -203,7 +203,7 @@ static PHB_DYNS s_msgClsParent = NULL; static PHB_ITEM hb_clsInst( USHORT uiClass ); static void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod ); static ULONG hb_cls_MsgToNum( PHB_DYNS pMsg ); -static BOOL hb_clsIsParent( USHORT uiClass, char * szParentName ); + BOOL hb_clsIsParent( USHORT uiClass, char * szParentName ); static void hb_clsDictRealloc( PCLASS pClass ); static void hb_clsRelease( PCLASS ); void hb_clsReleaseAll( void ); @@ -2621,4 +2621,4 @@ HB_FUNC( __CLSGETPROPERTIES ) } hb_itemRelease( hb_itemReturn( pReturn ) ); -} +} \ No newline at end of file