Collect all MClasses introduced in self

Property definitions

nitc :: model_collect $ Model :: collect_intro_mclasses
	# Collect all MClasses introduced in `self`
	fun collect_intro_mclasses(filter: nullable ModelFilter): HashSet[MClass] do
		var res = new HashSet[MClass]
		for mpackage in collect_mpackages(filter) do
			res.add_all mpackage.collect_intro_mclasses(filter)
		end
		return res
	end
src/model/model_collect.nit:186,2--193,4