Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1518 -r1519
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1518)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1519)
@@ -85,6 +85,8 @@
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="TortoiseSVN Browse repository" />
 <MenuItem Name="TortoiseSVN Merge (!)" />
+<MenuItem Separator="1" Name="----------------------------------"/>
+<MenuItem Name="Source Control Code Update" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 </Menu><Menu Name="Subversion" Type="0">
 <MenuItem Name="Settings" />
@@ -215,8 +217,12 @@
 		do ..SubversionMerge(.InternalName,.Action,.Target,.Msg,.Reload)
 	} elseif tMenu="deploy" {
 		do ..SubversionDeploy(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="source" {
+		set Action=1
+		Set path = $g(^SYS("SourceControl",$$$PRODUCT,"LocalSourceControlWorkspace"))
+		set Target="Update source control code from "_$zcvt(path,"l")_" ?"_$C(13,10)_$C(13,10)_"You have to restart the Studio afterwards."	
 	} else { // nothing
-		}
+	}
 done	//
 	Quit $$$OK
 ]]></Implementation>
@@ -627,6 +633,10 @@
 				do tCmd.Execute()
 				set tSC=..PostProcessing(tCmd,InternalName)
 			}
+		} elseif tMenu="source" {
+			if Answer=1 {
+				Do ..SubversionUpdateSourceControlCode()	
+			}
 		} elseif tMenu="import" {
 			// try to create repository folders automatically
 			for i="branches","tags" {
@@ -1108,6 +1118,11 @@
 	quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="SubversionUpdateSourceControlCode">
+<Implementation><![CDATA[	do ##class(svn.Updater).Update()
+]]></Implementation>
+</Method>
 </Class>