Index: library/nx/nx.tcl =================================================================== diff -u -rd9344280c05990c0254aa652a08a09da3e5822b1 -ra093703e9836fc152fcbbce96d4f880ace6a6170 --- library/nx/nx.tcl (.../nx.tcl) (revision d9344280c05990c0254aa652a08a09da3e5822b1) +++ library/nx/nx.tcl (.../nx.tcl) (revision a093703e9836fc152fcbbce96d4f880ace6a6170) @@ -715,14 +715,19 @@ if {[info exists pattern]} {lappend cmd $pattern} return [: {*}$cmd] } - :method "info lookup configure parameters" {pattern:optional} { - set cmd [list ::nsf::methods::object::info::objectparameter definitions] - if {[info exists pattern]} {lappend cmd $pattern} - return [: {*}$cmd] + :method "info lookup parameters" {methodName pattern:optional} { + return [::nsf::cmd::info \ + parameter \ + -context [self] \ + [:info lookup method $methodName] \ + {*}[expr {[info exists pattern] ? $pattern : ""}] ] } - :method "info lookup configure syntax" {} { - set syntax [: ::nsf::methods::object::info::objectparameter syntax] - return [string trimright $syntax " "] + :method "info lookup syntax" {methodName pattern:optional} { + return [::nsf::cmd::info \ + syntax \ + -context [self] \ + [:info lookup method $methodName] \ + {*}[expr {[info exists pattern] ? $pattern : ""}] ] } :method "info lookup variables" {pattern:optional} { return [: info lookup slots -type ::nx::VariableSlot {*}[current args]]