Index: library/nx/nx.tcl =================================================================== diff -u -rf858f142f5fab4f88996b3eb709c3afa55114be9 -rb531a50ecc43d0c13e2432b099a436c3260c7a49 --- library/nx/nx.tcl (.../nx.tcl) (revision f858f142f5fab4f88996b3eb709c3afa55114be9) +++ library/nx/nx.tcl (.../nx.tcl) (revision b531a50ecc43d0c13e2432b099a436c3260c7a49) @@ -1902,10 +1902,10 @@ ###################################################################### - # Define method "property" for convenience + # Define methods "property" and "variable" ###################################################################### - nx::Object method variable { + nx::Object method "object variable" { {-accessor "none"} {-incremental:switch} {-class ""} @@ -1996,7 +1996,7 @@ return [::nsf::directdispatch [self] ::nsf::methods::object::info::method registrationhandle $name] } - Object method property { + Object method "object property" { {-accessor ""} {-config:boolean true} {-incremental:switch} @@ -2011,7 +2011,7 @@ #puts stderr "OBJECT got default accessor ${accessor}" } - set r [[self] ::nsf::classes::nx::Object::variable \ + set r [[self] object variable \ -accessor $accessor \ -incremental=$incremental \ -class $class \ @@ -2071,15 +2071,7 @@ return $r } - # - # provide aliases for "object property" and "object variable" - # - ::nx::Class eval { - :alias "object property" ::nsf::classes::nx::Object::property - :alias "object variable" ::nsf::classes::nx::Object::variable - } - ###################################################################### # Define method "properties" for convenience to define multiple # properties based on a list of parameter specifications.