set fRes1 to searchClassInFrameworks("JSContext") of me
–>　　"JavaScriptCore.framework"

set fRes2 to searchClassInFrameworks("NSApplication") of me
–>　　"AppKit.framework"

set fRes3 to searchClassInFrameworks("NSRect") of me
–>　　false

set fRes4 to searchClassInFrameworks("PDFPage") of me
–>　　"Quartz.framework"

set fRes5 to searchClassInFrameworks("NSUTF8StringEncoding") of me
–>　　false

set fRes6 to searchClassInFrameworks("CIColor") of me
–>　　"CoreImage.framework"

on searchClassInFrameworks(aTarget)
　　set aClass to current application’s NSClassFromString(aTarget)
　　if aClass = missing value then return false
　　set theComponenents to (current application’s NSBundle’s bundleForClass:aClass)’s bundleURL’s pathComponents()
　　set thePred to current application’s NSPredicate’s predicateWithFormat:"pathExtension == ’framework’"
　　set aRes to (theComponenents’s filteredArrayUsingPredicate:thePred)’s firstObject() as text
　　return aRes
end searchClassInFrameworks