/**
 * Created by: sturm
 * Creation date: 27.11.2013
 *
 * DXL Editor is provided by SODIUS (www.sodius.com)
 */
pragma encoding, "UTF-8"

Module m = current
Object o
string iai
bool inh = false
for o in entire m Module do {
	iai = isAccessInherited(o, inh)
	print "Object " identifier o " inherited: " inh "\n"
	iai = inherited(o)
}