Index: library/nx/nx.tcl =================================================================== diff -u -r83355de2812519cf29dc92cfdc2fc4892303f6ab -rbdae7a1f1ed4006665b30fd159658c0db2ccd7a5 --- library/nx/nx.tcl (.../nx.tcl) (revision 83355de2812519cf29dc92cfdc2fc4892303f6ab) +++ library/nx/nx.tcl (.../nx.tcl) (revision bdae7a1f1ed4006665b30fd159658c0db2ccd7a5) @@ -2150,7 +2150,7 @@ set addArgs [list obj prop $vspec {pos 0}] :public object method value=add $addArgs {::nsf::next [list $obj $prop $value $pos]} } - + if {"value=delete" in $baseMethods} { set delArgs [list obj prop -nocomplain:switch $vspec] :public object method value=delete $delArgs \ @@ -2159,7 +2159,7 @@ } else { # TODO should we deactivate add/delete? } - + } } Index: tests/accessor.test =================================================================== diff -u -r83355de2812519cf29dc92cfdc2fc4892303f6ab -rbdae7a1f1ed4006665b30fd159658c0db2ccd7a5 --- tests/accessor.test (.../accessor.test) (revision 83355de2812519cf29dc92cfdc2fc4892303f6ab) +++ tests/accessor.test (.../accessor.test) (revision bdae7a1f1ed4006665b30fd159658c0db2ccd7a5) @@ -143,7 +143,7 @@ ? {c2 eval {expr {"value=delete" in ${:trace}}}} 1 ? {c2 eval {expr {"value=set" in ${:trace}}}} 0 - + } nx::test case incremental-slot-override-with-type { @@ -167,7 +167,7 @@ :create c3 } - + # WITHOUT incremental being set: set is overriden internally and becomes type-aware; add + delete # from base class are present, but CANNOT be called; set slotObj1 [c3 info lookup variables c1a] @@ -217,7 +217,7 @@ ? {c3 c1c get} "" ? {c3 c1c unset} "" ? {c3 info vars} "trace" - + ? {c3 eval {expr {"value=add" in ${:trace}}}} 1 ? {c3 eval {expr {"value=delete" in ${:trace}}}} 1 ? {c3 eval {expr {"value=set" in ${:trace}}}} 0