Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1539 -r1545
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1539)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1545)
@@ -196,7 +196,12 @@
 		set UpdateToVersion = $select(tMenu(2)["to head":"",1:0)
 		do ..SubversionUpdate(.InternalName,.Action,.Target,.Msg,.Reload,UpdateToVersion)
 	} elseif tMenu="getlatest" {
-		do ..SubversionGetLatest()
+		#dim Feedback As %CharacterStream = ..svnHelper.SubversionGetLatest()
+		Do Feedback.Rewind()
+		While 'Feedback.AtEnd 
+		{
+			Write Feedback.ReadLine(),!
+		}
 	} elseif tMenu="pre-commit" {
 		do ..SubversionPreCommit(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="check" {
@@ -259,7 +264,7 @@
 	if (tMenu(2) [ "status") do ..SubversionProjectStatus(.InternalName,.Action,.Target,.Msg,.Reload,.tCmd)
 	if (tMenu(2) [ "update") do ..SubversionProjectUpdate(.InternalName,.Action,.Target,.Msg,.Reload,.tCmd)
 	do tCmd.Execute()
-	set tSC=..PostProcessing(tCmd)
+	Set ..IsDisconnected =..svnHelper.PostProcessing(tCmd)
 ]]></Implementation>
 </Method>
 
@@ -561,95 +566,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SubversionGetLatest">
-<Implementation><![CDATA[
-	
-	set GetLatestFailed = 0
-
-
-	if $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))=1 {
-		write !
-		write "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!",!
-		write " Momenteel zijn er conflicten of compile problemen gelieve deze eerst op te lossen....  ",!
-		write " Indien deze opgelost zijn gelieve "_ $ZR _ " te verwijderen ",!
-		write "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!",!
-	}		
-	else {
-	
-		if ..svnHelper.WorkingOffline() { 
-			write !,"Currently not online"
-		}
-		else {
-			
-			set Message = "Getting Latest .. "_$zdatetime($ztimestamp,3)
-			set Streepkes="",$piece(Streepkes,"-",$length(Message))="-"
-			write !!,Streepkes
-			write !,Message
-				
-			write !,"Getting code",!
-			
-			set tCmd=##class(svn.Command).%New($lb(..svnHelper.LocalWorkspacePath(..svnHelper.Branch)))
-			set tCmd.SubCommand="update"
-			Set tCmd.Revision= ""
-			set tCmd.Reload = 1
-			set tCmd.File=..svnHelper.LocalWorkspacePath(..svnHelper.Branch)
-			if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Username,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password")
-			do tCmd.Execute()
-			set tIsDisconnected=..IsDisconnected
-			set tSC=..PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!
-			set ..IsDisconnected=tIsDisconnected
-			
-
-		    set UnitTestWorkspacePath =  ..svnHelper.UnitTestWorkspacePath() 
-		    if $length(UnitTestWorkspacePath) && ( (UnitTestWorkspacePath)'="\" ) {
-    			write !,"Getting unittest info",!
-				set tCmd=##class(svn.Command).%New($lb(UnitTestWorkspacePath))
-				set tCmd.SubCommand="update"
-				Set tCmd.Revision= ""
-				set tCmd.Reload = 1
-				set tCmd.File=..svnHelper.UnitTestWorkspacePath()
-				if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Username,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password")
-				do tCmd.Execute()
-				set ..svnHelper.ExecCompile=0   ; Compiling niet meer nodig 
-				set tIsDisconnected=..IsDisconnected
-				set tSC=..PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!
-				set ..IsDisconnected=tIsDisconnected
-		    }
-				
-			if ..svnHelper.Failed.Count() = 0 {
-				set Message = "Getting Latest done"
-			} else {
-				do ..svnHelper.ShowFailed()
-				set GetLatestFailed = 1
-				set Message ="Getting Latest **FAILED**"
-			}
-			
-			set Streepkes="",$piece(Streepkes,"-",$length(Message))="-"
-			write !,Message,!,Streepkes
-			
-			}
-		}
-		
-	if 'GetLatestFailed {
-		if ..svnHelper.ToCompile.List.Count() {
-			write !!,"Hercompilatie voorgaande fouten",!
-			do ..svnHelper.CompileImportedSourceCode(1)
-			do ..svnHelper.ShowFailed()
-			set GetLatestFailed = ..svnHelper.Failed.Count()
-			do ..svnHelper.Failed.Clear()
-		}
-	}
-	
-	if 'GetLatestFailed {
-		write !,"Starting deploy classes",!
-		do ##class(svn.Deploy).Run()
-		write !,"Deploy classes finished",!
-	}
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="SubversionPreCommit">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
 <Implementation><![CDATA[
@@ -710,7 +626,7 @@
 			if Answer=1 {
 				if tCmd'=$$$NULLOREF { 
 					do tCmd.Execute()
-					set tSC=..PostProcessing(tCmd)
+					Set ..IsDisconnected = ..svnHelper.PostProcessing(tCmd)
 				}
 			}
 			// extras...
@@ -739,7 +655,7 @@
 				set tCmd.SubCommand="resolved"
 				set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH)
 				do tCmd.Execute()
-				set tSC=..PostProcessing(tCmd)
+				Set ..IsDisconnected =..svnHelper.PostProcessing(tCmd)
 			}
 		} elseif tMenu="pre-commit" {
 			if Answer=1 {
@@ -753,7 +669,7 @@
 				// -DK 1.20
 				set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH)
 				do tCmd.Execute()
-				set tSC=..PostProcessing(tCmd)
+				Set ..IsDisconnected =..svnHelper.PostProcessing(tCmd)
 			}
 		} elseif tMenu="check" {
 			if Answer=1 {
@@ -766,7 +682,7 @@
 				set tCmd.Revision=$s($zcvt(Msg,"L")="head":"",1:Msg)
 				set tCmd.File=..svnHelper.LocalWorkspacePath(..svnHelper.Branch)
 				do tCmd.Execute()
-				set tSC=..PostProcessing(tCmd)
+				set ..IsDisconnected =..svnHelper.PostProcessing(tCmd)
 			}
 		} elseif tMenu="source" {
 			if Answer=1 {
@@ -798,7 +714,7 @@
 				if Answer=1 {
 					if tCmd.SubCommand="add" do ..svnHelper.ExportCode(InternalName)
 					do tCmd.Execute()
-					set tSC=..PostProcessing(tCmd)
+					Set ..IsDisconnected =..svnHelper.PostProcessing(tCmd)
 				}
 			}
 		}
