Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1636 -r1637
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1636)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1637)
@@ -38,7 +38,7 @@
 	while itProperties.HasNext() {
 		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
 		if '$length(Property.Type) {
-			do ..Errors.Insert("Warning : method "_Property.Name_" ( type missing ) ")
+			do ..Errors.Insert("property "_Property.Name_" ( type missing ) ")
 		}
 	}
 ]]></Implementation>
@@ -57,10 +57,10 @@
 			#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 ) ")
+				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( type missing ) ")
 			}
 			elseif $extract(ParameterType)'="%" && ( ParameterType'["." ) {
-				do ..Errors.Insert("Warning : method "_Method.Name_" Parameter "_ParameterName_" ( package name incomplete ) ")
+				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( package name incomplete ) ")
 			}
 				
 		}
@@ -117,13 +117,11 @@
 
 <Method name="ToonErrors">
 <Implementation><![CDATA[
-	
-	
 	#dim Errors As %ListOfDataTypes = ..GeefErrors()
 	if Errors.Size {
-		write !,"---------------------------------------------------------------"
+		write !,"!! Warnings ( coding convention ) !!"
+		write !,"------------------------------------"
 		write !,##class(TECH.ListUtils).ListToPieces(..GeefErrors(),$char(13,10))
-		write !,"---------------------------------------------------------------"
 		write !
 	}
 ]]></Implementation>