Index: svn/Event/SourceCodeSaved.cls.xml
===================================================================
diff -u
--- svn/Event/SourceCodeSaved.cls.xml	(revision 0)
+++ svn/Event/SourceCodeSaved.cls.xml	(revision 1707)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Event.SourceCodeSaved">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Raise">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:TECH.String</FormalSpec>
+<Implementation><![CDATA[	;soort van event dat opgeroepen wordt als er sourcecode bewaard is.
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1701 -r1707
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1701)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1707)
@@ -440,7 +440,10 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Repository As svn.Repository = ..GeefRepository(InternalName)
-	if $isObject(Repository) do Repository.SVNDelete(InternalName)
+	if $isObject(Repository){
+		do Repository.SVNDelete(InternalName)
+		Do ##class(svn.Event.SourceCodeDeleted).Raise(InternalName)
+	}
 	quit
 ]]></Implementation>
 </Method>
@@ -449,7 +452,10 @@
 <FormalSpec>InternalNameFrom:%String,InternalNameTo:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Repository As svn.Repository = ..GeefRepository(InternalNameFrom)
-	if $isObject(Repository) do Repository.SVNMove(InternalNameFrom,InternalNameTo)
+	if $isObject(Repository) {
+		do Repository.SVNMove(InternalNameFrom,InternalNameTo)
+		Do ##class(svn.Event.SourceCodeSaved).Raise(InternalNameTo)
+	}
 	quit
 ]]></Implementation>
 </Method>
Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1684 -r1707
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1684)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1707)
@@ -133,7 +133,7 @@
 		 do ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName)).StoreUnitTestInfo()	
 		}
 	}
-	
+	Do ##class(svn.Event.SourceCodeSaved).Raise(InternalName)
 	quit Status
 ]]></Implementation>
 </Method>
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1685 -r1707
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1685)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1707)
@@ -902,6 +902,7 @@
 				set ..ProjectNameModified = Repo.ExternalName(InternalName,$$$FULLPATH)
 			}
 		}
+		Do ##class(svn.Event.SourceCodeSaved).Raise(InternalName)
 		do Repo.SVNExport(InternalName)
 		
 		If ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object_" AddEnd"
Index: svn/Event/SourceCodeDeleted.cls.xml
===================================================================
diff -u
--- svn/Event/SourceCodeDeleted.cls.xml	(revision 0)
+++ svn/Event/SourceCodeDeleted.cls.xml	(revision 1707)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Event.SourceCodeDeleted">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Raise">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InternalName:TECH.String</FormalSpec>
+<Implementation><![CDATA[	;soort van event dat opgeroepen wordt als er sourcecode gedelete is.
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>