Index: TECH/KeyValue/ListBase.cls.xml
===================================================================
diff -u -r1889 -r3584
--- TECH/KeyValue/ListBase.cls.xml	(.../ListBase.cls.xml)	(revision 1889)
+++ TECH/KeyValue/ListBase.cls.xml	(.../ListBase.cls.xml)	(revision 3584)
@@ -8,6 +8,26 @@
 <Default>TECH.KeyValuePair</Default>
 </Parameter>
 
+<Method name="CreateKeyValueListFromListbuild">
+<Description>
+Oproepen via : 
+  Set KeyValueList = ##class(TECH.KeyValue.ListBase).CreateKeyValueListFromListbuild( $LB(key1,value1), $LB(key2,value2) ) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbKeyValues...:%List</FormalSpec>
+<ReturnType>TECH.KeyValue.ListBase</ReturnType>
+<Implementation><![CDATA[
+	Set KeyValueList = ..%New()
+	
+	Set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.lbKeyValues)
+	While ( Iterator.HasNext() ) {
+		#dim lbKeyValue As %List = Iterator.Next()
+		Do KeyValueList.Insert( ##class(TECH.KeyValuePair).%New($LI(lbKeyValue,1), $LI(lbKeyValue,2)) )
+	}
+	
+	Quit KeyValueList
+]]></Implementation>
+</Method>
+
 <Method name="InsertKeyValue">
 <FormalSpec>Key:%CacheString="",Value:%CacheString=""</FormalSpec>
 <Implementation><![CDATA[	Do ..Insert(##class(TECH.KeyValuePair).%New(Key, Value))