Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1519 -r1520
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1519)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1520)
@@ -32,7 +32,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Pwd">
+<Property name="Password">
 <Description>
 password from login, use for svn.exe --password option when specified by the user</Description>
 <Type>%String</Type>
@@ -98,6 +98,7 @@
 <MenuItem Name="Status" />
 <MenuItem Name="Update to HEAD revision" Save="100" />
 <MenuItem Name="Update to revision #" Save="100" />
+<MenuItem Name="GetLatest" />
 <MenuItem Name="Commit" Save="100" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="Branch - Set Current" />
@@ -184,6 +185,8 @@
 	} elseif tMenu="update" { 
 		set UpdateToVersion = $select(tMenu(2)["to head":"",1:0)
 		do ..SubversionUpdate(.InternalName,.Action,.Target,.Msg,.Reload,UpdateToVersion)
+	} elseif tMenu="getlatest" {
+		do ..SubversionGetLatest()
 	} elseif tMenu="pre-commit" {
 		do ..SubversionPreCommit(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="check" {
@@ -500,7 +503,7 @@
 	// DK -2.12
 	set tCmd.SubCommand="update"
 	// DK +2.10
-	if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Pwd,"--password") 
+	if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
 	// DK -2.10
 	set tCmd.ExternalName=..svnHelper.ExternalName(InternalName,$$$FULLPATH)		
 	set tCmd.Revision=UpdateToVersion
@@ -515,6 +518,95 @@
 ]]></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,InternalName)		// 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,InternalName)		// 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[
@@ -613,7 +705,7 @@
 				// +DK 1.20 - make sure we run in non-interactive mode
 				//do tCmd.GlobalOptions.SetAt("","--non-interactive")
 				// DK +2.10
-				if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Pwd,"--password") 
+				if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
 				// DK -2.10
 				// -DK 1.20
 				set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH)
@@ -626,7 +718,7 @@
 				set tCmd.SubCommand="checkout"
 				//do tCmd.GlobalOptions.SetAt("","--non-interactive")
 				// DK +2.10
-				if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Pwd,"--password") 
+				if ..svnHelper.PassCredentials do tCmd.GlobalOptions.SetAt(..Name,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
 				// DK -2.10
 				set tCmd.Revision=$s($zcvt(Msg,"L")="head":"",1:Msg)
 				set tCmd.File=..svnHelper.LocalWorkspacePath(..svnHelper.Branch)
@@ -817,7 +909,7 @@
 	try {
 	 	set ..Name=Name
 	 	// DK +2.10
-	 	set ..Pwd=Password
+	 	set ..Password=Password
 	 	// DK -2.10
 	 	// get TEMP (Windows) or HOME (Unix) environment variables
 	 	if $$$ISWINDOWS {