Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1637 -r1649
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1637)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1649)
@@ -3,7 +3,7 @@
 <Class name="svn.InterfaceControleur">
 <Super>%RegisteredObject</Super>
 
-<Property name="Errors">
+<Property name="Warnings">
 <Type>%DataType</Type>
 <Collection>list</Collection>
 <Private>1</Private>
@@ -20,13 +20,13 @@
 <Implementation><![CDATA[
 	quit:'##class(%Dictionary.ClassDefinition).%ExistsId(Classname)
 
-	do ..Errors.Clear()
+	do ..Warnings.Clear()
 	
 	;do ..ControleerInterface(Classname)
 	do ..ControleerMethods(Classname)
 	do ..ControleerProperties(Classname)
 
-	do ..ToonErrors()
+	do ..ToonWarnings()
 ]]></Implementation>
 </Method>
 
@@ -38,8 +38,11 @@
 	while itProperties.HasNext() {
 		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
 		if '$length(Property.Type) {
-			do ..Errors.Insert("property "_Property.Name_" ( type missing ) ")
+			do ..Warnings.Insert("property "_Property.Name_" ( type missing ) ")
 		}
+		elseif Property.Type="%Float"  {
+			do ..Warnings.Insert("property "_Property.Name_" ( %Float DEPRECATED ) ")
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -51,16 +54,17 @@
 	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)
+		set FormalSpecParser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
+		set itParameters = ##class(TECH.ListIterator).%New(FormalSpecParser.Parse(Method.FormalSpec))
+		while itParameters.HasNext() {
+			#dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next()
+			#dim ParameterName As %String = Parameter.GeefNaam()
+			#dim ParameterType As %String = Parameter.GeefType()
 			if '$length(ParameterType) {
-				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( type missing ) ")
+				do ..Warnings.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( type missing ) ")
 			}
 			elseif $extract(ParameterType)'="%" && ( ParameterType'["." ) {
-				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( package name incomplete ) ")
+				do ..Warnings.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( package name incomplete ) ")
 			}
 				
 		}
@@ -97,7 +101,7 @@
 				if ..Methods.IsDefined(Method.Name) {
 					do ..Methods.SetAt(..Methods.GetAt(Method.Name)+1,Method.Name)
 				} else {
-					do ..Errors.Insert(DerivedClassname_" geen abstracte method op interface gedefinieerd voor "_Method.Name)	
+					do ..Warnings.Insert(DerivedClassname_" geen abstracte method op interface gedefinieerd voor "_Method.Name)	
 				}
 			}
 		}
@@ -109,27 +113,27 @@
 		#dim AantalImplementaties As %Integer = itAantalImplementaties.Next()
 		#dim MethodName As %String = itAantalImplementaties.Key()
 		if AantalImplementaties = 0 {
-			do ..Errors.Insert(MethodName _ " niet geimplementeerd")
+			do ..Warnings.Insert(MethodName _ " niet geimplementeerd")
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ToonErrors">
+<Method name="ToonWarnings">
 <Implementation><![CDATA[
-	#dim Errors As %ListOfDataTypes = ..GeefErrors()
-	if Errors.Size {
+	#dim Warnings As %ListOfDataTypes = ..GeefWarnings()
+	if Warnings.Size {
 		write !,"!! Warnings ( coding convention ) !!"
 		write !,"------------------------------------"
-		write !,##class(TECH.ListUtils).ListToPieces(..GeefErrors(),$char(13,10))
+		write !,##class(TECH.ListUtils).ListToPieces(..GeefWarnings(),$char(13,10))
 		write !
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefErrors">
+<Method name="GeefWarnings">
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..Errors
+<Implementation><![CDATA[	quit ..Warnings
 ]]></Implementation>
 </Method>
 </Class>