Generate a MPackageTree based on the packages, groups and modules known in the model

Property definitions

nitc :: model_viz $ Model :: to_mpackage_tree
	# Generate a MPackageTree based on the packages, groups and modules known in the model
	fun to_mpackage_tree: MPackageTree
	do
		var res = new MPackageTree(self)
		for p in mpackages do
			for g in p.mgroups do
				res.add(g.parent, g)
				for m in g.mmodules do
					res.add(g, m)
				end
			end
		end
		return res
	end
src/model/model_viz.nit:116,2--129,4