Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1574 -r1575
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1574)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1575)
@@ -916,109 +916,22 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
-	write "InternalName : "_InternalName ,!
-	
+	if ..Debug write "OnAfterDelete : "_InternalName ,!
 	// item deleted
-	Set tFile = ..DeleteFromSVN(InternalName)
-	Do ..DeleteEmptyDirectory(tFile)
+	do ..svnHelper.SVNDelete(InternalName)
 	
-	set ExternalName = ..svnHelper.ExternalName(InternalName)
-	Do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
-	
-    if ##class(TECH.SourceCodeUtils).Type(InternalName) = "class" {
-	 	set Classname = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
-	 	do ##class(%ExtentMgr.Util).DeleteExtent(Classname)   
-    }
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="DeleteEmptyDirectory">
-<FormalSpec>tFile:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	//Bovenliggende map verwijderen
-	Set ParentDir = ##class(%File).GetDirectory(tFile)
-	
-	Set rset = ##class(%ResultSet).%New()
-	Set rset.ClassName = "%File"
-	Set rset.QueryName = "FileSet"
-
-	Do rset.Execute(ParentDir, "","",1)
-	
-	Set Root = ..svnHelper.LocalWorkspacePath(..svnHelper.Branch)
-	Set Teller = 0
-	 
-	 
-	While (..CanDeleteDirectory(rset) && (ParentDir '= Root) && (Teller < 50)) 
-	 {		
-		Do ##class(%File).RemoveDirectoryTree(ParentDir)
-		w "Delete: ", ParentDir,!
-		#define DIRECTORY 	1
-		Do ..DeleteFromSVN(ParentDir,$$$DIRECTORY)
-	
-		Set ParentDir = ##class(%File).ParentDirectoryName(ParentDir)
-		Do rset.Execute(ParentDir, "","",1)
-		Set Teller = Teller + 1
-	 }	
-	 
-	 Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="CanDeleteDirectory">
-<FormalSpec>rset:%ResultSet</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set CanDelete = 1
-	While ((rset.Next(.sc))) && ( CanDelete ) {
-	  	if (rset.Data("ItemName") '= ".svn") { 	
-	  		Set CanDelete = 0 }
-	}
-	Quit CanDelete
-]]></Implementation>
-</Method>
-
-<Method name="DeleteFromSVN">
-<FormalSpec>File:%String,isDirectory:%Boolean=0</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set tFile = File
-	if 'isDirectory Set tFile = ..svnHelper.ExternalName(File,$$$FULLPATH)
-	
-	set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-	set tCmd.File=tFile
-	set tCmd.SubCommand="delete"
-	do tCmd.Options.SetAt("","--force")
-	do tCmd.Execute()
-	if $$$CMDAUTODELETECOMMIT {
-		set tCmd=$$$NULLOREF
-		set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-		set tCmd.File=tFile
-		set tCmd.SubCommand="commit"
-		do tCmd.Options.SetAt("deleted by user","-m")
-		do tCmd.Execute()
-		if 'isDirectory {
-			Set ..IsDisconnected = ..svnHelper.PostProcessing(tCmd)
-		}
-	} else {
-		write !," *** Studio: please commit to propagate deletion to repository. ***"
-	}
-	
-	Quit tFile
-]]></Implementation>
-</Method>
-
 <Method name="OnAfterCompile">
 <Description>
 Called after the compile of the item is done.</Description>
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	if ..Debug write "OnAfterCompile : "_InternalName ,!
+
 	set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
 	do ..svnHelper.SVNExport(InternalName)