Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r1133 -r1518
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1133)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1518)
@@ -26,6 +26,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsPersistent">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit "%Persistent" [ ..ClassDefinition.Super
+]]></Implementation>
+</Method>
+
 <Method name="GeefNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..ClassDefinition.Name
Index: CSC Refactoring.prj.xml
===================================================================
diff -u -r1021 -r1518
--- CSC Refactoring.prj.xml	(.../CSC Refactoring.prj.xml)	(revision 1021)
+++ CSC Refactoring.prj.xml	(.../CSC Refactoring.prj.xml)	(revision 1518)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:22">
-<Project name="CSC Refactoring" LastModified="2011-03-15 09:12:45">
+<Export generator="Cache" version="9">
+<Project name="CSC Refactoring" LastModified="2011-06-24 13:58:06">
   <Items>
     <ProjectItem name="TECH.ClassInfo.ClassDefinition" type="CLS"/>
     <ProjectItem name="TECH.ClassInfo.FormalSpecParser" type="CLS"/>
@@ -10,6 +10,7 @@
     <ProjectItem name="TECH.ClassInfo.QNameFinder" type="CLS"/>
     <ProjectItem name="TECH.DateTime" type="CLS"/>
     <ProjectItem name="TECH.PiecesIterator" type="CLS"/>
+    <ProjectItem name="Tools.CompileEnumerator" type="CLS"/>
     <ProjectItem name="Tools.MoveClass" type="CLS"/>
     <ProjectItem name="Tools.MovePackage" type="CLS"/>
     <ProjectItem name="Tools.impl.ICommand" type="CLS"/>
@@ -29,5 +30,4 @@
     <ProjectItem name="zTryout.CSC.TestKlas2" type="CLS"/>
   </Items>
 </Project>
-<Checksum value="2000207936"/>
 </Export>
Index: Tools/CompileEnumerator.cls.xml
===================================================================
diff -u
--- Tools/CompileEnumerator.cls.xml	(revision 0)
+++ Tools/CompileEnumerator.cls.xml	(revision 1518)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Tools.CompileEnumerator">
+<Description>
+Compileert alle persistente klasse die een bepaalde enumerator als property hebben.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Compile">
+<Description>
+Do ##class(Tools.CompileEnumerator).Compile("DOM.PM.enu.Variant")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EnumeratorKlasse:%String,VraagBevestiging:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	w !,"=========================="_$Translate($J("",$Length(EnumeratorKlasse))," ","="),!
+	w "Compileren van enumerator "_EnumeratorKlasse,!
+	w "=========================="_$Translate($J("",$Length(EnumeratorKlasse))," ","="),!!
+	
+	w "Zoeken...",!!
+	
+	Set ToCompile = EnumeratorKlasse_".cls"
+	Set ResultSet = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
+	Do ResultSet.Execute()
+	While ResultSet.Next()
+	{
+		Set ClassName = ResultSet.Data("Name")
+		
+		If ($Extract(ClassName,1,1) '= "%")
+		{
+			Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
+			If (ClassDefinition.IsPersistent())
+			{
+				Set PropertiesIterator = ClassDefinition.GeefProperties()
+				While (PropertiesIterator.HasNext())
+				{
+					Set PropertyDefinition = PropertiesIterator.Next()
+					Set Type = PropertyDefinition.GeefType()
+					If (Type = EnumeratorKlasse)
+					{
+						Set ToCompile = ToCompile_","_ClassName_".cls"
+						w "Gebruikt in: "_ClassName,!
+					}
+				}
+			}
+		}		
+	}
+	
+	If ($L(ToCompile) > 0)
+	{
+		If (VraagBevestiging)
+		{
+			Set Input = ""
+			While (Input '= "Y") && (Input '= "N")
+			{
+				w !,"Wilt u de boven vernoemde klassen hercompileren? (Y/N)",!
+				read Input
+			}
+		}
+		
+		w !!,"Compileren ...",!!
+		Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog)
+	}
+	Else
+	{
+		w !!,"Niks gevonden ...",!!
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>