Index: zTryout/JCL/Code.cls.xml
===================================================================
diff -u -r29059 -r35088
--- zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 29059)
+++ zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 35088)
@@ -9,12 +9,59 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	set svnHelper = ##class(svn.Helper).%New()
 	
+	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.PubSub.EventData")
+	while DerivedClassIterator.HasNext() {
+		#dim Classname As %String = DerivedClassIterator.Next()
+		set cd = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
+		set ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
+		set ParameterDefinition.Default = Classname
+		set ParameterDefinition.Name = "XMLTYPE"
+		set ParameterDefinition.Type = "%String"
+		set ParameterDefinition.parent = cd
+		do ParameterDefinition.%Save()
+		
+		do svnHelper.SVNExport(Classname_".cls")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Commit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Message:%String,Username:%String,Password:%String</FormalSpec>
+<Implementation><![CDATA[
+	set svnRepo = ##class(svn.Repository).%OpenId(1)
 	
-	set glo="" 
-	for  set glo=$O(^$GLOBAL(glo)) q:glo=""  do
-	. set qu=glo
-	. for  set qu=$q(@qu) q:qu=""  i @qu["info@kastenstudio." i @qu'["info@kastenstudio.be" w !,qu," -->",@qu
+	set listExternalNames = ##class(%ListOfDataTypes).%New()
+	
+	set itResults = ##class(TECH.ListIterator).%New(svnRepo.Changes())
+	while itResults.HasNext() {
+		#dim svnInfo As svn.CommandResult = itResults.Next()
+		#dim ExternalName As %String = svnInfo.ExternalName
+		if $length(svnInfo.Action) && $length(ExternalName) {
+			if svnInfo.Action'="X" {
+				if ##class(TECH.File).DirectoryExists(ExternalName) {
+					set itFiles = ##class(TECH.ListIterator).%New(##class(TECH.Files).%New().GetFileList(ExternalName,"*.*"))
+					while itFiles.HasNext() {
+						set ExternalName = itFiles.Next().Name
+						do listExternalNames.Insert(ExternalName)
+					}
+				} else {
+					do listExternalNames.Insert(ExternalName)
+				}
+			}
+		}
+	}
+	
+	if listExternalNames.Size > 0 {
+		write !
+		set itExternalNames = ##class(TECH.ListIterator).%New(listExternalNames)
+		while itExternalNames.HasNext() {
+			set ExternalName = itExternalNames.Next()
+			do svnRepo.SVNCommit(svnRepo.InternalName(ExternalName),Message,Username,Password)
+		}
+	}
 ]]></Implementation>
 </Method>
 </Class>