Index: TODO =================================================================== diff -u -rd5240b55783c6b947910da80e86aadb2257d70f5 -rf6469e86b7e32aac206d3c6c8526c179a0fb9ffe --- TODO (.../TODO) (revision d5240b55783c6b947910da80e86aadb2257d70f5) +++ TODO (.../TODO) (revision f6469e86b7e32aac206d3c6c8526c179a0fb9ffe) @@ -1178,6 +1178,7 @@ - backported fix for xotcl 1.6.6 reported by kristoffer lawsow, which helps just partly here - extended regression test +- added ::nx::EnsembleObject TODO: - fix test "ob bar" (filter test) in tests/interceptor-slot.tcl (currently commented out) Index: library/nx/nx.tcl =================================================================== diff -u -r43323499f16d710d3f06276a77b3886cdc55126b -rf6469e86b7e32aac206d3c6c8526c179a0fb9ffe --- library/nx/nx.tcl (.../nx.tcl) (revision 43323499f16d710d3f06276a77b3886cdc55126b) +++ library/nx/nx.tcl (.../nx.tcl) (revision f6469e86b7e32aac206d3c6c8526c179a0fb9ffe) @@ -356,14 +356,14 @@ ::nsf::methodproperty $object [Object create ${object}::slot] protected true if {$verbose} {puts stderr "... create object ${object}::slot"} } - set o [Object create ${object}::slot::__$w] + set o [nx::EnsembleObject create ${object}::slot::__$w] if {$verbose} {puts stderr "... create object $o"} # We are on a class, and have to create an alias to be # accessible for objects ::nsf::alias $object $w $o if {$verbose} {puts stderr "... create alias $object $w $o"} } else { - set o [Object create ${object}::$w] + set o [EnsembleObject create ${object}::$w] if {$verbose} {puts stderr "... create object $o"} } set object $o @@ -715,6 +715,8 @@ ::nx::slotObj ::nx::Class ::nx::slotObj ::nx::Object + Class create ::nx::EnsembleObject + ######################## # Info definition ######################## @@ -744,7 +746,7 @@ # automatically created name of the sensemble object has to be the # same as defined above. - Object create ::nx::Class::slot::__info + EnsembleObject create ::nx::Class::slot::__info Class alias info ::nx::Class::slot::__info #