Collect all groups contained in self

Property definitions

nitc :: model_collect $ MPackage :: collect_all_mgroups
	# Collect all groups contained in `self`
	fun collect_all_mgroups(filter: nullable ModelFilter): HashSet[MGroup] do
		var res = new HashSet[MGroup]
		for mgroup in mgroups do
			if filter == null or filter.accept_mentity(mgroup) then res.add(mgroup)
		end
		return res
	end
src/model/model_collect.nit:292,2--299,4