* ClassIn.prg * Ken R. Levy LPARAMETERS tcClass,tcClassLibrary LOCAL lcClassLibrary,llClassFound,lnCount LOCAL laVCXClasses[1] IF EMPTY(tcClass) OR EMPTY(tcClassLibrary) RETURN .F. ENDIF lcClassLibrary=LOWER(ALLTRIM(tcClassLibrary)) IF EMPTY(JUSTEXT(lcClassLibrary)) lcClassLibrary=FORCEEXT(lcClassLibrary,"vcx") ENDIF IF NOT FILE(lcClassLibrary) RETURN .F. ENDIF llClassFound=.F. FOR lnCount = 1 TO AVCXCLASSES(laVCXClasses,lcClassLibrary) IF LOWER(laVCXClasses[lnCount,1])==LOWER(tcClass) llClassFound=.T. EXIT ENDIF ENDFOR RETURN llClassFound