Index: tests/object-system.tcl =================================================================== diff -u -rd9b42d77f43db84a9983cc3bbc4124cf0b52df29 -r89376e0f64856bb395fdb4407c9646787545a08b --- tests/object-system.tcl (.../object-system.tcl) (revision d9b42d77f43db84a9983cc3bbc4124cf0b52df29) +++ tests/object-system.tcl (.../object-system.tcl) (revision 89376e0f64856bb395fdb4407c9646787545a08b) @@ -98,9 +98,9 @@ ? {::nsf::is metaclass c1} 0 ? {c1 info class} ::nx::Object -# basic parameter tests +# basic attributes tests -Class create C -parameter {{x 1} {y 2}} +Class create C -attributes {{x 1} {y 2}} ? {::nsf::isobject C} 1 ? {::nsf::isobject C::slot} 1 ? {C info children} ::C::slot @@ -113,10 +113,10 @@ ? {::nsf::isobject X::slot} 1 #? {C::slot info vars} __parameter -? {C info parameter} {{x 1} {y 2}} +? {C info attributes} {{x 1} {y 2}} #? {X::slot info vars} __parameter -? {X info parameter} {{x 1} {y 2}} +? {X info attributes} {{x 1} {y 2}} # # tests for the dispatch command