Fix check for category privacy

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@14756 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-Macdonald 2002-10-13 08:00:48 +00:00
parent 919501dd6c
commit 575fd5bcc8

View file

@ -1800,6 +1800,15 @@ fail:
name = [name stringByAppendingFormat: @"(%@)", category];
unitName = name;
[dict setObject: @"category" forKey: @"Type"];
if ([category caseInsensitiveCompare: @"Private"] == NSOrderedSame)
{
NSString *c;
c = @"<em>Warning</em> this category is <em>private</em>, which "
@"means that the methods are for internal use by the package. "
@"You should not use them in external code.";
[self appendComment: c to: dict];
}
}
else if (buffer[pos] == ':')
{