Collect all groups contained in self

Property definitions

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