/****************************************************************
NAME : DescribeClassCommand
DESCRIPTION : Displays direct superclasses and
subclasses and the entire precedence
list for a class
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : None
NOTES : Syntax : (describe-class <class-name>)
****************************************************************/
globle void DescribeClassCommand(
void *theEnv)
{
char *cname;
DEFCLASS *cls;
cname = GetClassNameArgument(theEnv,"describe-class");
if (cname == NULL)
return;
cls = CheckClass(theEnv,"describe-class",cname);
if (cls == NULL)
return;
EnvDescribeClass(theEnv,WDISPLAY,(void *) cls);
}
globle void DescribeClass(
const char *logicalName,
void *clsptr)
{
EnvDescribeClass(GetCurrentEnvironment(),logicalName,clsptr);
}