/******************************************************** NAME : EnvUndefclass DESCRIPTION : Deletes the named defclass INPUTS : None RETURNS : TRUE if deleted, or FALSE SIDE EFFECTS : Defclass and handlers removed NOTES : Interface for AddConstruct() ********************************************************/ globle intBool EnvUndefclass( void *theEnv, void *theDefclass) { #if RUN_TIME || BLOAD_ONLY return(FALSE); #else DEFCLASS *cls; cls = (DEFCLASS *) theDefclass; #if BLOAD || BLOAD_AND_BSAVE if (Bloaded(theEnv)) return(FALSE); #endif if (cls == NULL) return(RemoveAllUserClasses(theEnv)); return(DeleteClassUAG(theEnv,cls)); #endif }
/******************************************************** NAME : EnvUndefclass DESCRIPTION : Deletes the named defclass INPUTS : None RETURNS : TRUE if deleted, or FALSE SIDE EFFECTS : Defclass and handlers removed NOTES : Interface for AddConstruct() ********************************************************/ globle intBool EnvUndefclass( void *theEnv, EXEC_STATUS, void *theDefclass) { #if (MAC_MCW || WIN_MCW) && (RUN_TIME || BLOAD_ONLY) #pragma unused(theEnv,execStatus,theDefclass) #endif #if RUN_TIME || BLOAD_ONLY return(FALSE); #else DEFCLASS *cls; cls = (DEFCLASS *) theDefclass; #if BLOAD || BLOAD_AND_BSAVE if (Bloaded(theEnv,execStatus)) return(FALSE); #endif if (cls == NULL) return(RemoveAllUserClasses(theEnv,execStatus)); return(DeleteClassUAG(theEnv,execStatus,cls)); #endif }