private init make(mparameter: MParameterType, t: AType)
	do
		_n_id = new TClassid
		_n_id.text = mparameter.name
		_n_type = t
		_mtype = mparameter
	end