Stream class better checks

Author: nikitaeverywhere

package.json

@@ -2,7 +2,7 @@
   "name": "cache-visual-editor",
   "printableName": "Cache Visual Editor",
   "packageName": "VisualEditor",
-  "version": "0.8.5",
+  "version": "0.8.6",
   "description": "Visual class editor for InterSystems Caché",
   "main": "index.js",
   "keywords": [

source/cache/REST/Editor.cls

@@ -25,7 +25,7 @@ ClassMethod SaveKeywords(memberKind As %String, definitionObj, assignObj As %Obj
         if (propPos > 0) {
             set val = assignObj.$get(pName)
             if ($IsObject(val)) { continue }
-            if (propDefinition.GetAt(propPos).Type = "%Stream.TmpCharacter") {
+            if ($$$classIsStream(propDefinition.GetAt(propPos).Type)) {
 	            #dim stream As %Stream.TmpCharacter = $PROPERTY(definitionObj, pName)
 	            do stream.Clear()
 	            do stream.Write(val)

source/cache/REST/Informer.cls

@@ -50,7 +50,7 @@ ClassMethod GetMemberData(class As %Dictionary.ClassDefinition, memberName As %S
             set val = $PROPERTY(p, pname)
             if ('$IsObject(val)) {
                 do op.$set(pname, val)
-            } elseif ($ClassName(val) = "%Stream.TmpCharacter") {
+            } elseif ($$$classIsStream($ClassName(val))) {
                 set v = val.Read()
                 while ('val.AtEnd) {
                     set v = v _ val.Read()