@@ -834,88 +750,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PostProcessing">
-<Description>
-performs results display and post processing (if desired)</Description>
-<FormalSpec>pCmd:svn.Command</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set tCmdDelim=$s($$$ISWINDOWS:"&",$$$ISUNIX:"&&",1:"?")
-	set tSC=$$$OK
-	// display output
-	set tResult=pCmd.Result
-	do tResult.Rewind()
-	while tResult.AtEnd=0 {
-		Set line = tResult.ReadLine()
-		write line,!
-		if ($Extract($ZCVT(line,"U"),1,$length("Restored"))=$ZCVT("Restored","U"))
-		{   Set File = $PIECE(line,"'",2)
-			write "Restore file : ",File,!
-			set tSC=..svnHelper.SVNImport(File)
-			w " *** Studio HINT: please make sure you add this file into your copy of project!",!
-		}
-	}
-		
-	if pCmd.Results.Count()>0 {
-		If ..Debug	write "SubCommand: ",pCmd.SubCommand," & Reload = "_+pCmd.Reload,!
-		if pCmd.SubCommand="checkout" {
-			// checkout returns full external name - with path
-			set i="" set tCmdResult=pCmd.Results.GetNext(.i)
-			If ..Debug w !,"tCmdResult:",tCmdResult," -> ",tCmdResult.Action , "---> ", pCmd.Results.GetNext(.i)
-			while tCmdResult'=$$$NULLOREF {
-				if tCmdResult.Action="A" { 
-					set tSC=..svnHelper.SVNImport(tCmdResult.ExternalName)
-					w " *** Studio HINT: please make sure you add this file into your copy of project!",!
-				} elseif tCmdResult.Action="D" {
-					set tIName=..svnHelper.InternalName(tCmdResult.ExternalName)
-					if ..svnHelper.HasToBeSynchronized(tIName) do ..svnHelper.DeleteCode(tIName)
-				} else {
-					// other actions here?				
-				}
-				set tCmdResult=pCmd.Results.GetNext(.i)	
-			}
-			// +DK 1.21
-		} elseif (pCmd.SubCommand="update")&(pCmd.Reload) {
-			// update returns only external name without path
-			If ..Debug	w !,"Updating.. ",pCmd.SubCommand
-			set i="" set tCmdResult=pCmd.Results.GetNext(.i)
-			while tCmdResult'=$$$NULLOREF {
-				// +DK 1.21, DK 2.11 (G option)
-				
-				if (tCmdResult.Action="A")||(tCmdResult.Action="U")||(tCmdResult.Action="G") { 
-					set tFile=tCmdResult.ExternalName
-					if $length(tFile) set tSC=..svnHelper.SVNImport(tFile)
-				} elseif (tCmdResult.Action="D") {
-					set tIName=..svnHelper.InternalName(tCmdResult.ExternalName)
-					if ..svnHelper.HasToBeSynchronized(tIName) do ..svnHelper.DeleteCode(tIName)
-				} elseif (tCmdResult.Action="S")||(tCmdResult.Action="C") {
-					set $$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts")=1
-					set tIName=..svnHelper.InternalName(tCmdResult.ExternalName)
-					do ..svnHelper.Failed.Insert(tIName_" (Conflict)")
-				}
-				set tCmdResult=pCmd.Results.GetNext(.i)	
-			}
-		} else {
-		  
-			// other commands?	
-		} 
-		// -DK 1.21
-	}
-	
-	// Compile wat nodig is (sourcecode die via importcode is ingeladen
-	
-	if (..svnHelper.ExecCompile && ( ..svnHelper.Failed.Count() = 0 )) {
-		Do ..svnHelper.CompileImportedSourceCode()
-	}
-	
-	set ..IsDisconnected=pCmd.IsDisconnected
-	// clean-up
-	if 'pCmd.Log set tSC=pCmd.%DeleteId(pCmd.%Id())
-	
-	quit tSC
-]]></Implementation>
-</Method>
-
 <Method name="Login">
 <Description><![CDATA[
 Login to SourceControl if needed<br>
@@ -1039,7 +873,7 @@
 		set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH)
 		do tCmd.Execute()
 		set tIsDisconnected=..IsDisconnected
-		set tSC=..PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!
+		set tSC=..svnHelper.PostProcessing(tCmd)		// postprocessing may reset IsDisconnected!
 		set ..IsDisconnected=tIsDisconnected
 		if '..IsDisconnected {
 			// FMA no need for a SVN tutorial all the time...
@@ -1210,7 +1044,9 @@
 		set tCmd.SubCommand="commit"
 		do tCmd.Options.SetAt("deleted by user","-m")
 		do tCmd.Execute()
-		if 'isDirectory do ..PostProcessing(tCmd)
+		if 'isDirectory {
+			Set ..IsDisconnected = ..svnHelper.PostProcessing(tCmd)
+		}
 	} else {
 		write !," *** Studio: please commit to propagate deletion to repository. ***"
 	}