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

hb_clsIsParent() made public

Browse Source
This commit is contained in:
Antonio Linares
2003-03-27 22:39:11 +00:00
parent 16497401fe
commit 4cc513140e
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/include/hbapi.h
View File

@@ -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_ */

4
harbour/source/vm/classes.c
View File

@@ -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 ) );
}
}