Index: library/nx/nx.tcl =================================================================== diff -u -r6280104bd82ee1e4f3c6bd824d1cc6d0482f43c0 -r1919d17fefad9446170fa6d532b439f494189b32 --- library/nx/nx.tcl (.../nx.tcl) (revision 6280104bd82ee1e4f3c6bd824d1cc6d0482f43c0) +++ library/nx/nx.tcl (.../nx.tcl) (revision 1919d17fefad9446170fa6d532b439f494189b32) @@ -891,7 +891,9 @@ #:alias "info method" ::nsf::methods::class::info::method :method "info method args" {name} {: ::nsf::methods::class::info::method args $name} :method "info method body" {name} {: ::nsf::methods::class::info::method body $name} - #:method "info method disassemble" {name} {: ::nsf::methods::class::info::method disassemble $name} + if {[::nsf::pkgconfig get development]} { + :method "info method disassemble" {name} {: ::nsf::methods::class::info::method disassemble $name} + } :method "info method definition" {name} {: ::nsf::methods::class::info::method definition $name} :method "info method exists" {name} {: ::nsf::methods::class::info::method exists $name} :method "info method handle" {name} {: ::nsf::methods::class::info::method definitionhandle $name} @@ -927,6 +929,9 @@ :method "info object method args" {name} {: ::nsf::methods::object::info::method args $name} :method "info object method body" {name} {: ::nsf::methods::object::info::method body $name} :method "info object method definition" {name} {: ::nsf::methods::object::info::method definition $name} + if {[::nsf::pkgconfig get development]} { + :method "info object method disassemble" {name} {: ::nsf::methods::object::info::method disassemble $name} + } :method "info object method exists" {name} {: ::nsf::methods::object::info::method exists $name} :method "info object method handle" {name} {: ::nsf::methods::object::info::method definitionhandle $name} :method "info object method registrationhandle" {name} {: ::nsf::methods::object::info::method registrationhandle $name}