svn.Include %Studio.SourceControl.Base Product name, e.g. VSS, ClearCase, CVS, etc.. SVN 2.20 %Boolean set this to true if something goes wrong with svn connection %Boolean 0 keep user name for description purposes %String 1 password from login, use for svn.exe --password option when specified by the user %String modified version %String %String GUID of recently used instance of a Command object %String 1 indicated whether this is a new project so it needs checkout instead of update when opening (and when allowed for auto-checkout/update) %Boolean svn.Helper svn.UnitTestHelper %String 1 ]]> %Status Command:%String,Param:%String="" %Status %Status InternalName:%String InternalName:%String 5 { write !,"Unittests voor "_InternalName_" : " write !,##class(TECH.ListUtils).ListToPieces(UnitTests,$char(13,10)) } else { set itUnitTests = ##class(TECH.ListIterator).%New(UnitTests) while itUnitTests.HasNext() { #dim UnitTestName As %String = itUnitTests.Next() if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) { set Action = 5 set Target = UnitTestName_".cls" If InternalName = UnitTestName set Target="" } } } } else { write !,"Geen unittest voor "_InternalName_ "!!!!!!!!!!" } ]]> %String Settings menu to create " set tTxt(3)=" project settings in Cache! " set tTxt(4)=" Once finished, please close and re-open Studio. " set tLen=0 for i=1:1:4 if $l(tTxt(i))>tLen set tLen=$l(tTxt(i)) set tLen=tLen+2 write ! for i=1:1:tLen+2 write "*" for i=1:1:3 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 write "-" write "*" 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 Active=0 } Quit Active ]]> also, setup environment]]> Name:%String,Password:%String %Status >> Can't execute command! <<<" throw ##class(%Exception.StatusException).CreateFromStatus($$$ERROR($$$CANNOTEXECUTECOMMAND)) use tCmd read tMsgOut close tCmd set x=$s($$$ISWINDOWS:$p(tMsgOut,"=",2),1:tMsgOut) set ..svnHelper.Temp=$tr(x,$c(13,10),"")_$$$FolderDelimiter // Cache aparently doesn't like Windows TEMP directory abbreviation with ~ characters // so we need to introduce our own 'good looking' temp folder if $$$ISWINDOWS { if '##class(%File).DirectoryExists("c:\temp\") do ##class(%File).CreateDirectory("c:\temp\") set ..svnHelper.Temp="c:\temp\" } } catch (ex) { Set Exception = ##class(TECH.ExceptionHandler).Catch() write !,"[[ Error in 'Login()' :,",Exception.ToString() d BACK^%ETN set tSC=$$$ERROR($$$GeneralError) } quit tSC ]]> expression %Boolean This is called after the item has been saved to the database. It may be passed a reference to the object representing the item just saved. It can be use to export this documement to an external form for example. InternalName:%String,Object:%RegisteredObject=$$$NULLOREF %Status expression %String %Boolean 1 Arg:%Boolean %Status 1 ExternalName:%String %String Called after an item is deleted. InternalName:%String %Status Called after the compile of the item is done. InternalName:%String %Status InternalName:%String %Status InternalName:%String,Location:%String="",Object:%RegisteredObject=$$$NULLOREF %Status InternalName:%String %Status InternalName:%String,Object:%RegisteredObject=$$$NULLOREF %Status