Merge branch 'master' of github.com:intersystems-ru/spatialindex

Author: ARechitsky

README.md

@@ -1,7 +1,7 @@
 # spatialindex
 spatialindex for Caché
 
-do $system.OBJ.LoadDir("c:\work\spatialindex","*.xml","ck")
+do $system.OBJ.LoadDir("c:\work\spatialindex","ck") 
 
 do $system.OBJ.ExportAllClassesIndividual("c:\work\spatialindex\","/diff",,,"SpatialIndex")
 
@@ -19,4 +19,4 @@ do $system.OBJ.ExportAllClassesIndividual("c:\work\spatialindex\","/diff",,,"Spa
  while (rset.Next()){
  w rset.Get("Id"),!
  }
- 
+ 

SpatialIndex_Index.xml

@@ -2,11 +2,10 @@
 <Export generator="Cache" version="25">
 <Class name="SpatialIndex.Index">
 <Super>%Library.FunctionalIndex</Super>
+<System>3</System>
 <TimeCreated>63812,71450.004249</TimeCreated>
 
 <Method name="DeleteIndex">
-<Description>
-This method is invoked when an existing instance of a class is deleted.</Description>
 <ClassMethod>1</ClassMethod>
 <CodeMode>generator</CodeMode>
 <FormalSpec>pID:%CacheString,pArg...:%Binary</FormalSpec>
@@ -16,6 +15,8 @@ This method is invoked when an existing instance of a class is deleted.</Descrip
 </Method>
 
 <Method name="Find">
+<Description>
+This method is invoked when an existing instance of va class is deleted.</Description>
 <ClassMethod>1</ClassMethod>
 <CodeMode>generator</CodeMode>
 <FormalSpec>rect:%Binary</FormalSpec>
@@ -89,7 +90,9 @@ This method is invoked when an existing instance of a class is updated.</Descrip
 <ClassMethod>1</ClassMethod>
 <FormalSpec>className:%String,indexName:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[quit $Name(^TestGlobal(className, indexName))
+<Implementation><![CDATA[
+set storage = ##class(%Dictionary.ClassDefinition).%OpenId(className).Storages.GetAt(1).IndexLocation
+quit $Name(@storage@(indexName))
 ]]></Implementation>
 </Method>
 </Class>