Index: Tools/impl/MoveHelper.cls.xml
===================================================================
diff -u -r353 -r520
--- Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 353)
+++ Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 520)
@@ -171,9 +171,6 @@
 		}
 	}
 	
-
-	
-	
 	w "Volgende items zullen hernoemd worden:",!!
 	
 	#dim SourceCode = $Order(Berichten(""))
@@ -253,39 +250,11 @@
 			Set Clone.Name = ..RenameNaar(ClassFromDefinition.Name)
 			Set Status = Clone.%Save()
 			If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
-			Else  Do ..ExportToSVN(Clone.Name)
+			Else  Do ..SVNMove(ClassFromDefinition.Name,Clone.Name)
 		}
-		
-		Set Input = ""
-		While (Input '= "Y") && (Input '= "N")
-		{
-			w !,"Wilt u volgende klassen definitief verwijderen? (Y/N)",!
-			Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen)
-			While (TeVerplaatsenIterator.HasNext())
-			{
-				Set ClassFromDefinition = TeVerplaatsenIterator.Next()
-				w $J(" ",4)_"- Klasse "_ClassFromDefinition.Name_"",!
-			}
-			read Input
-		}
-		
-		If (Input = "Y")
-		{
-			Set TeVerplaatsenIterator = ##class(TECH.ListIterator).%New(TeVerplaatsenKlassen)
-			While (TeVerplaatsenIterator.HasNext())
-			{
-				Set ClassFromDefinition = TeVerplaatsenIterator.Next()
-				Set Status = $SYSTEM.OBJ.Delete(ClassFromDefinition.Name_".cls") //##class(%Dictionary.ClassDefinition).%DeleteId(ClassFromDefinition.Name)
-				If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
-				Else  Do ..DeleteFromSVN(ClassFromDefinition.Name)
-			}
-		}
-		
 		Do ..svnHelper.CompileImportedSourceCode()
 
 	}
-	
-	w !!,"GELIEVE EEN NIEUWE TERMINAL TE OPENEN VOOR DE VOLGENDE VERPLAATS ACTIE!",!!
 ]]></Implementation>
 </Method>
 
@@ -377,17 +346,22 @@
 	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
 	Do ..svnHelper.SVNExport(InternalName)
 	Do ..svnHelper.ToCompile.List.Insert(InternalName)
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteFromSVN">
-<FormalSpec>SourceCode:%String</FormalSpec>
+<Method name="SVNMove">
+<FormalSpec>SourceCodeFrom:%String,SourceCodeTo:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim InternalName As %String = SourceCode
-	if $piece(SourceCode,".",$length(SourceCode,"."))'="mac" Set InternalName = SourceCode_".cls"
-	Do ..svnHelper.SVNDelete(InternalName)
+	#dim InternalNameFrom As %String = SourceCodeFrom
+	#dim InternalNameTo As %String = SourceCodeTo
+	
+	if $piece(SourceCodeFrom,".",$length(SourceCodeFrom,"."))'="mac" Set InternalNameFrom = SourceCodeFrom_".cls"
+	if $piece(SourceCodeTo,".",$length(SourceCodeTo,"."))'="mac" Set InternalNameTo = SourceCodeTo_".cls"
+	
+	Do ..svnHelper.SVNMove(InternalNameFrom,InternalNameTo)
+	Do ..ExportToSVN(SourceCodeTo)
+	
 	Quit
 ]]></Implementation>
 </Method>