Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1572 -r1574
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1572)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1574)
@@ -354,7 +354,7 @@
 	set Action=0
 	set ..Cmd=0
 	write "Synchronisatie van de wijzigingen wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New().ShortSync()
+	do ##class(svn.Helper).%New(..Name,..Password).ShortSync()
 	write "Synchronisatie afgelopen",!
 ]]></Implementation>
 </Method>
@@ -365,7 +365,7 @@
 	set Action=0
 	set ..Cmd=0
 	write "Synchronisatie wordt uitgevoerd ",!
-	do ##class(svn.Helper).%New().AutoSync()
+	do ##class(svn.Helper).%New(..Name,..Password).AutoSync()
 	write "Synchronisatie afgelopen",!
 ]]></Implementation>
 </Method>
@@ -733,18 +733,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Login">
-<Description><![CDATA[
-Login to SourceControl if needed<br>
-also, setup environment]]></Description>
-<FormalSpec>Name:%String,Password:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="IsStudioHookActive">
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	if '$IsObject(..svnHelper) set ..svnHelper = ##class(Helper).%New()
-
-	if ..Debug write !,"Fired Login() for '",Name,"'"
-	set tSC=$$$OK
- 	if '$d(^SYS("SourceControl",..#PRODUCT)) {
+	Set Active = 1
+	if '$d(^SYS("SourceControl",..#PRODUCT)) {
 		set tTxt(1)=" The "_..#PRODUCT_" is not initialized! "
 		set tTxt(2)=" use Subversion -> Settings menu to create "
 		set tTxt(3)=" project settings in Cache! "
@@ -758,16 +751,37 @@
 		for i=4 write !,"*" s tSpace=tLen-$l(tTxt(i))\2-1 s tTxt(i)=$j(" ",tSpace)_tTxt(i) s tSpace=tLen-$l(tTxt(i)) w tTxt(i)_$j(" ",tSpace),"*"
 		write ! for i=1:1:tLen+2 write "*"
 		
-	 	// set DISCONNECTED status
-	 	set ..IsDisconnected=1
-	 	quit $$$OK
- 	}
+	 	set Active=0
+	}
+	Quit Active
+]]></Implementation>
+</Method>
+
+<Method name="Login">
+<Description><![CDATA[
+Login to SourceControl if needed<br>
+also, setup environment]]></Description>
+<FormalSpec>Name:%String,Password:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if ..Debug write !,"Fired Login() for '",Name,"'"
+
+ 	set ..Name=Name
+ 	set ..Password =Password
+	
+	if '$IsObject(..svnHelper) {
+		set ..svnHelper = ##class(Helper).%New(Name,Password)
+	}
+	
+	if '..IsStudioHookActive() {
+		set ..IsDisconnected = 1
+		quit $$$OK
+	}	
+	
+	
+	
+	set tSC=$$$OK
 	try {
-	 	set ..Name=Name
-	 	// DK +2.10
-	 	set ..Password=Password
-	 	// DK -2.10
-	 	// get TEMP (Windows) or HOME (Unix) environment variables
 	 	if $$$ISWINDOWS {
 		 	set tCmd="set TEMP"
 	 	} elseif $$$ISUNIX {
@@ -839,29 +853,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterLoad">
-<FormalSpec>InternalName:%String,Object:%RegisteredObject=$$$NULLOREF</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	if ..Debug Write !,"Method 'OnAfterLoad' InternalName:"_InternalName
-	#dim tCmd as svn.Command
-	
-	set Repository = ..svnHelper.GeefRepository(InternalName)
-	
-	if $IsObject(Repository) {
-		do Repository.Status(InternalName)
-	}
-	
-	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
-		set ..ProjectNameOriginal=$p(InternalName,".",1)
-		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
-		set ..IsNewProject=0
-	}
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="BranchGet">
 <CodeMode>expression</CodeMode>
 <ReturnType>%String</ReturnType>
@@ -1077,6 +1068,26 @@
 <Implementation><![CDATA[	do ##class(svn.Updater).Update()
 ]]></Implementation>
 </Method>
+
+<Method name="OnAfterLoad">
+<FormalSpec>InternalName:%String,Object:%RegisteredObject=$$$NULLOREF</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if ..Debug Write !,"Method 'OnAfterLoad' InternalName:"_InternalName
+	set Repository = ..svnHelper.GeefRepository(InternalName)
+	if $IsObject(Repository) {
+		do Repository.Status(InternalName)
+	}
+	/*
+	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
+		set ..ProjectNameOriginal=$p(InternalName,".",1)
+		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
+		set ..IsNewProject=0
+	}
+	*/
+	quit $$$OK
+]]></Implementation>
+</Method>
 </Class>