Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1633 -r1634
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1633)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1634)
@@ -22,10 +22,45 @@
 
 	do ..Errors.Clear()
 	
+	;do ..ControleerInterface(Classname)
+	do ..ControleerMethods(Classname)
+
+	do ..ToonErrors()
+]]></Implementation>
+</Method>
+
+<Method name="ControleerMethods">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
 	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
 	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
 	while itMethods.HasNext() {
 		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
+		set itFormalSpecs = ##class(TECH.PiecesIterator).%New(Method.FormalSpec,",")
+		while itFormalSpecs.HasNext() {
+			#dim FormalSpec = itFormalSpecs.Next()
+			#dim ParameterName As %String = $piece(FormalSpec,":",1)
+			#dim ParameterType As %String = $piece(FormalSpec,":",2)
+			if '$length(ParameterType) {
+				do ..Errors.Insert("Warning : method "_Method.Name_" Parameter "_ParameterName_" ( type missing ) ")
+			}
+			elseif $extract(ParameterType)'="%" && ( ParameterType'["." ) {
+				do ..Errors.Insert("Warning : method "_Method.Name_" Parameter "_ParameterName_" ( package name incomplete ) ")
+			}
+				
+		}
+		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerInterface">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
+	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
+	while itMethods.HasNext() {
+		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
 		continue:##class(TECH.StringUtils).StartsWith(Method.Name,"%")
 		if Method.Abstract {
 			do ..Methods.SetAt(0,Method.Name)		
@@ -62,8 +97,6 @@
 			do ..Errors.Insert(MethodName _ " niet geimplementeerd")
 		}
 	}
-	
-	do ..ToonErrors()
 ]]></Implementation>
 </Method>