Index: svn/StudioHook.cls.xml =================================================================== diff -u -r1520 -r1522 --- svn/StudioHook.cls.xml (.../StudioHook.cls.xml) (revision 1520) +++ svn/StudioHook.cls.xml (.../StudioHook.cls.xml) (revision 1522) @@ -89,7 +89,7 @@ - + @@ -242,7 +242,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,InternalName) + set tSC=..PostProcessing(tCmd) ]]> @@ -553,7 +553,7 @@ 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 tSC=..PostProcessing(tCmd) // postprocessing may reset IsDisconnected! set ..IsDisconnected=tIsDisconnected @@ -569,7 +569,7 @@ do tCmd.Execute() set ..svnHelper.ExecCompile=0 ; Compiling niet meer nodig set tIsDisconnected=..IsDisconnected - set tSC=..PostProcessing(tCmd,InternalName) // postprocessing may reset IsDisconnected! + set tSC=..PostProcessing(tCmd) // postprocessing may reset IsDisconnected! set ..IsDisconnected=tIsDisconnected } @@ -667,7 +667,7 @@ if Answer=1 { if tCmd'=$$$NULLOREF { do tCmd.Execute() - set tSC=..PostProcessing(tCmd,InternalName) + set tSC=..PostProcessing(tCmd) } } // extras... @@ -696,7 +696,7 @@ set tCmd.SubCommand="resolved" set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH) do tCmd.Execute() - set tSC=..PostProcessing(tCmd,InternalName) + set tSC=..PostProcessing(tCmd) } } elseif tMenu="pre-commit" { if Answer=1 { @@ -710,7 +710,7 @@ // -DK 1.20 set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH) do tCmd.Execute() - set tSC=..PostProcessing(tCmd,InternalName) + set tSC=..PostProcessing(tCmd) } } elseif tMenu="check" { if Answer=1 { @@ -723,7 +723,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,InternalName) + set tSC=..PostProcessing(tCmd) } } elseif tMenu="source" { if Answer=1 { @@ -751,7 +751,7 @@ if Answer=1 { if tCmd.SubCommand="add" do ..svnHelper.ExportCode(InternalName) do tCmd.Execute() - set tSC=..PostProcessing(tCmd,InternalName) + set tSC=..PostProcessing(tCmd) } } } @@ -790,7 +790,7 @@ performs results display and post processing (if desired) -pCmd:svn.Command,InternalName:%String +pCmd:svn.Command %Status 0 { If ..Debug write "SubCommand: ",pCmd.SubCommand," & Reload = "_+pCmd.Reload,! @@ -999,7 +991,7 @@ set tCmd.File=..svnHelper.ExternalName(InternalName,$$$FULLPATH) do tCmd.Execute() set tIsDisconnected=..IsDisconnected - set tSC=..PostProcessing(tCmd,InternalName) // postprocessing may reset IsDisconnected! + set tSC=..PostProcessing(tCmd) // postprocessing may reset IsDisconnected! set ..IsDisconnected=tIsDisconnected if '..IsDisconnected { // FMA no need for a SVN tutorial all the time... @@ -1165,7 +1157,7 @@ set tCmd.SubCommand="commit" do tCmd.Options.SetAt("deleted by user","-m") do tCmd.Execute() - if 'isDirectory do ..PostProcessing(tCmd,File) + if 'isDirectory do ..PostProcessing(tCmd) } else { write !," *** Studio: please commit to propagate deletion to repository. ***" }