Property definitions

nitc :: model_hyperdoc $ Sys :: linkto
private fun linkto(o: Object): String
do
	if o isa MPackage then
		return "<a href='#package-{o}'>{o}</a>"
	else if o isa MGroup then
		return "<a href='#group-{o}'>{o}</a>"
	else if o isa MModule then
		return "<a href='#module-{o}'>{o}</a>"
	else if o isa MClass then
		return "<a href='#class-{o}'>{o}</a>"
	else if o isa MClassDef then
		return "<a href='#classdef-{o}'>{o}</a>"
	else if o isa MProperty then
		return "<a href='#property-{o}'>{o}</a>"
	else if o isa MPropDef then
		return "<a href='#propdef-{o}'>{o}</a>"
	else
		print "cannot linkto {o.class_name}"
		abort
	end
end
src/metrics/model_hyperdoc.nit:194,1--214,3