Index: library/nx/nx.tcl =================================================================== diff -u -r5afef6111e8c64d8035a90aa683ff077a5cf1d91 -r1677a9ac51d4f2e65087992bd21245e20b1ce323 --- library/nx/nx.tcl (.../nx.tcl) (revision 5afef6111e8c64d8035a90aa683ff077a5cf1d91) +++ library/nx/nx.tcl (.../nx.tcl) (revision 1677a9ac51d4f2e65087992bd21245e20b1ce323) @@ -728,7 +728,8 @@ :alias "info filter methods" ::nsf::cmd::ObjectInfo2::filtermethods :alias "info forward" ::nsf::cmd::ObjectInfo2::forward :alias "info hasnamespace" ::nsf::cmd::ObjectInfo2::hasnamespace - :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}$value} + :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}[expr {[info exists value]?$value:""}]} +# :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}$value} :alias "info methods" ::nsf::cmd::ObjectInfo2::methods :alias "info mixin guard" ::nsf::cmd::ObjectInfo2::mixinguard :alias "info mixin classes" ::nsf::cmd::ObjectInfo2::mixinclasses @@ -752,6 +753,8 @@ # foreach m [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::methods] { set definition [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::method definition $m] + puts stderr DEF=$definition + puts stderr "::nx::Class::slot::__info {*}[lrange $definition 1 end]" ::nx::Class::slot::__info {*}[lrange $definition 1 end] }