Load speed improvement

Author: nikitaeverywhere

package.json

@@ -1,7 +1,7 @@
 {
   "name": "cache-visual-editor",
   "printableName": "Cache Visual Editor",
-  "version": "0.2.3",
+  "version": "0.2.4",
   "description": "Visual class editor for InterSystems Caché",
   "main": "index.js",
   "keywords": [

source/cache/VisualEditor.REST.Informer.cls

@@ -133,12 +133,14 @@ ClassMethod GetClassData(className As %String) As %ZEN.proxyObject
 ClassMethod List() As %Status
 {
     set baseLevel = $case(%request.Get("level"), "":"", :%request.Get("level") _ ".")
-    set classes = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
+    set classes = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:ClassIndex")
     do classes.Execute()
     #dim folders as %Numeric
     set data = ##class(%ZEN.proxyObject).%New()
+    set skipSystem = $case($Namespace = "%SYS", 1: "", :"%")
     while (classes.Next()) {
-        set clsName = classes.Data("Name")
+        set clsName = classes.Data("ClassName")
+        if ($EXTRACT(clsName, 1) = skipSystem) { continue }
         // skip if doesn't match baseLevel
         if ($FIND(clsName, baseLevel) '= ($LENGTH(baseLevel) + 1)) { continue }
         // turn to folder and skip if exists