New class methods.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@2814 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Adam Fedor 1998-06-24 17:22:34 +00:00
parent f8e6d9b280
commit 1a3d7230f0
2 changed files with 25 additions and 0 deletions

View file

@ -356,6 +356,20 @@ extraRefCount (id anObject)
return (self == anObject);
}
+ (BOOL) isKindOfClass: (Class)aClass
{
Class class;
for (class = self;
class != Nil;
class = class_get_super_class (class))
{
if (class == aClass)
return YES;
}
return NO;
}
- (BOOL) isKindOfClass: (Class)aClass
{
Class class;
@ -370,6 +384,11 @@ extraRefCount (id anObject)
return NO;
}
+ (BOOL) isMemberOfClass: (Class)aClass
{
return self == aClass;
}
- (BOOL) isMemberOfClass: (Class)aClass
{
return self->isa==aClass;