Index: doc/next-migration.txt =================================================================== diff -u -N -r56f48a605e58baed9ed8d0f4d43cd704bf34811d -rea3bbe8b1039c45baa2c027c005151e04e57d4b1 --- doc/next-migration.txt (.../next-migration.txt) (revision 56f48a605e58baed9ed8d0f4d43cd704bf34811d) +++ doc/next-migration.txt (.../next-migration.txt) (revision ea3bbe8b1039c45baa2c027c005151e04e57d4b1) @@ -2485,17 +2485,25 @@ ---------------- |[source,tcl] ---------------- -# 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/ ---------------- |[source,tcl] ---------------- /obj/ ismetaclass /cls/ ---------------- |[source,tcl] ---------------- -# 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/ ---------------- |[source,tcl] ---------------- @@ -2504,7 +2512,7 @@ |[source,tcl] ---------------- # Check if object is a baseclass of an object system -/obj/ info is baseclass +::nsf::is baseclass /obj/ ---------------- |[source,tcl] ----------------