Index: svn/Repository.cls.xml
===================================================================
diff -u -r1796 -r1856
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1796)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1856)
@@ -58,6 +58,12 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="ExternalList">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Transient>1</Transient>
+</Property>
+
 <Method name="CheckOut">
 <FormalSpec>Revision:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -83,6 +89,8 @@
 <FormalSpec>Path:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ..GetExternalList()
+	
 	Set UnversionedPaths = ##class(%ListOfDataTypes).%New()
 	#dim IsRevertNeeded As %Boolean = $$$False
 	
@@ -95,7 +103,10 @@
 	While ResultIt.HasNext() {
 		#dim CommandResult As svn.CommandResult	= ResultIt.Next()
 		If (CommandResult.Action = "?") {
-			Do UnversionedPaths.Insert(CommandResult.ExternalName)
+			If $$$Not(##class(TECH.ListUtils).Contains(..ExternalList,##class(TECH.StringUtils).ToLower(CommandResult.ExternalName))){
+				;dan is het geen external, dus unversioned, dus in de lijst te verwijderen
+				Do UnversionedPaths.Insert(CommandResult.ExternalName)
+			}
 		} ElseIf (CommandResult.Action = "A") {
 			Do UnversionedPaths.Insert(CommandResult.ExternalName)
 			Set IsRevertNeeded = $$$True
@@ -123,6 +134,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetExternalList">
+<Implementation><![CDATA[
+	Set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	Set tCmd.SubCommand="propget svn:externals"
+	If ##class(svn.Setting).PassCredentials() {
+		Do tCmd.GlobalOptions.SetAt(..Username,"--username"),tCmd.GlobalOptions.SetAt(..Password,"--password") 
+	}
+	do tCmd.Execute()
+	Do ..VerwerkResultaat(tCmd)
+]]></Implementation>
+</Method>
+
 <Method name="Status">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -265,8 +288,7 @@
 			Do ..SVNImport(File)
 			w " *** Studio HINT: please make sure you add this file into your copy of project!",!
 		}
-	}
-		
+	}		
 	if svnCommand.Results.Count()>0 {
 		if ##class(svn.Setting).Debug() w "SubCommand: "_svnCommand.SubCommand_" & Reload = "_+svnCommand.Reload,!
 		if svnCommand.SubCommand="checkout" {
@@ -302,7 +324,17 @@
 				}
 				set tCmdResult=svnCommand.Results.GetNext(.i)	
 			}
-		} 
+		} elseif (svnCommand.SubCommand = "propget svn:externals"){			
+			If ##class(svn.Setting).Debug()	w svnCommand.SubCommand,!
+			Set i="" 
+			Set tCmdResult=svnCommand.Results.GetNext(.i)
+			Set ..ExternalList = ##class(%ListOfDataTypes).%New()
+			while tCmdResult'=$$$NULLOREF {
+				;to lower as directories and driveletters in ntfs are case insensitive
+				Do ..ExternalList.Insert(##class(TECH.StringUtils).ToLower($tr(tCmdResult.ExternalName,"/","\")))
+				Set tCmdResult=svnCommand.Results.GetNext(.i)	
+			}			
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -351,9 +383,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Result As %Boolean = ##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
-	if 'Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,"vhTest")
-	quit Result
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhTest.Utils.DOM.PM.Maatwerk.Calc.Common")) $$$False
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")) $$$True
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhTest")) $$$True
+	Quit $$$False
 ]]></Implementation>
 </Method>