Index: TODO =================================================================== diff -u -r1d20679c48b53f85dcfd6d0be12a06c0776e797d -r0e33ba821d29af5a646fd29c2722baedddcc25b8 --- TODO (.../TODO) (revision 1d20679c48b53f85dcfd6d0be12a06c0776e797d) +++ TODO (.../TODO) (revision 0e33ba821d29af5a646fd29c2722baedddcc25b8) @@ -2495,6 +2495,7 @@ * reactivated "configure", since we plan to use it more prominently * added a configure flag for "class" * removed method "class" (should be used via "/obj/ configure -class ...") + * removed method residualargs from nx TODO: Index: library/nx/nx.tcl =================================================================== diff -u -r1d20679c48b53f85dcfd6d0be12a06c0776e797d -r0e33ba821d29af5a646fd29c2722baedddcc25b8 --- library/nx/nx.tcl (.../nx.tcl) (revision 1d20679c48b53f85dcfd6d0be12a06c0776e797d) +++ library/nx/nx.tcl (.../nx.tcl) (revision 0e33ba821d29af5a646fd29c2722baedddcc25b8) @@ -23,7 +23,6 @@ -object.init init -object.move move -object.objectparameter objectparameter - -object.residualargs residualargs -object.unknown unknown } @@ -40,7 +39,7 @@ set cmdName [namespace tail $cmd] if {$cmdName in [list "autoname" "cleanup" "exists" \ "filterguard" "instvar" "mixinguard" \ - "noinit" "requirenamespace"]} continue + "noinit" "requirenamespace" "residualargs"]} continue ::nsf::method::alias Object $cmdName $cmd } @@ -65,7 +64,7 @@ # set a few aliases as protected # "__next", if defined, should be added as well - foreach cmd [list residualargs uplevel upvar] { + foreach cmd [list uplevel upvar] { ::nsf::method::property Object $cmd call-protected 1 } Index: tests/object-system.test =================================================================== diff -u -re3a84e351aaf79c02a63cc0741dde7b9bd550849 -r0e33ba821d29af5a646fd29c2722baedddcc25b8 --- tests/object-system.test (.../object-system.test) (revision e3a84e351aaf79c02a63cc0741dde7b9bd550849) +++ tests/object-system.test (.../object-system.test) (revision 0e33ba821d29af5a646fd29c2722baedddcc25b8) @@ -19,7 +19,7 @@ } } -? {::nsf::configure objectsystem} "{::nx::Object ::nx::Class {-class.alloc alloc -class.create create -class.dealloc dealloc -class.recreate recreate -class.requireobject __unknown -object.configure configure -object.defaultmethod defaultmethod -object.destroy destroy -object.init init -object.move move -object.objectparameter objectparameter -object.residualargs residualargs -object.unknown unknown}}" +? {::nsf::configure objectsystem} "{::nx::Object ::nx::Class {-class.alloc alloc -class.create create -class.dealloc dealloc -class.recreate recreate -class.requireobject __unknown -object.configure configure -object.defaultmethod defaultmethod -object.destroy destroy -object.init init -object.move move -object.objectparameter objectparameter -object.unknown unknown}}" ? {::nsf::isobject Object} 1 ? {::nsf::is class Object} 1