fix

Author: Masterbeer

Diff for: cache/projectTemplate.xml

@@ -83,11 +83,11 @@ Returns structured class tree with all classes available in current namespace</D
 <Description>
 Return structured data about class.</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>oData:%ZEN.proxyObject,className:%String,level:%Integer,currLevel:%Integer</FormalSpec>
+<FormalSpec>oData:%ZEN.proxyObject,className:%String,level:%String="",currLevel:%Integer=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ZEN.proxyObject</ReturnType>
 <Implementation><![CDATA[
-	if (($GET(level)'="")&&(+$GET(currLevel)>+$GET(level))) quit ""
+	if ((level'="")&&(+currLevel>+level)) quit ""
 	set currLevel=$increment(currLevel)
     set classDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(className)
     set compiledClassDefinition = ##class(%Dictionary.CompiledClass).%OpenId(className)
@@ -122,13 +122,12 @@ Return structured data about class.</Description>
 
     set oClass.Super = "" // do not quit with super at this moment
     if (oData.restrictPackage) && ('..inPackage(oData.basePackageName, package)) quit oClass
-    if (+$GET(level)=0) set oClass.Super = ..correctInheritance(oData, classDefinition, package) // now expand super names
+    set oClass.Super = ..correctInheritance(oData, classDefinition, package) // now expand super names
 
     set oClass.properties = oProperties
     set count = classDefinition.Properties.Count()
     set props = ##class(%Dictionary.ClassDefinition).%OpenId("%Dictionary.PropertyDefinition")
     for i=1:1:count {
-	    set ignore=""
         set oProp = ##class(%ZEN.proxyObject).%New()
         set p = classDefinition.Properties.GetAt(i)
         do oProperties.%DispatchSetProperty(p.Name, oProp)
@@ -138,15 +137,13 @@ Return structured data about class.</Description>
         }
         if (..classExists(package _ "." _ p.Type)) {
             set oProp.Type = package _ "." _ p.Type
-            do ..fillClassData(oData, package _ "." _ p.Type, $GET(level), currLevel)
-            set ignore=1
+            do ..fillClassData(oData, package _ "." _ p.Type, level, currLevel)
         } elseif (..classExists(..extendClassFromType(p.Type))) {
             set oProp.Type = ..extendClassFromType(p.Type)
-            do ..fillClassData(oData, ..extendClassFromType(p.Type), $GET(level), currLevel)
+            do ..fillClassData(oData, ..extendClassFromType(p.Type), level, currLevel)
         }  else {
             set oProp.Type = ..extendClassFromType(p.Type)
         }
-       	if (($GET(ignore)="")&&($GET(level)'="")&&(+$GET(currLevel)>1)) set oProp.Type = oProp.Type_$Char(32)
     }
 
     set oMethods = ##class(%ZEN.proxyObject).%New()

Diff for: package.json

@@ -1,6 +1,6 @@
 {
   "name": "CacheClassExplorer",
-  "version": "1.13.3",
+  "version": "1.13.4",
   "description": "Class Explorer for InterSystems Caché",
   "directories": {
     "test": "test"