Index: TODO =================================================================== diff -u -r15d57478e3976d747741fd3df9bcb6ecccc7076d -r6a0e62b53f8b405d11f009e3c0acb2098702d921 --- TODO (.../TODO) (revision 15d57478e3976d747741fd3df9bcb6ecccc7076d) +++ TODO (.../TODO) (revision 6a0e62b53f8b405d11f009e3c0acb2098702d921) @@ -1042,6 +1042,11 @@ - replaced "requireNamespace" by "require namespace" in nx regression tests - updated migration guide +- removed method "autoname" from nx.tcl +- added "method require autoname" +- added "method require exists" + + TODO: - nameing * self/current: Index: generic/predefined.h =================================================================== diff -u -r15d57478e3976d747741fd3df9bcb6ecccc7076d -r6a0e62b53f8b405d11f009e3c0acb2098702d921 --- generic/predefined.h (.../predefined.h) (revision 15d57478e3976d747741fd3df9bcb6ecccc7076d) +++ generic/predefined.h (.../predefined.h) (revision 6a0e62b53f8b405d11f009e3c0acb2098702d921) @@ -22,6 +22,8 @@ "set rel \"mixin\"}\n" "set oldSetting [::nsf::relation $object $rel]\n" "uplevel [list ::nsf::relation $object $rel [linsert $oldSetting end $args]]}\n" +"::nsf::provide_method autoname {::nsf::alias autoname ::nsf::cmd::Object::autoname}\n" +"::nsf::provide_method exists {::nsf::alias exists ::nsf::cmd::Object::exists}\n" "proc ::nsf::infoError msg {\n" "regsub -all \" \" $msg \"\" msg\n" "regsub -all \" \" $msg \"\" msg\n" Index: generic/predefined.tcl =================================================================== diff -u -r15d57478e3976d747741fd3df9bcb6ecccc7076d -r6a0e62b53f8b405d11f009e3c0acb2098702d921 --- generic/predefined.tcl (.../predefined.tcl) (revision 15d57478e3976d747741fd3df9bcb6ecccc7076d) +++ generic/predefined.tcl (.../predefined.tcl) (revision 6a0e62b53f8b405d11f009e3c0acb2098702d921) @@ -50,6 +50,11 @@ uplevel [list ::nsf::relation $object $rel [linsert $oldSetting end $args]] } + # + # provide some popular methods for "method require" + # + ::nsf::provide_method autoname {::nsf::alias autoname ::nsf::cmd::Object::autoname} + ::nsf::provide_method exists {::nsf::alias exists ::nsf::cmd::Object::exists} # # error handler for info Index: library/nx/nx.tcl =================================================================== diff -u -r15d57478e3976d747741fd3df9bcb6ecccc7076d -r6a0e62b53f8b405d11f009e3c0acb2098702d921 --- library/nx/nx.tcl (.../nx.tcl) (revision 15d57478e3976d747741fd3df9bcb6ecccc7076d) +++ library/nx/nx.tcl (.../nx.tcl) (revision 6a0e62b53f8b405d11f009e3c0acb2098702d921) @@ -37,7 +37,7 @@ # foreach cmd [info command ::nsf::cmd::Object::*] { set cmdName [namespace tail $cmd] - if {$cmdName in [list "exists" "instvar" "requireNamespace"]} continue + if {$cmdName in [list "autoname" "exists" "instvar" "requireNamespace"]} continue ::nsf::alias Object $cmdName $cmd } Index: tests/parameters.tcl =================================================================== diff -u -r8c2e2c14e38d6ebb9ef1c44fabcf0229a42c1a02 -r6a0e62b53f8b405d11f009e3c0acb2098702d921 --- tests/parameters.tcl (.../parameters.tcl) (revision 8c2e2c14e38d6ebb9ef1c44fabcf0229a42c1a02) +++ tests/parameters.tcl (.../parameters.tcl) (revision 6a0e62b53f8b405d11f009e3c0acb2098702d921) @@ -479,6 +479,7 @@ "1" \ "query parameter for C-defined method 'forward'" + Object require method autoname ? {Object info method parameter autoname} \ "-instance -reset name" \ "query parameter for C-defined method 'autoname'"