Index: library/nx/nx.tcl =================================================================== diff -u -r1677a9ac51d4f2e65087992bd21245e20b1ce323 -r5a8f729f1007a41a4ecef05c11522a439564022e --- library/nx/nx.tcl (.../nx.tcl) (revision 1677a9ac51d4f2e65087992bd21245e20b1ce323) +++ library/nx/nx.tcl (.../nx.tcl) (revision 5a8f729f1007a41a4ecef05c11522a439564022e) @@ -729,7 +729,6 @@ :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 {*}[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 @@ -753,8 +752,6 @@ # 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] }