Index: Tools/MoveClass.cls.xml
===================================================================
diff -u -r931 -r932
--- Tools/MoveClass.cls.xml	(.../MoveClass.cls.xml)	(revision 931)
+++ Tools/MoveClass.cls.xml	(.../MoveClass.cls.xml)	(revision 932)
@@ -1,11 +1,26 @@
 <?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-03-11 07:41:50">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-11 09:34:26">
 <Class name="Tools.MoveClass">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.ClassInfo.QNameFinder</Super>
-<TimeChanged>62161,27785.215735</TimeChanged>
+<TimeChanged>62161,34466.097579</TimeChanged>
+<TimeCreated>62161,32256.917774</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="svnHelper">
+<Type>svn.Helper</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..svnHelper = ##class(svn.Helper).%New()
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Move">
 <Description>
 Do ##class(Tools.MoveClass).%New().Move("zTryout.CSC.TestKlas3","zTryout.CSC.TestKlas2")</Description>
@@ -28,6 +43,7 @@
 	While ResultSet.Next()
 	{
 		Set ClassName = ResultSet.Data("Name")
+		continue:$extract(ClassName)="%"
 		
 		Set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassName)
 		If (ClassDefinition '= "")
@@ -174,6 +190,7 @@
 				w $J(" ",4)_"- Opslaan "_Class.GeefNaam(),!
 				Set Status = Class.Save()
 				If ('Status) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
+				else  do ..ExportToSVN(Class.GeefNaam())
 			}
 			
 			Set ClassFromDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ClassFrom)
@@ -186,6 +203,7 @@
 			Set Clone.Name = ClassTo
 			Set Status = Clone.%Save()
 			If ('Status) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
+			else  do ..ExportToSVN(Class.GeefNaam())
 			
 			Set Input = ""
 			While (Input '= "Y") && (Input '= "N")
@@ -198,7 +216,10 @@
 			{
 				Set Status = ##class(%Dictionary.ClassDefinition).%DeleteId(ClassFrom)
 				If ('Status) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
+				else  do ..DeleteFromSVN(ClassFrom)
 			}
+			
+			do ..svnHelper.CompileImportedSourceCode()
 		}
 		Else
 		{
@@ -230,6 +251,27 @@
 	Quit String
 ]]></Implementation>
 </Method>
+
+<Method name="ExportToSVN">
+<FormalSpec>Classname:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set InternalName = Classname_".cls"
+	do ..svnHelper.SVNExport(InternalName)
+	do ..svnHelper.ToCompile.Insert(InternalName)
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="DeleteFromSVN">
+<FormalSpec>Classname:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set InternalName = Classname_".cls"
+	do ..svnHelper.SVNDelete(InternalName)
+	quit
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3462824080"/>
+<Checksum value="3303873046"/>
 </Export>