Index: doc/next-migration.html =================================================================== diff -u -r56f48a605e58baed9ed8d0f4d43cd704bf34811d -rea3bbe8b1039c45baa2c027c005151e04e57d4b1 --- doc/next-migration.html (.../next-migration.html) (revision 56f48a605e58baed9ed8d0f4d43cd704bf34811d) +++ doc/next-migration.html (.../next-migration.html) (revision ea3bbe8b1039c45baa2c027c005151e04e57d4b1) @@ -5307,8 +5307,12 @@ .nx-placeholder {color: #AF663F; font-weight: normal; font-style: italic;} .nx-variable {color: #AF663F; font-weight: normal; font-style: normal;} -
# Check if object is a class
-/obj/ info is class
+
cd # Check if object is an NX class
+/obj/ has type ::nx::Class
+
+# Check if object is a class in one of the
+# NSF object systems
+::nsf::is class /obj/
@@ -5334,8 +5338,12 @@ .nx-placeholder {color: #AF663F; font-weight: normal; font-style: italic;} .nx-variable {color: #AF663F; font-weight: normal; font-style: normal;} -
# Check if object is a metaclass
-/obj/ info is metaclass
+
# Check if class is an NX metaclass
+expr {[/cls/ info heritage ::nx::Class] ne ""}
+
+# Check if object is a metaclass in one of the
+# NSF object systems
+::nsf::is metaclass /obj/
@@ -5362,7 +5370,7 @@ .nx-variable {color: #AF663F; font-weight: normal; font-style: normal;}
# Check if object is a baseclass of an object system
-/obj/ info is baseclass
+::nsf::is baseclass /obj/
@@ -6264,7 +6272,7 @@