Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1635 -r1636
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1635)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1636)
@@ -24,11 +24,26 @@
 	
 	;do ..ControleerInterface(Classname)
 	do ..ControleerMethods(Classname)
+	do ..ControleerProperties(Classname)
 
 	do ..ToonErrors()
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerProperties">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
+	set itProperties = ##class(TECH.ListIterator).%New(Class.Properties)
+	while itProperties.HasNext() {
+		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
+		if '$length(Property.Type) {
+			do ..Errors.Insert("Warning : method "_Property.Name_" ( type missing ) ")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ControleerMethods">
 <FormalSpec>Classname:%String</FormalSpec>
 <Implementation><![CDATA[